Seia posible un mensaje en la Calculacion por cada optionbuton und checkbox que diga los resultados .

Tengo alrededor de 40 optionbuton y 40 checkbox que iteraptuan entre si para dar algún resultado matemático. Y ppregunto si seria posible cada vez que me se realice una operación me de un mensaje con los resultados.

Aquí abajo dejo un par de ejemplo de esa calculacion son muchos mas;

''programation de los Geräten
Apartir de Aqui es Sheets("GKP").Range("AY" & Bos_Satir).Value ...................ojo abajo esta MKp pero debe ir en GKP.......
Abajo esta MKp pero debe ir en GKP 'Stecker Buchse

bb = TextBox12.Value
dd5 = Sheets("MKP").Range("AY" & Bos_Satir).Value
cc = CDate(bb) - CDate(aa)
If CheckBox25.Value = True Then
Sheets("MKP").Range("AY" & Bos_Satir).Value = dd5 * cc
If OptionButton55.Value = True Then
Sheets("MKP").Range("AY" & Bos_Satir).Value = 1000
ElseIf OptionButton56.Value = True Then
Sheets("MKP").Range("AY" & Bos_Satir).Value = 2000
ElseIf OptionButton57.Value = True Then
Sheets("MKP").Range("AY" & Bos_Satir).Value = 3000
End If
If CheckBox22.Value = True Then
Sheets("MKP").Range("AY" & Bos_Satir).Value = Sheets("MKP").Range("AY" & Bos_Satir).Value
ElseIf CheckBox22.Value = "" Then
End If
If CheckBox23.Value = True Then
Sheets("MKP").Range("AY" & Bos_Satir).Value = 2 * Sheets("MKP").Range("AY" & Bos_Satir).Value
End If
If CheckBox24.Value = True Then
Sheets("MKP").Range("AY" & Bos_Satir).Value = 3 * Sheets("MKP").Range("AY" & Bos_Satir).Value
End If
If OptionButton44.Value = True Then
Sheets("MKP").Range("BP" & Bos_Satir).Value = 1
ElseIf OptionButton45.Value = True Then
Sheets("MKP").Range("BP" & Bos_Satir).Value = 2
End If

'Sicherungshalter Pressen

If OptionButton59.Value = True Then
Sheets("MKP").Range("AZ" & Bos_Satir).Value = 500
ElseIf OptionButton60.Value = True Then
Sheets("MKP").Range("AZ" & Bos_Satir).Value = 1000
ElseIf OptionButton61.Value = True Then
Sheets("MKP").Range("AZ" & Bos_Satir).Value = 1500
End If
If CheckBo26.Value = True Then
Sheets("MKP").Range("AZ" & Bos_Satir).Value = Sheets("MKP").Range("AZ" & Bos_Satir).Value
ElseIf CheckBox26.Value = "" Then
End If
If CheckBox27.Value = True Then
Sheets("MKP").Range("AZ" & Bos_Satir).Value = 2 * Sheets("MKP").Range("AZ" & Bos_Satir).Value
End If
If CheckBox28.Value = True Then
Sheets("MKP").Range("AZ" & Bos_Satir).Value = 3 * Sheets("MKP").Range("AZ" & Bos_Satir).Value
End If
bb = TextBox12.Value
dd6 = Sheets("MKP").Range("AZ" & Bos_Satir).Value
cc = CDate(bb) - CDate(aa)
If CheckBox29.Value = True Then
Sheets("MKP").Range("AZ" & Bos_Satir).Value = dd6 * cc
End If
If OptionButton46.Value = True Then
Sheets("MKP").Range("BQ" & Bos_Satir).Value = 1
ElseIf OptionButton48.Value = True Then
Sheets("MKP").Range("BQ" & Bos_Satir).Value = 2
End If

If OptionButton67.Value = True Then
Sheets("MKP").Range("BA" & Bos_Satir).Value = 500
ElseIf OptionButton68.Value = True Then
Sheets("MKP").Range("BA" & Bos_Satir).Value = 1000
ElseIf OptionButton69.Value = True Then
Sheets("MKP").Range("BA" & Bos_Satir).Value = 1500
End If
If CheckBo30.Value = True Then
Sheets("MKP").Range("BA" & Bos_Satir).Value = Sheets("MKP").Range("BA" & Bos_Satir).Value
ElseIf CheckBox30.Value = "" Then
End If
If CheckBox31.Value = True Then
Sheets("MKP").Range("BA" & Bos_Satir).Value = 2 * Sheets("MKP").Range("BA" & Bos_Satir).Value
End If
If CheckBox32.Value = True Then
Sheets("MKP").Range("BA" & Bos_Satir).Value = 3 * Sheets("MKP").Range("BA" & Bos_Satir).Value
End If

0

Añade tu respuesta

Haz clic para o