vbaLimoeiro

Tenho o código abaixo que transfere valores de uma planilha para outra. É um filtro de busca por nome. Problema é quando eu formato as células o código vba tem uma linha que apaga a formatação. como faço para ficar as células formatadas sem deletar a linha de cód. que tem a função de apagar valores anteriores ? Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) ' Verifica se o valor alterado foi na célula E1 If Not Intersect([b2], Target) Is Nothing Then Dim lastRow As Long Dim lastResultRow As Long Dim x As Long ' Verifica qual a ultima célula preenchida lastRow = Plan22.Cells(Rows.Count, 1).End(xlUp).Row ' Apaga valores anteriores Plan23.Range("A5:M65536").Clear lastResultRow = 5 ' Ciclo em todas as linhas For x = 2 To lastRow '1 coluna pequisa ' verifica se o valor é igual ao da pesquisa If UCase(Plan22.Cells(x, 1).Value) = UCase(Plan23.[b2].Value) Then 'Plan22.Cells(x, 2).Value = Plan23.[F2].Value Then '1 coluna pequisa ' Copia os valores Plan23.Cells(lastResultRow, 2).Value = Plan22.Cells(x, 2).Value Plan23.Cells(lastResultRow, 3).Value = Plan22.Cells(x, 4).Value Plan23.Cells(lastResultRow, 4).Value = Plan22.Cells(x, 6).Value Plan23.Cells(lastResultRow, 5).Value = Plan22.Cells(x, 8).Value Plan23.Cells(lastResultRow, 6).Value = Plan22.Cells(x, 10).Value Plan23.Cells(lastResultRow, 7).Value = Plan22.Cells(x, 12).Value Plan23.Cells(lastResultRow, 8).Value = Plan22.Cells(x, 14).Value Plan23.Cells(lastResultRow, 9).Value = Plan22.Cells(x, 16).Value Plan23.Cells(lastResultRow, 10).Value = Plan22.Cells(x, 18).Value Plan23.Cells(lastResultRow, 11).Value = Plan22.Cells(x, 20).Value Plan23.Cells(lastResultRow, 12).Value = Plan22.Cells(x, 22).Value Plan23.Cells(lastResultRow, 13).Value = Plan22.Cells(x, 24).Value lastResultRow = lastResultRow + 1 End If Next ' End If End Sub

<_< Tenho 12 planilhas e em cada uma insito nomes de pessoas na coluna "A". :unsure: Na planilha 13 tenho um combo com um filtro e esse filtro deve fazer com que os nomes que forem inseridos na coluna A de cada uma das 12 planilhas sejam carregados no combo que fica na planilha 13. Já a coluna 9 de cada uma das 12 planilhas deve ir para a planilha 13. ex.: planilha 1 coluna A----------------coluna I JOÃO--------------- -- 23 CARLOS ------------- 44 ----------------------------------------- Planilha 2 coluna A---------------coluna I JOÃO---------------- 88 JOÃO ---------------- 23 ------------------------------------ planilha 3 coluna A ---------------coluna I LUCIANO--------------- 12 JUNIOR --------------- 20 ------------------------------------- TUDO isso deve ser filtrado para a planilha 13 onde tem um combobox1 que ficará cos os nomes que foram inseridos nas colunas A das planilhas de 1 a 12. E a coluna "I" deve ser transferida os valores para uma coluna da planilha 13. :rolleyes:

Como faço pra quando eu selecionar algum nome no combox apareça nomes nos textbox. Obs.: os nomes do combox são de uma coluna da planilha. e os nomes que devem aparecer nos textbox também são da mesma coluna da planilha na qual o combox está ligado. coluna A ----------------------------------------------------- 1 João ----------------------------------------------------- 2 Marcos ----------------------------------------------------- 3 André ----------------------------------------------------- 4 José ----------------------------------------------------- Lembrando que os Textbox e Combobox estão no userform1

Estou tentando fazer o seguinte: Quando o combobox2 for selecionado (datas), apareça nos textbox1,textbox2 e textbox3 (de cor vermelho) dados registrados nas colunas B,C,D. Utilizei o código abaixo mas não funciona. Veja o arquivo em anexo:Planilha exemplo (baixe) Private Sub ComboBox2_Click() Dim Linha As Integer Dim COMPARADOR As String With Sheet1 'SE HOUVER CABEÇALHO NA PLANILHA Linha = 2 'SE NÃO HOUVER CABEÇALHO 'LINHA = 1 COMPARADOR = ComboBox2.Value Do While .Cells(Linha, 2).Value > "" If .Cells(Linha, 2).Value = COMPARADOR Then .Cells(Linha, 1).Activate Exit Do End If Linha = Linha + 1 Loop End With ActiveCell.Offset(0, 2).Value = Me.TextBox1 'Me.TextBox2 = ActiveCell.Offset(0, 3).Value 'Me.TextBox3 = ActiveCell.Offset(0, 4).Value End Sub fico muito grato pela atenção!!

