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