Dante Amor

Ya lo probé y funciona. Intenta con esta otra: With Application.FileDialog(msoFileDialogFilePicker) .Title = "Seleccione archivo de excel" .Filters.Clear .Filters.Add "Archivos excel", "*.xls*" .AllowMultiSelect = False .InitialFileName = "C:\" &...

Te anexo la macro actualizada Sub ConsultaSuc() 'Act Por Dante Amor Set h1 = Sheets("Base_huellas") Set h2 = Sheets("Reporte_huellas") h2.Rows(6 & ":" & Rows.Count).Clear k = 6 n = 1 For i = 2 To h1.Range("C" & Rows.Count).End(xlUp).Row If...

¿Lo qué tienes en el rango de A12 en adelante es una tabla? Puedes poner una imagen con ejemplos de cómo tienes la hoja "proveedores"

Te anexo la macro Private Sub CommandButton1_Click() ' Crear Hoja ' Por Dante Amor ' 'Validaciones nombre = TextBox1.Value If nombre = "" Or Not IsNumeric(nombre) Then MsgBox "Escribe el nombre de hoja" TextBox1.SetFocus Exit Sub End If ' existe =...

Te anexo el código Private Sub CommandButton1_Click() If ActiveSheet.TextBox1.Value = "" Then MsgBox "Introduce un dato en el textbox" Exit Sub End If Set b = Columns("C").Find(ActiveSheet.TextBox1.Value, lookat:=xlWhole, LookIn:=xlValues) If Not b...

Te anexo la macro Sub Buscar_en_Hoja2() 'Por Dante Amor Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") For i = 1 To h1.Range("A" & Rows.Count).End(xlUp).Row Set b = h2.Columns("A").Find(h1.Cells(i, "A").Value, lookat:=xlWhole) If b Is Nothing Then...

Quedaría así Sub consulta_datos() Application.ScreenUpdating = False Set h = Sheets(Hoja5.Name) Set b1 = h.Columns("B").Find(Sheets(Hoja3.Name).[D6], lookat:=xlWhole) If Not b1 Is Nothing Then Sheets(Hoja3.Name).[C11] =...

Te anexo la macro Sub Macro5() ' Por Dante Amor ' ' Envía rango por correo ' 'VALIDACIONES If Range("K4").Value = "" Then MsgBox "Falta el nombre de archivo" Exit Sub End If If Range("K1").Value = "" Then MsgBox "Falta el destinatario" Exit Sub End...

En la siguiente respuesta filtro la información y la pongo en una hoja temporal. Copiar datos de ListBox a otra hoja comenzando desde una fila en particular y desplazando hacia abajo otras Solamente guarda la "Temporal" como archivo txt. Si gustas te...

Quieres que cuando escribas la palabra "Talar" en la columna "E", ¿automáticamente esa fila se borre?