Adaptar código según formulario de combobox
Tengo este codigo:
Private Sub CommandButton1_Click()
Dim uf, fila As Integer
uf = ActiveSheet.Range("C" & Rows.Count).End(xlUp).Row
fila = 2
While fila <= uf
If ActiveSheet.Cells(fila, 3) = Empty Then
ActiveSheet.Cells(fila, 3) = 0
End If
fila = fila + 1
Wend
End Sub
Private Sub UserForm_Activate()
ComboBox1. AddItem "1"
ComboBox1. AddItem "2"
ComboBox1. AddItem "3"
ComboBox1. AddItem "4"
ComboBox2. AddItem "1"
ComboBox2. AddItem "2"
ComboBox2. AddItem "3"
End Sub
Quisiera adaptarlo a la siguiente manera de la fila 3 a la fila 46
si CBx1 =1 y CBx2=1 rellenar celdas vacías de la columna "C" con "0"
si CBx1=1 y CBx2=2 rellenar celdas vacías de la columna "D" con "0"
si CBx1=1 y CBx2=3 rellenar celdas vacías de la columna "E" con "0"
si CBx1=2 y CBx2=1 rellenar celdas vacías de la columna "F" con "0"
si CBx1=2 y CBx2=2 rellenar celdas vacías de la columna "G" con "0"
si CBx1=3 y CBx2=1 rellenar celdas vacías de la columna "H" con "0"
si CBx1=3 y CBx2=2 rellenar celdas vacías de la columna "I" con "0"
si CBx1=4 y CBx2=1 rellenar celdas vacías de la columna "J" con "0"
si CBx1=4 y CBx2=2 rellenar celdas vacías de la columna "K" con "0"
Agradezco si me pudieran dar una idea para hacerlo.
1 respuesta
Te anexo el código actualizado
Private Sub CommandButton1_Click() 'Por.Dante Amor col = "" If ComboBox1 = 1 And ComboBox2 = 1 Then col = "C" If ComboBox1 = 1 And ComboBox2 = 2 Then col = "D" If ComboBox1 = 1 And ComboBox2 = 3 Then col = "E" If ComboBox1 = 2 And ComboBox2 = 1 Then col = "F" If ComboBox1 = 2 And ComboBox2 = 2 Then col = "G" If ComboBox1 = 3 And ComboBox2 = 1 Then col = "H" If ComboBox1 = 3 And ComboBox2 = 2 Then col = "I" If ComboBox1 = 4 And ComboBox2 = 1 Then col = "J" If ComboBox1 = 4 And ComboBox2 = 2 Then col = "K" ' If col <> "" Then u = Range(col & Rows.Count).End(xlUp).Row If u > 2 Then Range(col & "2:" & col & u).SpecialCells(xlCellTypeBlanks) = "0" End If End Sub ' Private Sub UserForm_Activate() ComboBox1. AddItem 1 ComboBox1. AddItem 2 ComboBox1. AddItem 3 ComboBox1. AddItem 4 ' ComboBox2. AddItem 1 ComboBox2. AddItem 2 ComboBox2. AddItem 3 End Sub
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
¡Gracias! Como siempre, excelente Dante Amor quedo perfecto.
