QUIERO QUE LAS CELDAS ACTIVAS SE PINTEN
Publicado por PABLO (2 intervenciones) el 21/02/2019 13:50:52
hola buenas.
tengo la siguiente problema.
quiero que en una fila determinada solo se pinten las celdas que estén dentro de un rango de inicio y termino de una hora y tambien una opcion para pintar solo las celdas activas en una fila osea solo las que tengan datos en su interior y el resto se mantengan igual.
muchas gracias por su ayuda y perdón si no me expreso bien.
-
tengo la siguiente problema.
quiero que en una fila determinada solo se pinten las celdas que estén dentro de un rango de inicio y termino de una hora y tambien una opcion para pintar solo las celdas activas en una fila osea solo las que tengan datos en su interior y el resto se mantengan igual.
muchas gracias por su ayuda y perdón si no me expreso bien.
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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
Private Sub cmdIng2_Click()
Dim h, m, columnaI, columnaF As Integer
With Worksheets("Hoja1")
hi = txtHITA.Text
mi = txtMITA.Text
mf = txtMFTA.Text
hf = txtHFTA.Text
' REFERENCIA HORAS hi y hf
Select Case hi
Case 8
columnaI = 3Case 9
columnaI = 7Case 10
columnaI = 11Case 11
columnaI = 15Case 12
columnaI = 19Case 13
columnaI = 23Case 14
columnaI = 27Case 15
columnaI = 31Case 16
columnaI = 35Case 17
columnaI = 39Case 18
columnaI = 43Case 19
columnaI = 47End Select
Select Case hf
Case 8
columnaF = 3Case 9
columnaF = 7Case 10
columnaF = 11Case 11
columnaF = 15Case 12
columnaF = 19Case 13
columnaF = 23Case 14
columnaF = 27Case 15
columnaF = 31Case 16
columnaF = 35Case 17
columnaF = 39Case 18
columnaF = 43Case 19
columnaF = 47End Select
'End If
'REFERENCIA MINUTOS mi y mf
Select Case mi
Case 0 To 15
mi = columnaICase 16 To 30
mi = columnaI + 1
Case 31 To 45
mi = columnaI + 2
Case 46 To 60
mi = columnaI + 3
End Select
Select Case mf
Case 0 To 15
mf = columnaFCase 16 To 30
mf = columnaF + 1
Case 31 To 45
mf = columnaF + 2
Case 46 To 60
mf = columnaF + 3
End Select
'ESCRIBIR EN LA CELDA HORA INICIAL
.Cells(8, mi) = "[" & txtHITA.Text & ":" & txtMITA.Text
.Cells(8, mi + 1) = "-"
.Cells(9, mi + 1) = txtCanTA.Text
'ESCRIBIR EN LA CELDA HORA FINAL
Cells(8, mf) = txtHFTA.Text & ":" & txtMFTA.Text & "]"
End With
End Sub
-
Valora esta pregunta
0
