Crear varias hojas con datos de una
Tengo una hoja excel donde una de las columnas tienen valores repetidos en sus celdas. Quisiera crear una macro para que me fuera leyendo las celdas con esos valores repetidos y cuando el valor cambie, que me creara tantas hojas como valores distintos encontremos en dicha columna.
1 respuesta
Respuesta de Dante Amor
1
Te anexo la macro, la macro lee los datos de la columna "C", si tus datos están en otra columna cambia en la macro Columns("C"), por la columna con tus datos.
Sub CrearHojas()
'Por.Dante Amor
Application.ScreenUpdating = False
Columns("C").Copy
Set h2 = Sheets.Add(after:=Sheets(Sheets.Count))
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.Range("A:A").RemoveDuplicates Columns:=1, Header:=xlNo
For i = 1 To h2.Range("A" & Rows.Count).End(xlUp).Row
If h2.Cells(i, "A") <> "" Then
Set h3 = Sheets.Add
h3.Name = h2.Cells(i, "A")
End If
Next
Application.DisplayAlerts = False
h2.Delete
End SubSaludos.Dante Amor
No olvides valorar la respuesta.
