Buenas, necesitaria la siguiente macro pero no para colorear sino para seleccionar
Sub colorear()
'Por.DAM
For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
If Cells(i, "A") = 2 Then
Range(Cells(i, "B"), Cells(i, "F")).Interior.ColorIndex = 4
Else
Range(Cells(i, "B"), Cells(i, "F")).Interior.ColorIndex = xlNone
End If
Next
End Sub
Respuesta de Isaac Reyes
1
Hice varias modificaciones al código
'Por GP - Adaptación función colorear de DAM'
Sub seleccionar()
Dim strSelec As String
For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
If Cells(i, "A") = 2 Then
If strSelect <> "" Then strSelect = strSelect & "," 'Agrega una coma si la cadena no está vacía'
strSelect = strSelect & "B" & i & ":F" & i 'Agrega la direccion a la cadena'
End If
Next
If strSelect <> "" Then Range(strSelect).Select
End SubS@lu2
1 respuesta más de otro experto
Respuesta de Carlos Arrocha
[Hola. Prueba así.
Sub colorear()
'Por.DAM
For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
If Cells(i, "A") = 2 Then
Range(Cells(i, "B"), Cells(i, "F")).Select
Else
Range(Cells(i, "B"), Cells(i, "F")).Select
End If
Next
End Sub