dankara

santiagomf respondió: No acabo de entender cual sería la primera celda de destino en la que quieres copiar los datos, pero empecemos por el principio. Prueba este código: Option Explicit Sub copiaFilasTablaEnHojasSeparadas() Dim nLin As Integer Dim hojaTabla As Worksheet...

calvuch respondió: Prueba esto Sub INSERTARNOMBREHOJA() For Each hoja In ThisWorkbook.Sheets If hoja.Index > 1 Then hoja.Range("B15").Value = hoja.Name Next hoja End Sub Bye