Excel VBA Excel - Procura valor da celula A2 em todas as planilhas

[ronald54457874]

Ola galera, meu primeiro post aqui haha, espero que todos estejam bem.

 

É o seguinte tenho uma plan que ele cadastra valores que estão contido na celula A2, ou seja, ela pega o valor nessa celula e cria uma nova planilha e renomeia usando o nome da celula A2. Entendido até ai certo? So pegou o nome da celula A2, criou a plan e renomeou.

 

porém o que eu acabei vendo que ta complicado é de fazer uma condição...

 

Se (Procurar em todas as planilhas valor celula A2 pra ver se ja tem ma plan criada com o nome da celula A2)

Encontrado planinlha com esse nome?;

add na ultima linha em branco novos valores copiados anteriormente, pois essa parte é somente um pedaco do codigo.

 

Se não achou (Cria uma nova planilha com nome celula A2)

 

Como podem ver eu não sei como programar o Se no vba, sou bem iniciante.

 

Eu consigo colar os valores a serem preenchidos nas linhas onde não possui nada. Mas não consigo procurar o nome na celula em todas as demais planilhas.

Se tiver duvidas eu posto algo a mais, não achei necessidade de criar uma plan de exemplo se for necessario eu crio e jogo aqui rsrs. Obrigado desde já mestres do excel e minha inspiraçao kkkkk

[Patropi]

Boa tarde,  @ronald54457874

 

Numa postagem de Chip Pearson achei esse função que ele criou em VBA para verificar a existência de uma planilha antes de criá-la:

Function WorksheetExists(WSName As String) As Boolean
    On Error Resume Next
    WorksheetExists = Len(Worksheets(WSName).Name) > 0
End Function

 

Em seguida, no seu código

 

If WorksheetExists("Summary") = True Then
    MainMacro
Else
    CreateSummarySheet
End If

 

[ronald54457874]

@Patropi Boa noite amigo, entao como que eu faço andei pesquisando sobre sse codigo mas não entendi muito bem. Eu devo colocar ele onde em algum modulo dentro do vba no excel? Tentei ate criar um sub mas deu erro...

 

Outra ideia que eu tive é pesquisar o nome na celula A1 em todas as demais planilhas

 

Em cada planilha criada, se copia os dados da celula A1 na plan cadastro e coloca no centro da planilha criada como titulo. Ou seja quando rodar o codigo para pesquisar dados da celula A1 se ja tiver sido criado ele tem que ir ate a planilha criada pesquisada e selecionar o titulo. Acho que essa opção ficou mais fácil ate. Seria usado um procv+selecionar plan e colar onde estiver vazio, isso tudo em VBA.

 

Espero que não tenha ficado confuso...

Obrigado

[ronald54457874]

@Patropi Acabei de terminar minha plan Exemplo, creio eu que agora precisa de um exemplo é so baixar e ler os comentarios no VBA que eu criei.

 

https://www.dropbox.com/scl/fi/caehsj0tlo9bmt9wubez2/Exemplo.xlsm?dl=0&rlkey=p610cv0h2sbyih5uzusvukk3p

 

Obrigado

[ronald54457874]

Dim exists As Boolean

For i = 1 To Worksheets.Count

If Worksheets(i).Name = "MySheet" Then exists = True

End If

Next i If Not exists Then Worksheets.Add.Name = "MySheet"

End If

 

Achei essa opção na net porém no lugar de mysheet preciso que seja a minha celula E9 não sei escrever isso em VBA para ele ler que o dado que eu preciso para ele pesquisar em todas as planilhas esteja na E9. alguém me ajude eu realmente preciso terminar essa planilha...