Problema con Set Rango
Publicado por Francisco (8 intervenciones) el 30/09/2020 16:02:59
Solamente quiero salir de una duda, ya que no pude utilizar "Set". ¿Dónde esta el error al usar el set? o ¿solo aplica utilizarlo para algunos casos?
aun así hice que funcionara el código de otra manera.
aun así hice que funcionara el código de otra manera.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Sub colorEstatus(filaRegistro, hj, i)
Dim A As String, R As String, V As String
Dim Rango As Range
Dim tTextoE As String
Sheets(hj).Select
tTextoE = UF_TbjR.CBEstatus.Text
'Set Rango = Range(Cells(filaRegistro, i)) <=== no entendí porque me aparecia el error 1004 Range de objeto _global
A = RGB(255, 192, 0)
R = RGB(255, 0, 0)
V = RGB(0, 176, 80)
Select Case tTextoE
Case "Abierto"
Cells(filaRegistro, i).Select '<=== aqui tenia colocado rango.interior.color=R
Selection.Interior.Color = R
Case "Cerrado"
Cells(filaRegistro, i).Select
Selection.Interior.Color = V
Case "Cancelado"
Cells(filaRegistro, i).Select
Selection.Interior.Color = A
End Select
End Sub
Valora esta pregunta


0