Adriel Ortiz Mangia

[Hola No es posible previsualizar el userform

[Hola Pon otro ejemplo y entenderte mejor

[Hola Va la macro Sub Guardar() ' 'Act. Adriel Ortiz 'fuente 'Por.Dante Amor 'https://www.todoexpertos.com/preguntas/8crco9s63v8yyo69/crear-copia-de-reporte-en-excel-vba ' Set l1 = ThisWorkbook Set h1 = l1.ActiveSheet h1.Copy Set l2 = ActiveWorkbook...

[hola prueba lo siguiente Sub copiar() ' Por Adriel ortiz Set hojadestino = Sheets("Hoja1") j = 1 For i = 2 To 50 If Cells(i, "R") > 0 Then Range(Cells(i, "L"), Cells(i, "R")).Copy hojadestino.Range("A" & j) j = j + 1 End If Next i MsgBox "fin" End Sub

[Hola Muestra una imagen de tus datos

Sube tu archivo de ejemplo a la nube

[Hola Te paso un ejemplo Sub ejemplo() For Each h In Sheets 'recorre las hojas Select Case h.Name Case "Hoja1", "Hoja2" ' excepciones Case Else 'aquí la macro ' ' End Select Next h End Sub

Envíame tu archivo a [email protected]

[Hola Pon imágenes de tus datos como ejemplo y el resultado deseado

[Hola Sube el archivo de ejemplo a la nube