Adriel Ortiz Mangia

[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 con esto Sub eliminar() col = "A" ' columna evaluar u = Range(col & Rows.Count).End(xlUp).Row n = 0 For i = u To 1 Step -1 If IsError(Cells(i, col)) Then Rows(i).Delete Next i ' MsgBox "fin" End Sub

[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 Prueba así If MsgBox("¿Quieres imprimir el pedido seleccionado?." & UserForm1.TextBox1, vbYesNo + vbInformation, "") = vbYes Then frm_salidas_pedidos_buscar.PrintForm Unload Me Else Cancel = True End If