Pasar datos de una hoja a otra según categoría
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 dos modificaciones:
La primera seria que solo asigne las 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.
La segunda seria en mi hoja "BASE DE DATOS" desde la columna AC hasta la AH le asigne A1, A2, A3, A4, A5 Y A6 no se si habría alguna manera de que solo esa parte en ves de todo eso lo asigne a la palabra "A" y cuando siga recorriendo de después de AH normal las letras que estén asignadas.
Espero puedan ayudarme muchas gracias de ante mano.
Saludos
