Re: Botão macro de localizar
Enviado: Sex Ago 11, 2017 8:53 pm
Adonias,
As novas planilhas receberão o CNPJ e o nome existentes na Plan1, ou apenas o CNPJ ou apenas o Nome?
Laços deste tipo são relativamente simples.
Abaixo deixo um exemplo:
Abs
As novas planilhas receberão o CNPJ e o nome existentes na Plan1, ou apenas o CNPJ ou apenas o Nome?
Laços deste tipo são relativamente simples.
Abaixo deixo um exemplo:
Código: Selecionar todos
Sub adicionar_E_nomear_Planilhas()
'Variável do tipo inteiro para sabermos
'quantos clientes / planilhas devemos adicionar
Dim nClientes As Integer
'O número de clientes / planilhas é igual á quantidade
'de linhas preenchidas na planilha Base
nClientes = ThisWorkbook.Sheets("Plan1").UsedRange.Rows.Count
'Variáveis do tipo texto (String) para armazenarmos o CNPJ e o nome
Dim CNPJ, nomePlan As String
'Laço para adicionarmos os clientes / planilhas
For pCliente = 1 To nClientes
'Se o valor da célula for diferente de nulo / branco
If ThisWorkbook.Sheets("Plan1").Cells(pCliente, "A") <> "" Then
'Armazenamos os valores
CNPJ = ThisWorkbook.Sheets("Plan1").Cells(pCliente, "A")
nomePlan = ThisWorkbook.Sheets("Plan1").Cells(pCliente, "B")
'Adicionamos a nova planilha
Sheets.Add , Sheets(Sheets.Count)
'Nomeamos a nova planilha com os dados obtidos
'a função Replace teve de ser usada, pois em nome de planilha
'não é permitido o caracter /. Então temos de trocá-lo por outro
'no caso o -
Sheets(Sheets.Count).Name = Replace(CNPJ, "/", "-", 1, Len(nomePlan)) & " - " & nomePlan
End If
Next
End Sub