Olá! Eu tenho um código VBA no formato abaixo. Ele pega todas as informações da coluna B e manda para outra aba, sempre que o valor de B1 for alterado (só não cria outra, se já tiver uma igual), renomeando essa nova aba criada com o valor que estiver descrito em B1. No entanto, eu quero colocar nas abas novas que forem criadas, também a coluna A do modo como elas estiverem descritas na planilha original (que chamei de Plan3) (pode ser a coluna toda ou de A1:A11). Como poderia prosseguir?
Dim i: i = 1
Dim B1_val As String
B1_val = ThisWorkbook.Worksheets("Plan3").Range("B1").Value
myValue = ThisWorkbook.Worksheets("Plan3").Range("B" & i).Value
Dim ws As Worksheet
If Not (doesSheetExist(B1_val)) Then
Set ws = ThisWorkbook.Worksheets.Add(Type:=xlWorksheet)
With ws
.Name = B1_val
End With
While myValue <> ""
Set cellv = ThisWorkbook.Worksheets(B1_val).Range("B" & i)
cellv.Value = myValue
i = i + 1
myValue = ThisWorkbook.Worksheets("Plan3").Range("B" & i).Value
Wend
End If
End Sub
Public Function doesSheetExist(strSName As String) As Boolean
Set wb = ActiveWorkbook
Dim obj As Object
On Error GoTo ErrorHandler
Set obj = wb.Sheets(strSName)
doesSheetExist = True
Exit Function
ErrorHandler:
doesSheetExist = False
End Function