Lucia Andrade

@Midori Perfeito, muito obrigada pela pacência comigo, sou iniciante e meio enrolada. gratidão,gratidão, gratidão.

@Midori Quase lá!!! salvou aba cartão 2 e aba cartão 3 ,mas a aba cartão 1 mesmo selecionado não funcionou

@Midori Não entendi. Eu quero pesquisar pelo nome da aba e não por um valor fixo.dessa forma que estar aí ele sempre salvará na aba cartão 3.

@Midori Dessa forma funcionou, porém só vai salvar na ABA CARTÃO 3 , se caso eu selecione outra aba não funcionará.

@Midori sou muito grata pela paciencia comigo, mas não deu certo eu já havia testado algo parecido. Eu enviei a planilha e os códigos no início, na planilha tem imagem do modelo do userform que fiz, você testou nela? Deu certo? vou te enviar ela de novo. Se for possível espero que me ajude. Na atribuição da linha seu range está "B32" e deve ser só "B", mesmo mudando para "B" não dar certo. Agradecida Lucia Andrade PLANILHA -CLUBE O HARDWARE .xlsx

@Midori n = 3 , porque ele começa a partir da aba 3, mas deu o meesmo erro

@Midori Testei esse código que você me passou, porém deu Índide inválido

@Midori Como eu faço esse teste, sou iniciante, fico um pouco perdida. Coloquei que n = Me.CB_Cartao, porque quero que seja igual a seleção da caixa de combinação,mas continuou dando erro 9, uma das abas está na posição 3,mas se eu coloco o 3 , também dar errado.

Boa noite! Preciso que me ajudem a corrigir esse erro. "Erro de tempo de execução 9, subscrito fora do intervalo. Não consigo enxergar onde estar errado. Preciso que quando seja selecionado um determinado cartão no combobox, o cadastro seja salvo na aba onde está com o nome do cartão. obs: Não quero que salve nem o valor nem a quantidade de parcelas. Vou colocar a planilha e a imagem do useform em anexo. a foto do useform colei na planilha. Private Sub CB_Cartao_Change() Dim x As Integer, n As Integer x = Me.CB_Cartao.ListIndex + 3 '(3 É A POSIÇÃO DA PLANILHA)EX: AQUI A POSIÇAO 1 É A PLANILHA LEIA-ME For n = 3 To Sheets.Count If Sheets(n).Index = x Then Sheets(n).Activate Exit Sub End If Next n End Sub Private Sub salvar_Click() Dim lin As Integer, n As Integer With Sheets(n) ' n é a varialvel que será definida quando for selecionada a aba na combobox(CB_Cartao) lin = Range("B32" & Rows.Count).End(xlUp).Row + 1 ' PESQUISANDO A COLUNA DESEJADA PARA ENCONTRAR A PRIMEIRA LINHA VAZIA Cells(lin, 2) = Me.CAIXA_ID.Text Cells(lin, 3) = Me.CB_Cliente.Text Cells(lin, 4) = Me.TX_Data.Text Cells(lin, 5) = Me.CB_Cartao.Text Cells(lin, 6) = Me.TX_Compras.Text Cells(lin, 7) = Me.TX_Valor_Parcelas.Text End With End Sub Private Sub UserForm_Initialize() Me.CB_Cartao.RowSource = "VALIDAÇÃO!A2:A8" 'LISTA PARA COMBOBOX. NOME DA PLANILHA ONDE ESTÁ A LISTA E O INTERVALO Me.CB_Cliente.RowSource = "VALIDAÇÃO!B2:B8" End Sub Obrigada! Lucia Andrade PLANILHA -CLUBE O HARDWARE .xlsx

Obrigada pela dica, vou olhar, não sei nada sobre power query Lucia Andrade

Obrigada pela atençao, me ajram bastante

Perfeito,Obrigada. Sem querer abusar, Esse código,se eu mudar algum nome da planilha ele vai funcionar? Gratidão ,Gratidão Lucia Andrade

Obrigada! Perfeito funcionou do jeito que eu queria. @OreiaG Desculpa fiquei tão ansiosa em testar ,que não vi sua observação abaixo:"obs. se você quiser o código poderá ser ajustado para ser executado sempre que for alterado o nome em PESQUISA!B3, sem a necessidade de clicar na figura Retângulo" Dessa foma como é feita essa alteração? outra dúvida , caso mude o nome das abas o código ainda funciona?

Olá pessoal, gostaria que me ajudassem se possível. Preciso de um código que pesquise vária abas ao mesmo tempo com crítério. A planilha tem com 4 abas . A primeira (Pesquisa) e as outras com Dados1,Dados2,Dados3 , em cada uma tem o cabeçalho com:Data - Produto - valor - cliente e Planilha.Nesta última gostaria que fosse adicionado o nome da aba. Esta macro funciona, só não consegui acrescentar a pesquisa de outras abas.Estou enviado o anexo da planilha e vou colocar o código que fiz. Ficarei muito agradecida. A pesquisa é feita por critério, no caso pelo nome do cliente. Sub RetânguloCantosArredondados1_Clique() Dim Lin As Integer, Linha As Long, Linha2 As Integer Lin = 6 'Referente a linha abaixo do cabeçalho da planilha1(Pesquisa) Linha = 2 'Referente a linha abaixo do cabeçalho da planilha2(Dados) Planilha1.Range("A6:E10000").ClearContents With Planilha2 Do Until .Cells(Linha, 1) = "" If InStr(1, UCase(.Cells(Linha, 4)), UCase(Planilha1.Range("B3"))) Then Planilha1.Activate Planilha1.Cells(Lin, 1) = .Cells(Linha, 1).Value Planilha1.Cells(Lin, 2) = .Cells(Linha, 2).Value Planilha1.Cells(Lin, 3) = .Cells(Linha, 3).Value Planilha1.Cells(Lin, 4) = .Cells(Linha, 4).Value Lin = Lin + 1 End If Linha = Linha + 1 Loop End With End Sub Grata Lucia Andrade PLANILHA ENVIADA PARA O CLUBE O HARDWARE.xlsx