dragonfire33
Board Regular
- Joined
- Oct 7, 2021
- Messages
- 90
- Office Version
- 365
- Platform
- Windows
como puedo resaltar cualquier numero de la columna al a la hoja 2
Sub GetValuesFromYellowCells()
Dim srcWs, destWs As Worksheet
Dim lastR As Integer
Dim srcRng, cell As Range
Set srcWs = Sheets("Hoja1")
Set destWs = Sheets("Hoja2")
Set srcRng = srcWs.Range("AZ1:BW40") ' range of source
For Each cell In srcRng
lastR = destWs.Cells(Rows.Count, "AL").End(xlUp).Row + 1 ' column name into column with result on Hoja2
If cell.Interior.Color = 65535 Then destWs.Cells(lastR, "AL").Value = cell.Value ' as above column with results
Next cell
End Sub
debug.print Sheets("Hoja1").Range("BA9").Interior.color
If cell.Interior.Color = XXXXX