Mantener formato de celda(color de celda y letra) de la info que me trae el buscarv
Tengo una hoja con tres columnas(base de datos), en la cual hay muchas celdas que se repiten en la primera columna.
He creado una función con contar. Si la cual me busca cuantas veces se repite la celda buscada en la primera columna (de la base de datos) y luego combinada con un buscarv, me devuelve por cada repetición, la celda buscada + sus dos celdas contiguas (horizontalmente).
El problema está en que es importante mantener el formato de las dos celdas contiguas que trae la función. Ahora la función me devuelve el texto de las celdas sin mantener ni color de celda ni color de texto.
¿Cómo puedo hacerlo para que me mantenga el formato?
Tengo esa macro para buscar, si la adapta a su archivo le puede funcionar, le agregue para que copie el formato de las celdas encontradas, saludos
Sub bucarV() 'Copiar con formato
Dim Valorbuscado, Buscar, encontrado, formato, sucursal As String
Valorbuscado = Range("H1").Value
uf = Sheets("Hoja8").Range("D" & Rows.Count).End(xlUp).Row
For cont = 2 To uf
If Sheets("Hoja8").Cells(cont, 4) Like Valorbuscado Then
encontrado = Sheets("Hoja8").Cells(cont, 5)
Range("H2").Value = encontrado
sucursal = Sheets("Hoja8").Cells(cont, 6)
Range("H2").Value = encontrado
Range("H3").Value = sucursal
Sheets("Hoja8").Cells(cont, 5).Select
'Range("H2").Format = encontrado
Selection.Copy
Range("H2").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Sheets("Hoja8").Cells(cont, 6).Select 'Selecciona la celda con el valor encontrada
Selection.Copy
Range("H3").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End If
Next cont
End Sub
