Seleccionar un rango desde una celda elegida.
Me gustaría saber si se puede hacer una pequeña macro para seleccionar un rango de doce celdas hacia abajo y 15 filas a la derecha desde una celda introducida mediante una pregunta ya que no siempre es la misma, además me gustaría que ese rango me lo pintara de un color también introducido mediante pregunta.
¿Es posible hacerlo?
1 respuesta
Respuesta de Dante Amor
1
H o l a:
Te anexo la macro
Sub Pintar()
'Por.Dante Amor
On Error Resume Next
Set celda = Application.InputBox("Selecciona la celda incial", _
Default:=Selection.Address, Type:=8)
If celda Is Nothing Then Exit Sub
'
If celda.Count > 1 Then
MsgBox "Solamente debes seleccionar una celda"
Exit Sub
End If
'
wcolor = InputBox("Escribe el número de color, ejemplo: 3 rojo, 4 verde, 5 azul, 6 amarillo", "COLOR DE CELDAS")
If wcolor = "" Then Exit Sub
If Not IsNumeric(wcolor) Then
MsgBox "Introduce un número válido"
Exit Sub
End If
wcolor = Val(wcolor)
If Int(wcolor) <> wcolor Then
MsgBox "Introduce un número válido"
Exit Sub
End If
'
Range(celda, celda.Offset(12, 15)).Select
Selection.Interior.ColorIndex = wcolor
celda.Select
End Sub' : ) 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias ' : )
