Como puedo seleccionar una hoja en excel con macros y si no existe crear copia de otra dándole nombre de la hoja que se buscaba.
Necesito filtrar, copiar y pegar datos de la hoja "Datos" a una determinada, por ejemplo tomar datos de la "Datos" con el filtro pedro y pegarlo en hoja llamada "Pedro", luego lo mismo con hoja llamada "Juan" y así. Pero que al no encontrar a hoja "Diego" cree una copia de la hoja base y luego siga hasta acabar los datos del filtro.
Desde ya les doy las gracias.
1 Respuesta
Respuesta de Dante Amor
1
H o l a:
Te anexo la macro
Sub FiltrarCopiar()
'Por.Dante Amor
Application.ScreenUpdating = False
Set h1 = Sheets("Datos")
Set h2 = Sheets("Hoja Base")
'
For i = 2 To h1.Range("A" & Rows.Count).End(xlUp).Row
hoja = h1.Cells(i, "A")
existe = False
For Each h In Sheets
If UCase(h.Name) = UCase(hoja) Then
Set h3 = Sheets(hoja)
existe = True
Exit For
End If
Next
If existe = False Then
h2.Copy After:=Sheets(Sheets.Count)
Set h3 = ActiveSheet
h3.Name = hoja
End If
'
u = h3.Range("I" & Rows.Count).End(xlUp).Row + 1
If u < 3 Then u = 3
h1.Range("A" & i & ":B" & i).Copy h3.Cells(u, "I")
Next
Application.ScreenUpdating = True
MsgBox "Fin"
End Sub‘
FE LIZ AÑO! R ecuerda valorar la respuesta. G r a c i a s
