Llenar textbox desde varias celdas con condición.
Tengo una macro donde tengo un texbox el cual debe lloenarse con varias celdas de la hoja, como hago para poner condición si otra celda es 1 o 0 y de acuerdo a esos números el textbox se llena de algunas celdas, por el momento tengo esto:
Private Sub LA39_Change()
If LA39 = "Enero" Then
If Range("f7") <> "0" Then
TextBox6.Text = Range("a7") & "" & Range("a8")
End If
ElseIf LA39 = "Febrero" Then
TextBox6.Text = Range("a9") & "" & Range("a10")
End If
End Sub
1 respuesta
H o l a : Te anexo un ejemplo, de lo que supongo quieres lograr:
Private Sub LA39_Change()
'Act.Por.Dante Amor
TextBox6 = ""
Select Case LA39
Case "Enero"
If Range("f7") = 1 Then
c1 = "A7"
c2 = "A8"
Else
c1 = "B7"
c2 = "B8"
End If
Case "Febrero"
If Range("f7") = 1 Then
c1 = "A9"
c2 = "A10"
Else
c1 = "B9"
c2 = "B10"
End If
Case "Marzo"
If Range("f7") = 1 Then
c1 = "A11"
c2 = "A12"
Else
c1 = "B11"
c2 = "B12"
End If
Case Else: sincelda = True
End Select
If sincelda = False Then
TextBox6.Value = Range(c1) & " " & Range(c2)
End If
End SubEn la sentencia Select Case puse "Enero", "Febrero", "Marzo", para cada mes puse la condición si la celda F7 = 1, entonces pongo las celdas en las variables c1 y c2, si no es igual a 1 entonces pongo otras celdas en c1 y c2. Cambia las celdas correspondientes para cada mes y para cada valor de 1 y 0.
Si necesitas los demás meses, entonces copia el ejemplo de uno de los meses. Al final, el textbox6 se llenará con la selección realizada.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