fico grato, mas não é isso... Quando eu insiro valores em células da linha 5 e clico em um botão, esse deve fazer com que esses valores sejam gravados uma linha abaixo, essa gravação vai até a última linha da planilha. Ok caro colega!! Simples, mas para mim está complicado!!!

Quero saber como posso fazer para inserir dados assim: Tenho as células A5,B5,C5,D5,E5,F5,G5,H5,I5,J5,L5 (em uma mesma linha). Quando eu insiro dados nessas células, os mesmos devem ser gravados em células abaixo das mesmas sucessivamente. Isto é, nas células das linhas abaixo. Uso o evento "Enter". Ex.: A6,B6,C6,D6,E6,F6,G6,H6,I6,J6,L6 <---Essas são as linhas abaixo das células que ficarão congeladas. Isso deve ir até a última linha (65000); A7,B7,C7,D7,E7,F7,G7,H7,I7,J7,L7 A8,B8,C8,D8,E8,F8,G8,H8,I8,J8,L8 .. . Fico grato pela sua ajuda!!!

Era isso mesmo, valeu caro colega JoséA!!! :D Agradeço também ao Patrick Porque quando eu excluo os dados, apaga só os dados da coluna "A" mas não apaga juntamente os dados da coluna "B"? e quando apaga os dados da coluna "A", os dados da coluna "B" saltam para a coluna "A".

Estou querendo colocar um botão salvar dados2 na planilha. Já existe um botão salvar, mas eu quero inserir outro botão salvar e outro botão Limpar dados2 veja o exemplo. Baixem. Quando eu clico no combobox data ele mostra dados registrados na planilha . esses dados aparecem nos textbox de cor verde. Quero colocar um botão Salvar e Outro Limpar dados dos textbox de cor verde. Link para Download da Planilha Exemplo

Caro colega Patrick, não está dando Certo. Está aparecendo um erro: Tipos incompatíveis ------> Alvo = ComboBox1.Value O que está havendo? baixe o exemplo para melhor entender!! Acesse esse Link para baixar o Exemplo

não é isso caro colega! Quero que o botão excluir de um userform exclua só os dados que eu selecionar em um combobox. Se eu seleciono em um combobox a data 12/08/2010 então esse combobox irá selecionar a linha na planilha referente a essa data e quando eu clicar no botão Excluir, os dados da linha selecionada deve ser excluida!. Ok? ;)

<_< Quero saber como posso apagar dados na planilha que foram gravados por meio de textbox do userform. Eu uso o evento click do botão. tenho alguns textbox e quando gravo algo na planilha por meio desses textbox, quero que também exclua esses dados da planilha por meio de um botão. Alguém sabe algum código? desde já agradeço aos colaboradores do fórum!

Caro colega JoséA Obrigado pelo seu exemplo postado no fórum. gostei. Mas tenho um problema. Acrescentei um textbox denominado de textbox_DatadeVenda e um combobox_DatadeVenda. Quando a pessoa inserir uma data nesse textbox, ele grave juntamente com todos os textbox em uma coluna da planilha. E esse valor deve aparecer no textbox. quando eu escolher um nome no combobox_pesquisa então deve aparecer o tanto de tadas que estiver cadastrada para essa pessoa. Ex.: se estiver cadastrada 5 João então deve aparecer as cinco datas referentes a esse João, isto é, deve carregar o combobox_DatadeVenda com as Datas da coluna na planilha que terá as ficará com as Datas inseridas. Ok? caro colega JoséA. Veja Link para Baixar a Planilha com os Objetos inseridos

Caro colegas do fórum, vejam que só falta eu conseguir colocar um código para filtrar os dados do combobox Vermelho. Veja o userform. O combobox Vermelho é das datas rerentes a uma coluna da planilha. Quando eu escolho um nome no combobox_pesquisa, então o combobox_Data carrega com as datas de uma coluna da planilha. O que eu quero é que ele filtre. Ex.: Se tiver cadastrado 5 "JÚNIOR" e 4 "CARLOS" o total aparece 9 nomes, mas o que eu quero é que apareça só um deles, isto é, o que eu escolher!!! LINK PRA ARQUIVO PLAN. EXCEL (BAIXE) oo

Não percebi que estava com senha. A senha é: 1971 Veja se consegue fazer o exposto acima!! grato pela atenção!!

É isso mesmo. Mas esse código não está funcionando no exemplo que postei. Baixe e veja se consegue colocar esse código e fazer ele funcionar no combox. Agradeço muito sua ajuda. Vamos ver se podemos achar essa solução. muito grato pela atenção.