Modificar macro con una acción mas

Necesito un poco de ayuda he encontrado esta macro que me viene al pelo pero necesito una modificación que no consigo solucionar

Necesito que los datos los coja de la hoja1 y los extraiga en la hoja2

Esta es la macroSub contarduplicados()
Sheets("SALIDAS DE MERCANCIA").Select
fila = 2
Range("h2").Select
Do While ActiveCell.Value <> ""
If InStr(valores, ActiveCell) = 0 Then
valores = valores & "," & ActiveCell
End If
ActiveCell.Offset(1, 0).Select
Loop
valores = Mid(valores, 2, Len(valores) - 1)
valores = Split(valores, ",")
For x = 0 To UBound(valores)
contarsi = Application.WorksheetFunction.CountIf(Columns(8), valores(x))
Cells(fila, 12).Value = valores(x)
Cells(fila, 13).Value = contarsi
fila = fila + 1
Next
End Sub

1 Respuesta

Respuesta
1

Te dejo la macro modificada. Ajusta el nombre de tus hojas en las primeras líneas comentadas.

Sub contarduplicados()
'modificada x Elsamatilde
Set desti = Sheets("Hoja2")    'hoja destino
Sheets("Hoja1").Select         'hoja origen
fila = 2
Range("h2").Select
Do While ActiveCell.Value <> ""
If InStr(valores, ActiveCell) = 0 Then
valores = valores & "," & ActiveCell
End If
ActiveCell.Offset(1, 0).Select
Loop
valores = Mid(valores, 2, Len(valores) - 1)
valores = Split(valores, ",")
For x = 0 To UBound(valores)
contarsi = Application.WorksheetFunction.CountIf(Columns(8), valores(x))
'se indica el destino
desti.Cells(fila, 12).Value = valores(x)
desti.Cells(fila, 13).Value = contarsi
fila = fila + 1
Next
End Sub

Muchísimas gracias todo perfecto

Necesito un poco de ayuda mas

tendría que comparar la columna A y B con la C y D y si no son exactamente iguales y al revés dejando una celda en blanco cuando no la equivalencia no sea exacta

Gracias Elsa

Si, ya vi que dejaste otra consulta en el tablón. Ni bien tenga unos minutos libres paso a tomarla.

Sdos!

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas