Variar celdas a través de un range
Publicado por Erik (7 intervenciones) el 19/10/2019 23:01:05
Tengo el siguiente código en diferentes hojas por dias de la semana:
La pregunta es si es posible que estas celdas cambien a través de un userform, ya que tengo lo sgte:
La idea es que la cantidad de celdas cambien a partir de lo elegido en los ComboBox del userform. Desde ya gracias por sus respuestas.
1
2
3
4
5
6
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("C4,C6,C7,C9,C10,C12,C13,C15,C16,C18,C19,C21,C23,C24,C25,C26,C28")) Is Nothing Then
UserForm1.ShowElse
End If
End Sub
La pregunta es si es posible que estas celdas cambien a través de un userform, ya que tengo lo sgte:
1
2
3
4
5
6
7
8
9
10
11
12
'Asigna cupos por horario
'09:00, A
If ComboBox3.Value = "" Then
Range("B3:C100").ClearContents
nfila = 3Else
Range("B3:C100").ClearContents
Range("B3") = "9:00 - 12:30"
Range("C3") = "Nombre"
celdaturnoA = Range("C4") 'AQUI SE ESTABLECEN LAS CELDAS PARA EL CÓDIGO DEL WORKSHEET
nfila = 4 + ComboBox3.Value
End If
Valora esta pregunta
0
