Adriel Ortiz Mangia

Prueba esto Valora la respuesta para finalizar saludos!

Prueba con esto Sub buscar_copiar() Set h1 = Sheets("Hoja1") For i = 2 To h1.Range("B" & Rows.Count).End(xlUp).Row Set r = h1.Cells(i, "B") Set b = r.Find(h1.[E1], lookat:=xlWhole) If Not b Is Nothing Then h1.Cells(i, "A") = h1.Cells(b.Row, "B") End...

H o l a Una tabla dinámica resuelve tu inquietud Te dejo un vídeo https://www.youtube.com/watch?v=dznpjcLh2tY

H o l a Usa autoforma y asigna tu macro

H o l a prueba esto y me comentas Sub comparar() '//Por Aortiz ' Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") ' For i = 2 To h2.Range("A" & Rows.Count).End(xlUp).Row ' Set b = h1.Cells(i, "B").Find(h2.Cells(i, "B"), lookat:=xlWhole) ' If Not b...

H o l a No pude descargar el archivo envíame a [email protected]

H o l a te paso la macro Sub concatenar() '// Por Aortiz Set h1 = Sheets("Hoja1") j = 2 For i = 1 To h1.Range("A" & Rows.Count).End(xlUp).Row ' h1.Cells(i, "C") = h1.Cells(i, "A") & h1.Cells(i, "B") Next i End Sub Valora la respuesta para finalizar...

H o l a te paso la macro. Private Sub UserForm_Initialize() '//Por Aortiz Set h1 = Sheets("Hoja1") ' For i = 2 To h1.Range("A" & Rows.Count).End(xlUp).Row ComboBox1.AddItem h1.Cells(i, "A") ComboBox2.AddItem h1.Cells(i, "B") Next i ' End Sub Valora...

H o l a '//Por Aortiz msj = MsgBox("¿Estás seguro de querer ejecutar la macro?", vbInformation + vbYesNo, "Aviso") If msj = vbYes Then ' ' 'aqui copia tu macro Else MsgBox "No se ejecutó la macro", vbExclamation, "Aviso" Exit Sub End If Valoras para...

H o l a te paso la macro Private Sub UserForm_Initialize() txtboox = Format(Date, "dd-mm-yyyy") End Sub valora la respuesta para finalizar saludos!