Adriel Ortiz Mangia

[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 Muestra una imagen de la hoja y del formulario. Y ver en cual columna esta producto y fecha

[Hola Te paso la macro, cambias el nombre de la hoja por el tuyo. Sub Macro1() ' '[Por Adriel Ortiz ' Set h1 = Sheets("Hoja1") u = Range("A" & Rows.Count).End(xlUp).Row h1.Range("A2:A" & u).Copy h1.Range("E2") ' u1 = Range("E" &...

[Hola prueba con esto, cambias la columnas ganancia yo puse B, y el resultado lo pone C1 Sub sumar() u = Range("B" & Rows.Count).End(xlUp).Row Sumx = Application.WorksheetFunction.Sum(Range("B2:B" & u)) Range("C1") = Sumx End Sub Para finalizar a 2...

[Hola prueba esto =EXTRAE(A1,6,5)&"-"&IZQUIERDA(A1,5)

[Hola Reviso tu archivo y te comento

[Hola Te paso la macro Esto resulta con la grabadora de macros Sub Macro2() ' ' [Por Adriel ' With Range("F10:F21") .Value = "=IF(RC[-5]=""Credito"",(RC[-4]*R4C2/100),(IF(RC[-5]=""Debito"",(RC[-4]*R3C2/100))))" .Value = .Value End With ' With...

[Hola Una vez copiado los datos adonde se va copiar

[Hola Te paso la macro. Private Sub Worksheet_Change(ByVal Target As Range) ' If Not Intersect(Target, Range("H:H")) Is Nothing Then If Target.Count > 1 Then Exit Sub Select Case Target.Value Case "" Cells(Target.Row, "N") = "" Case Else...

[Hola Indica cual el nombre de tu hoja y de los controles para adecuar la macro.