Como agregar color a una macro
Que se le puede añadir a esta macro a la hora de copiar y pegar, para agregarle un color de fondo al rango que copia y pega, ejemplo amarillo.
Sub Copiar_DV()
'Por Dante Amor
Set H1 = Sheets("hoja1")
Set h2 = Sheets("hoja2")
celda = "A1"
'
grupo = Val(h2.Range(celda).Value)
u = Range("C" & Rows.Count).End(xlUp).Row
cuantos = WorksheetFunction.CountBlank(Range("C2:C" & u)) + 1
Select Case grupo
Case Is > cuantos, "", 1, 0: n = 1
Case Else: n = grupo
End Select
ini = 2
vez = 1
For I = 2 To u + 1
If Cells(I, "C") = "" Then
If vez = n Then
fin = I - 1
Exit For
Else
vez = vez + 1
ini = I + 1
End If
End If
Next
'
h2.Range("C" & ini & ":F" & fin).Copy
H1.Range("B2").PasteSpecial xlValues
If n + 1 > cuantos Then sig = 1 Else sig = n + 1
h2.Range(celda).Value = sig
End Sub
1 Respuesta
Te anexo la última macro con el cambio para el color
Sub Macro_Unica()
'Por Dante Amor
Application.ScreenUpdating = False
Set h1 = Sheets("Resultados")
Set h2 = Sheets("Resultados 2")
celda = "A1"
'Aquí tienes que incidar en cuál fila comienzan los datos
ini = 3
'Aquí tienes que incidar en cuál columna comienzan los datos
col = "B"
'Aquí tienes que incidar en cuál columna TERMINAN los datos
cof = "E"
'
grupo = Val(h2.Range(celda).Value)
u = h2.Range(col & Rows.Count).End(xlUp).Row
cuantos = WorksheetFunction.CountBlank(h2.Range(col & ini & ":" & col & u)) + 1
Select Case grupo
Case Is > cuantos, "", 1, 0: n = 1
Case Else: n = grupo
End Select
vez = 1
'
For I = ini To u + 1
If h2.Cells(I, col) = "" Then
If vez = n Then
fin = I - 1
Exit For
Else
vez = vez + 1
ini = I + 1
End If
End If
Next
'
h2.Range(col & ini & ":" & cof & fin).Copy
h1.Range("B3").PasteSpecial xlValues
uf = h1.Range("B" & Rows.Count).End(xlUp).Row
uc = h1.Cells(3, Columns.Count).End(xlToLeft).Column
h1.Range("B3", h1.Cells(uf, uc)).Interior.ColorIndex = 6
If n + 1 > cuantos Then sig = 1 Else sig = n + 1
h2.Range(celda).Value = sig
Application.ScreenUpdating = True
Application.CutCopyMode = False
MsgBox "Grupo copiado"
End Suben esta línea va el color
H1. Range("B3", h1. Cells(uf, uc)). Interior.ColorIndex = 6
Cambia el 6 por el número de color que desees
