Ayuda con selección de rangos (columnas) Excel 2010
Hola a todos y gracias por vuestra ayuda.
Tengo este código que me selecciona una columna hasta la ultima que tenga datos y dependiendo del valor me la pinte de un color a otro, por lo que he estado leyendo esta macro va comprobando celda a celda, pero en lugar de que me pregunte el final de la columna me gustaría que estuviera ya definido en la instrucción For, el comienzo siempre sera en la celda G16 pero el final variara. ¿Podéis ayudarme? GRACIAS !!!!!!
Sub SELECCIONAR_COLUMNA()
[G16].Select Range(Selection, Selection.End(xlDown)).Select
b = InputBox("Hasta")
For x = Int("16") To Int(b) Range("G" & LTrim(Str(x))).Select
If Selection.Value = "Forecast" Then
With Selection.Interior .ColorIndex = 6
.Pattern = xlSolid
End With
Else
If Selection.Value = "Actual" Then
With Selection.Interior .ColorIndex = 7
.Pattern = xlSolid
End With
End If
End If
Next x
End Sub
1 respuesta
Te mando mi solución:
Nos imaginamos que tenemos que marcarlo en la columna G desde G1 hasta donde haya datos.
Ejecuta esta macro y todo listo:
Sub marcar()
'por luismondelo
ultima = Range("g65000").End(xlUp).Address(False, False)
rango = "g1:g" & ultima
For Each celda In Range(rango)
If celda.Value = "Forecast" Then
celda.Interior.ColorIndex = 3
ElseIf celda.Value = "Actual" Then
celda.Interior.ColorIndex = 4
End If
Next
End Subno olvides finalizar la consulta
