Generar Hojas con VBA Copy Range Tips VBA en Excel

preview_player
Показать описание
Nuevo video de como generar hojas con VBA + copiar y pegar el contenido de la hoja principal.

Dim I As Integer
Dim Hoja As Worksheet

With Hoja1

For I = 2 To 13

ThisWorkbook.Worksheets.Add(After:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count)).Name = .Cells(I, 1)

Set Hoja = ThisWorkbook.Worksheets(.Cells(I, 1).Value)

.Range("A1:E1").Copy Destination:=Hoja.Range("A1")

Hoja.Range("A2").Value = .Cells(I, 1)

.Range("B2:E13").Copy Destination:=Hoja.Range("B2")

Next I

End With

#vba #tips #macros #excel
Рекомендации по теме
Комментарии
Автор

Hola David, perfecto como siempre.
Estaría bueno que antes de generar las hojas detectase que no exista hoja con el mismo nombre.
Saludos David. 👍👍🙋‍♂️

ElCanalDeNito-MExcel
visit shbcf.ru