imPrimo

olá Pessoal por gentileza, sou meio leigo em Excel vba e estou precisando fazer minha planilha ficar organizada automaticamente cada vez que for inserido um nome na coluna "A" e na coluna M. ou Atraves do vba tenho uma listbox que puxa esta planilha se tiver como fazer atraves da listbox e puderem por gentileza me ensinar agradeceria muito Desde já agradeço

olá Pessoal por gentileza, sou meio leigo em Excel vba e estou precisando fazer minha planilha ficar organizada automaticamente cada vez que for inserido um nome na coluna "A" e na coluna M. ou Atraves do vba tenho uma listbox que puxa esta planilha se tiver como fazer atraves da listbox e puderem por gentileza me ensinar agradeceria muito Desde já agradeço

olá Pessoal Tudo bem. Desenvolvi um Programa em excel vba, onde tenho vários itens e preciso colocar em minha vba um botao visualizar impressão ( que seria para abrir todas as colunas e linhas da plan1) até efetuei uma macro e criou-se um modulo na minha vba com o seguinte codigo: Sheets("plan1").Select ActiveWindow.SelectedSheets.PrintPreview Este Código copiei e colei no userform do meu botao visualizar impressão. O mesmo até me abre o visualizador, porém minha pagina inicial fica na frente e nao fecha ( parece que ela Trava) e não consigo ver a pagina do visualizador atras. Por favor me ajudem, sou nova ainda nesta área de VBA. De Antemão agradeço a todos.

Primeiramente desculpe eu nao ter colocado o erro, estou entrando neste mundo agora tanto do excel quanto do Forum. Obrigado. Funcionou mesmo o Codigo. Nãoquerendo abusar e ja abusando, você poderia me explicar como eu poderia neste mesmo codigo estar colocando para consultar um item da coluna e2, e o item da coluna k2 apenas estes itens em específico, pois quando coloco este codigo : 'Lstdescricao1.ColumnCount = 4 ' Lstdescricao1.RowSource = "Plan1!K2:n2" & Registros ela me exibe o intervalo entre elas, ou seja as 4 colunas , e eu gostaria de saber apenas da coluna e2 e da coluna k2. De antemão ja agradeço.

Ola Estou desenvolvendo um projeto em excel vba onde tenho um botão consultar. Quando Coloco este código: Private Sub UserForm_Activate() 'Dim Registros As Long 'Registros = Plan2.Range("A6553").End(xlUp).Row 'If Registros > 1 Then 'With Lstdecricao1 'Lstdescricao1.ColumnCount = 4 ' Lstdescricao1.RowSource = "Plan1!K2:n2" & Registros 'End With 'End If 'End Sub Meu Botao Consultar Para, segue o codigo do botao consultar: Private Sub BtnConsultar_Click() Dim Lin As Integer Lin = 2 Do Until Sheets("Plan1").Cells(2, 8).Value = Empty If Sheets("Plan1").Cells(2, 8).Value = Lstdescricao1.Value Then Txttel2.Value = Sheets("plan1").Cells(Lin, 8).Value Txtcliente1.Value = Sheets("Plan1").Cells(Lin, 1).Value Txtend1.Value = Sheets("plan1").Cells(Lin, 2).Value Txtinformacao1.Value = Sheets("plan1").Cells(Lin, 3).Value Txtuf1.Value = Sheets("Plan1").Cells(Lin, 4).Value Txtcep1.Value = Sheets("Plan1").Cells(Lin, 5).Value Txtemail1.Value = Sheets("plan1").Cells(Lin, 6).Value Txttel1.Value = Sheets("plan1").Cells(Lin, 7).Value txttipoimovel1.Value = Sheets("plan1").Cells(Lin, 9).Value Txtend2.Value = Sheets("plan1").Cells(Lin, 10).Value Txtbairro1.Value = Sheets("plan1").Cells(Lin, 11).Value txttipo1.Value = Sheets("plan1").Cells(Lin, 12).Value Txtvalor1.Value = Sheets("plan1").Cells(Lin, 13).Value Txtcidade1.Value = Sheets("plan1").Cells(Lin, 14).Value Txtuf2.Value = Sheets("plan1").Cells(Lin, 15).Value txtpermuta1.Value = Sheets("plan1").Cells(Lin, 16).Value txtdescricao1.Value = Sheets("plan1").Cells(Lin, 17).Value End If Lin = Lin + 1 Loop End Sub O que devo estar fazendo de errado?