Adriel Ortiz Mangia

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

Te paso la macro actualizada Private Sub CommandButton1_Click() '//Act. por Aortiz 'Asignando Objetos de busqueda y hojas Set h1 = Sheets("Plan MP") Set b = h1.Columns("B").Find(TextBox1, lookat:=xlWhole) u1 = h1.Range("B" & Rows.Count).End(xlUp).Row...

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 prueba esto Private Sub CmB_guardar_Click() Text_fecha = Format(Text_fecha, "dd/mm/yyyy") Dim fila As Integer fila = 1 While Cells(fila, 1) <> "" fila = fila + 1 Wend Cells(fila, 1) = CDate(Text_fecha) Cells(fila, 2) = Txt_nombre Cells(fila,...

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

H o l a En esta parte de la línea de tu código Set b = h1.Columns(col1).Find(dato, lookat:=xlWhole) cambia por esto Set b = h1.Columns(col1).Find(dato, lookat:=xlPart) haber que tal te va

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?

H o l a si es a través de un formulario es así Private Sub UserForm_Activate() CommandButton1.Caption = "Texto1" & vbNewLine & "Texto2" & vbNewLine & "Texto3" End Sub valora para finalizar saludos!

Te paso un ejemplo Private Sub ComboBox1_Change() TextBox1.Text = ComboBox1 End Sub valora para finalizar

H o l a Tal vez tienes decimales, prueba con esto que mostrará el valor de cada celda y ve si hay alguna diferencia. Sub verifica() Set h1 = Sheets("RECIBO") If h1.Range("H18").Value <> h1.Range("C24").Value Then MsgBox "Los Montos " & h1.[H18] & " y...