Adriel Ortiz Mangia

[Hola Valorar ++excelente para finalizar si tienes dudas consulta Te paso la macro Sub buscar() p = False Set h1 = Sheets("Hoja1") For Each h In ThisWorkbook.Sheets If h.Name <> "Hoja1" Then h.Select Set b = h.Range("B7:F38").Find(h1.[E3],...

Y cuáles son las filas a copiar

[Hola La macro que pones es para insertar imágenes.

[Hola Describe el proceso y el resultado que necesitas

[Hola Application.Visible = False

[Hola Usa esta macro para tu formulario. Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If CloseMode = 0 Then MsgBox "Utiliza el botón Salir" Cancel = True End If End Sub

[Hola prueba esto Sub NUM() ini = 3 For i = 1 To 14 Cells(ini, 1) = i ini = ini + 1 Next i End Sub

[Hola Te paso la macro, solo ajusta los nombres de tus controles que usas. Lo primero que hace es buscar el código del articulo y si encuentra realiza la resta. Set h1 = Sheets("Hoja_Artículos") ' codigo_Art = TextBox1 ' Set r = h1.Columns("B") '...

[Hola ¿El filtro lo harás en forma manual?

[Hola Te paso la macro, crea 4 hojas con los respectivos nombres Norte, Sur, Este, Oeste. Valora la respuesta para finalizar Sub copiar() 'Por Adriel ' Set h1 = Sheets("INFORME") ' u = h1.Range("B" & Rows.Count).End(xlUp).Row For i = 2 To u ' Select...