Macro entregar precio
Amigos, favor de su ayuda:
Sucede que tengo un archivo el cual tiene el nombre de unos productos repetidos varias veces de acuerdo al valor de la compra que se realizo en su momento. Entonces la macro que requiero debería dejar solo uno de los nombres de cada producto y que sea el de menor valor en otra hoja.
Muchas gracias.
1 respuesta
Respuesta de Dante Amor
1
Esta es la macro
Sub precios()
'Por.DAM
Set h1 = Sheets("Hoja1") 'hoja de productos y precios
Set h2 = Sheets("Hoja2") 'hoja destino
h2.Cells.Clear
c = "A" 'columna de productos
d = "B" 'columna de precios
u = h1.Range(c & Rows.Count).End(xlUp).Row
j = 2
With h1.Sort
.SortFields.Clear: .SortFields.Add Key:=Range(c & "2:" & c & u)
.SortFields.Add Key:=Range(d & "2:" & d & u)
.SetRange Range(c & "1:" & d & u): .Header = xlYes: .Apply
End With
For i = 2 To u
If ant <> h1.Cells(i, c) Then
h1.Rows(i).Copy h2.Rows(j)
j = j + 1
End If
ant = h1.Cells(i, c)
Next
End Sub Saludos. Dante Amor
No olvides finalizar la pregunta.
