Adriel Ortiz Mangia

[Hola prueba con esto Sub imprimir() ' hoja = "Hoja1" ' Hoja portada For Each h In Sheets If LCase(h.Name) <> LCase(hoja) Then h.PrintOut End If Next h End Sub

[Hola Probé la macro y me funciona Tal vez falta ordenar la controles revisa esto Ordenar Controles en un UserForm en Excel

[Hola ¿En cuál columna se va buscar?

[Hola Este caso ya está resuelto Macro para Buscar un Registro y Eliminarlos continuación

[Hola Te paso la macro Valora la respuesta con +Excelente para finalizar saludos! Private Sub Worksheet_Change(ByVal Target As Range) ' '//Por Adriel Ortiz ' If Target.Count > 1 Then Exit Sub If Not Intersect(Target, Range("A:A")) Is Nothing Then...

[Hola Te paso la macro Sub buscarxx() '//Todoexpertos '[Por Adriel Ortiz ' ' Application.ScreenUpdating = False Application.DisplayAlerts = False ' Set l1 = ThisWorkbook Set h1 = l1.Sheets("Hoja1") ' ruta = "C:\Users\Aortiz\Desktop\practica\" libro2...

[Hola Que tal así, comentas y valoras Sub buscar() 'Por.DAM Set h1 = Sheets("Hoja1") 'nombre de hoja ' u = h1.Range("A" & Rows.Count).End(xlUp).Row Set b = h1.Range("A8:A" & u).Find(h1.Range("A7"), lookat:=xlWhole) If Not b Is Nothing Then b.Select...

[Hola Prueba con esto Valora la respuesta para finalizar Sub limpiar() '//Todoexpertos '[Por Adriel For Each r In Range("F1:GT217") If r = "x" Then r.ClearContents End If Next r End Sub

[Hola Revisa esta respuesta de Dante Macro para insertar fila según valor de una celda

[Hola Prueba con esto y me comentas Sub buscarx() '//Todoexpertos '[Por Adriel ' Set l1 = ThisWorkbook Set h1 = l1.Sheets(1) Set l2 = Workbooks.Add Set h2 = Sheets(1) ' buscar = "peru" 'dato a buscar Set rango = h1.Range("A1:D10") 'rango a buscar '...