Adriel Ortiz Mangia

[Hola Muestra tu código

[Hola Te paso la macro Private Sub Worksheet_Change(ByVal Target As Range) ' '**Por Adriel Ortiz ' If Not Intersect(Target, Range("A4:A30")) Is Nothing Then If Target.Count > 1 Then Exit Sub If Target.Row < 4 Then Exit Sub If Cells(Target.Row, "A") =...

[Hola Te paso la macro Sub comparar() ' '**Por.Adriel Ortiz ' Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") Set h3 = Sheets("Hoja3") j = 2 For i = 2 To h1.Range("A" & Rows.Count).End(xlUp).Row Set b = h2.Columns("A").Find(h1.Cells(i, "A"),...

[Hola Que no nombre tienen tus controles

[Hola Si dice que estas trabajando con excel Usa esto, si estas en formulario 2 pon esta macro en el botón y te mostrará el formulario 1 Private Sub CommandButton1_Click() Unload Me 'CIERRA EL FORMULARIO 2 UserForm1.Show 'MUESTRA EL FORMULARIO 1 End...

[Hola Muestra una imagen de la hoja y del formulario. Y ver en cual columna esta producto y fecha

[Hola Puedes poner un ejemplo y el resultado que deseas saludos!

[Hola Te paso la macro, cambia el nombre de la hoja por el tuyo y el rango a copiar Sub copiar() ' ''*Por Adriel Ortiz ' Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") u = h2.Range("A" & Rows.Count).End(xlUp).Row ' h1.Range("A1:B10").Copy 'rango a...

[Hola Indica cuales son las celdas

[Hola ¿Todas la columnas se va agregar al listbox?