Código para descartar duplicados en columna
Estoy tratando de hacer una macro para algo que tengo pero no he podido dar con la solución. Tengo una base de datos, en donde dígito unos datos cada mes por cada persona de varias empresas, la idea es en un msgbox mostrar los meses que cada empresa ha reportado. Ejm:
colunm1 col 2 col 3
Empresa 1 carlos perez abril
Empresa 1 pedro pinto abril
Empresa 1 carlos perez mayo
Empresa1 pedro pinto mayo
empresa2 andres soto abril
empresa2 juan luna abril
empresa2 andres soto mayo
empresa2 juan luna mayo
la idea es q en el msgbox me muestre Empresa1 abril - mayo
empresa2 abril - mayo
1 respuesta
Asumiendo que tus datos empiezan en la celda A2
Prueba la siguiente macro:
Sub EmpresaMes()
'Por Dante Amor
Dim dic As Object
Dim c As Range
Dim a As String, cad As String
Set dic = CreateObject("Scripting.Dictionary")
For Each c In Range("A2", Range("A" & Rows.Count).End(3))
a = c.Value & vbTab & vbTab & c.Offset(, 2).Value
If Not dic.exists(a) Then
dic(a) = Empty
cad = cad & a & vbCr
End If
Next
If cad <> "" Then MsgBox "Empresa" & vbTab & vbTab & "Mes" & vbCr & cad
End Sub
