Asignar categoría a datos filtrados
Set h1 = Sheets("REPORTE VENTAS")
Set h2 = Sheets("BASEDATOS")
For i = 4 To h1.Range("C" & Rows.Count).End(xlUp).Row
Set b = h2.Columns("D").Find(h1.Cells(i, "C"))
If Not b Is Nothing Then
For j = h2.Columns("AC").Column To h2.Columns("AM").Column
If InStr(1, cat, h2.Cells(b.Row, j)) = 0 Then
cat = cat & h2.Cells(b.Row, j)
End If
Next
h1.Cells(i, "U") = cat
cat = ""
End If
Next
MsgBox "Busqueda realizada con exito", vbInformation, "CATEGORÍAS"
El código cumple con lo que quiero realizar que es buscar la categoría de otra hoja y colocarlo.
Ahora quisiera realizar lo siguiente:
Que solo asigne la categoría a las celdas que no están ocultas en la columna "U" de la hoja reporte de ventas, ya que me asigna a todas aun este ocultas y solo quiero para las visibles.
Espero puedan ayudarme muchas gracias de ante mano.
Saludos
