Tengo varios textbox que se cargan con el listbox y cuando ejecutan Todos click se me ejecutan todos y solo quiero que se ...

Tengo los siguientes textebox:

  If OptionButton18.Value = True Then
Sheets("MKP").Range("O" & Bos_Satir).Value = Val(TextBox2) * Val(TextBox3) * ComboBox3.Value
ElseIf OptionButton19.Value = True Then
Sheets("MKP").Range("P" & Bos_Satir).Value = Val(TextBox2) * Val(TextBox3) * ComboBox3.Value
ElseIf OptionButton20.Value = True Then
Sheets("MKP").Range("Q" & Bos_Satir).Value = Val(TextBox2) * Val(TextBox3) * ComboBox3.Value
ElseIf OptionButton21.Value = True Then
Sheets("MKP").Range("R" & Bos_Satir).Value = Val(TextBox2) * Val(TextBox3) * ComboBox3.Value
ElseIf OptionButton22.Value = True Then
Sheets("MKP").Range("S" & Bos_Satir).Value = Val(TextBox2) * Val(TextBox3) * ComboBox3.Value
End If
'MKp und MKN divido por la production dirai de una Maquina y nos los dias que durara ese proceso
If OptionButton18.Value = True Then
Sheets("MKP").Range("AT" & Bos_Satir).Value = Val(TextBox28.Text) / 5000
ElseIf OptionButton19.Value = True Then
Sheets("MKP").Range("AU" & Bos_Satir).Value = Val(TextBox29.Text) / 550
ElseIf OptionButton20.Value = True Then
Sheets("MKP").Range("AV" & Bos_Satir).Value = Val(TextBox30.Text) / 540
ElseIf OptionButton21.Value = True Then
Sheets("MKP").Range("AW" & Bos_Satir).Value = Val(TextBox31.Text) / 900
ElseIf OptionButton22.Value = True Then
Sheets("MKP").Range("AX" & Bos_Satir).Value = Val(TextBox32.Text) / 360
End If

Es posible que un optionbutton pueda ejercitar dos operaciones-Es un poco referido a la pregunta pero creo que la formulacion esta esla mejor

1

1 respuesta

Respuesta
1

Sí. Sería como este ejemplo:

If OptionButton18.Value = True Then
   Sheets("MKP").Range("O" & Bos_Satir).Value = Val(TextBox2) * Val(TextBox3) * ComboBox3.Value
   Sheets("MKP").Range("AT" & Bos_Satir).Value = Val(TextBox28.Text) / 5000
ElseIf OptionButton19.Value = True Then
   Sheets("MKP").Range("P" & Bos_Satir).Value = Val(TextBox2) * Val(TextBox3) * ComboBox3.Value
   Sheets("MKP").Range("AU" & Bos_Satir).Value = Val(TextBox29.Text) / 550
'etc
EndIf

.

'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

.

Avísame cualquier duda

.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas