Dante Amor

Lo que pides se puede realizar solamente con una macro. Pon la siguiente macro en los eventos de Thisworkbook Private Sub Workbook_Open() Sheets("Hoja4").Range("A2").Value = Sheets("Hoja4").Range("A1").Value End Sub Cambia "Hoja4", "A1" y "A2" por...

En esta línea de la macro, le indicas que empiece en la fila 1, si quieres que empiece en otra fila, cambia el 1 por el número que desees. F = 1 Después de esa línea, agrega esta línea, y escribe la letra de columna deseada c = "A" La macro tiene una...

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:\" &...

Puedes poner una imagen mostrando cómo tienes los datos y nos señalas con un color el dato que quieres encontrar. Y en dónde quieres poner el dato encontrado.

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] =...