Adriel Ortiz Mangia

H o la te paso la macro Sub compara_copia() '//Por Aortiz Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") For i = 2 To h1.Range("A" & Rows.Count).End(xlUp).Row Set r = h2.Columns("A") Set b = r.Find(h1.Cells(i, "A"), lookat:=xlWhole) If Not b Is...

H o l a usa estó ComboBox1.Style = fmStyleDropDownList con excel vba sería así Private Sub UserForm_Activate() ComboBox.AddItem ("hola") ComboBox.AddItem ("como estas") ComboBox.AddItem ("me gustas") ' ComboBox1.Style = fmStyleDropDownList End Sub...

Prueba esto Valora la respuesta para finalizar saludos!

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 '//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!

>>Yeicar Agrega esto en la macro para el nombre de la hoja '//por Aortiz nombre = "Inventario al " & Format(Date, "dd-mm-yyyy") & ".xlsx" si tienes dificultad muestra la macro para actualizarlo de caso contrario valora la respuesta para finalizar saludos!

H o l a te falto escribir la palabra completa "Count" en esta línea For i = 3 To h1.Range("A" & Rows.Count).End(xlUp).Row Valora la respuesta para finalizar saludos!

H o l a Puedes mostrar el código para adecuar el código

Puedes mostrar una imagen de la hoja para adecuar el código. Necesito por ejemplo la fila empieza tus datos de la hoja1, también la fila para copiar en la hoja2, ¿por último irá incrementando tus registros en la hoja2?