Tengo problema con la división de en userfrom

Tengo problemas que no se resolver con lo mostrado en ese código, además la divison no se efectúa

1 respuesta

Respuesta

Eusebio pero ¿qué error te da? O ¿Qué resultado da? ¿Qué ocurre? ¿Qué valores hay en las celdas de las que salen las variables? Da detalles para ayudarte.

Abraham Valencia

no he declarado ninguna variable

el codigo:

Private Sub CommandButton1_Click()

Pass = "chevo"
Sheets("MKP").Unprotect "chevo"
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
ActiveSheet.DisplayPageBreaks = False
Dim Fecha As Date
Dim Fecha1 As Date
Fecha = DTPicker1
Fecha1 = DTPicker2
TextBox11 = Fecha
TextBox12 = Fecha1
Sheets("MKP").Range("L2") = Fecha
Sheets("MKP").Range("M2") = Fecha1

If Me.ComboBox1.Value = "" _
Or Me.ComboBox2.Value = "" _
Or Me.TextBox3.Value = "" Then

Call MsgBox("Fehlen Daten", vbInformation, "Wählen Daten")
Exit Sub
End If
Son_Dolu_Satir = Sheets("MKP").Range("A65536").End(xlUp).Row
Bos_Satir = Son_Dolu_Satir + 1
Sheets("MKP").Range("A" & Bos_Satir).Value = _
Application.WorksheetFunction.Max(Sheets("MKP").Range("A:A")) + 1
Sheets("MKP").Range("D" & Bos_Satir).Value = ComboBox2.Value
Sheets("MKP").Range("T" & Bos_Satir).Value = ComboBox3.Value
Sheets("MKP").Range("DB" & Bos_Satir).Value = ComboBox4.Value 'MASCHINEN
Sheets("MKP").Range("DJ" & Bos_Satir).Value = ComboBox5.Value 'Geräten
Sheets("MKP").Range("B" & Bos_Satir).Value = TextBox1.Text 'BN
Sheets("MKP").Range("C" & Bos_Satir).Value = TextBox169.Text
Sheets("MKP").Range("E" & Bos_Satir).Value = TextBox2.Text
Sheets("MKP").Range("F" & Bos_Satir).Value = Val(TextBox3.Text) 'SPLEIßKABEL
Sheets("MKP").Range("l" & Bos_Satir).Value = TextBox11
Sheets("MKP").Range("m" & Bos_Satir).Value = TextBox12
Sheets("MKP").Range("DC" & Bos_Satir).Value = TextBox138
Sheets("MKP").Range("EE" & Bos_Satir).Value = Val(TextBox187) 'TECSUN KABEL
'GERÄTEN
Sheets("MKP").Range("DK" & Bos_Satir).Value = TextBox156 'ST-BU
Sheets("MKP").Range("DL" & Bos_Satir).Value = TextBox159 'SIHAPR
Sheets("MKP").Range("DM" & Bos_Satir).Value = TextBox160 'SIHACR
Sheets("MKP").Range("DN" & Bos_Satir).Value = TextBox161 'ARCCR
Sheets("MKP").Range("DO" & Bos_Satir).Value = TextBox157 'LÖKO
Sheets("MKP").Range("DP" & Bos_Satir).Value = TextBox179 'SICHERUNG
'GERÄTEN WERTE 'Geräte Nutzungkapazität
Sheets("MKP").Range("BD" & Bos_Satir).Value = Val(TextBox163.Value) 'ST-BU
Sheets("MKP").Range("BE" & Bos_Satir).Value = Val(TextBox165.Value) 'SIHAPR
Sheets("MKP").Range("BF" & Bos_Satir).Value = Val(TextBox166.Value) 'SIHACR
Sheets("MKP").Range("BG" & Bos_Satir).Value = Val(TextBox167.Value) 'ARCCR
Sheets("MKP").Range("BH" & Bos_Satir).Value = Val(TextBox162.Value) 'LÖKO
'MASCHINEN
Sheets("MKP").Range("DD" & Bos_Satir).Value = TextBox140
Sheets("MKP").Range("DE" & Bos_Satir).Value = TextBox141
Sheets("MKP").Range("DF" & Bos_Satir).Value = TextBox142
Sheets("MKP").Range("DG" & Bos_Satir).Value = TextBox143
Sheets("MKP").Range("DH" & Bos_Satir).Value = TextBox176
'MASCHINEN KPN
Sheets("MKP").Range("S" & Bos_Satir).Value = TextBox33.Value
Sheets("MKP").Range("O" & Bos_Satir).Value = TextBox35.Value
Sheets("MKP").Range("P" & Bos_Satir).Value = TextBox36.Value
Sheets("MKP").Range("Q" & Bos_Satir).Value = TextBox37.Value
Sheets("MKP").Range("R" & Bos_Satir).Value = TextBox38.Value
'freigewördene Maschinekapazität
Sheets("MKP").Range("U" & Bos_Satir).Value = Val(TextBox22.Value)
Sheets("MKP").Range("V" & Bos_Satir).Value = Val(TextBox23.Value)
Sheets("MKP").Range("W" & Bos_Satir).Value = Val(TextBox24.Value)
Sheets("MKP").Range("X" & Bos_Satir).Value = Val(TextBox25.Value)
Sheets("MKP").Range("Y" & Bos_Satir).Value = Val(TextBox27.Value)
'Direncia entre la MKP y MKN
Sheets("MKP").Range("CC" & Bos_Satir).Value = Val(TextBox9.Value)
' Hoy debo anaizar porque no funciona la divison del texbox 35,36,37,38,39,33 bdebe haber un error ver side división de ceros_
'talvez iguale a Val(TextBox2) * Val(TextBox3) * ComboBox3.Value, puede ser que sea la solucion
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(TextBox2) * Val(TextBox3) * ComboBox3.Value / 4500 'Komax
ElseIf OptionButton19.Value = True Then
Sheets("MKP").Range("P" & Bos_Satir).Value = Val(TextBox2.Value) * Val(TextBox3) * ComboBox3.Value
Sheets("MKP").Range("AU" & Bos_Satir).Value = Val(TextBox2.Value) * Val(TextBox3) * ComboBox3.Value / 1800 'Crimpe
ElseIf OptionButton20.Value = True Then
Sheets("MKP").Range("Q" & Bos_Satir).Value = Val(TextBox2.Value) * Val(TextBox3) * ComboBox3.Value
Sheets("MKP").Range("AV" & Bos_Satir).Value = Val(TextBox2.Value) * Val(TextBox3) * ComboBox3.Value / 1500 'Kolb
ElseIf OptionButton21.Value = True Then
Sheets("MKP").Range("R" & Bos_Satir).Value = Val(TextBox2.Value) * Val(TextBox3) * ComboBox3.Value
Sheets("MKP").Range("AW" & Bos_Satir).Value = Val(TextBox2.Value) * Val(TextBox3) * ComboBox3.Value / 2700 ' Arburg
ElseIf OptionButton22.Value = True Then
Sheets("MKP").Range("S" & Bos_Satir).Value = Val(TextBox2.Value) * Val(TextBox3) * ComboBox3.Value
Sheets("MKP").Range("AX" & Bos_Satir).Value = Val(TextBox2.Value) * Val(TextBox3) * ComboBox3.Value / 900 'SiGu
End If
'Komax valores en Stück und Zeitraum
aa = Fecha
bb = Fecha1
EE = Sheets("MKP").Range("DU" & Bos_Satir).Value
dd = Sheets("MKP").Range("G" & Bos_Satir).Value
CC = CDate(bb) - CDate(aa)
If CheckBox4.Value = True Then
Sheets("MKP").Range("G" & Bos_Satir).Value = dd * CC
Sheets("MKP").Range("DU" & Bos_Satir).Value = EE / CC
End If
If OptionButton1.Value = True Then
Sheets("MKP").Range("G" & Bos_Satir).Value = 1500 '5000 m Kabel wären per maschinen je schickt geschniten
Sheets("MKP").Range("DU" & Bos_Satir).Value = Val(TextBox35.Value) / 1500 'ZEIT KALKULATION
ElseIf OptionButton2.Value = True Then
Sheets("MKP").Range("G" & Bos_Satir).Value = 10000 '10000 m Kabel wären per 2 maschinen je schick geschniten
Sheets("MKP").Range("DU" & Bos_Satir).Value = Val(TextBox35.Value) / 3000 'ZEIT KALKULATION
ElseIf OptionButton3.Value = True Then
Sheets("MKP").Range("G" & Bos_Satir).Value = 15000
Sheets("MKP").Range("DU" & Bos_Satir).Value = Val(TextBox35.Value) / 4500 'ZEIT KALKULATION
End If
If CheckBox1.Value = True Then
Sheets("MKP").Range("G" & Bos_Satir).Value = Sheets("MKP").Range("G" & Bos_Satir).Value
Sheets("MKP").Range("DU" & Bos_Satir).Value = Sheets("MKP").Range("DU" & Bos_Satir).Value 'ZEIT KALKULATION
ElseIf CheckBox1.Value = "" Then
End If
If CheckBox2.Value = True Then
Sheets("MKP").Range("G" & Bos_Satir).Value = 2 * Sheets("MKP").Range("G" & Bos_Satir).Value
Sheets("MKP").Range("DU" & Bos_Satir).Value = Sheets("MKP").Range("DU" & Bos_Satir).Value / 2 'ZEIT KALKULATION
End If
If CheckBox3.Value = True Then
Sheets("MKP").Range("G" & Bos_Satir).Value = 3 * Sheets("MKP").Range("G" & Bos_Satir).Value
Sheets("MKP").Range("DU" & Bos_Satir).Value = Sheets("MKP").Range("DU" & Bos_Satir).Value / 3
End If
' Crimpe
EE1 = Sheets("MKP").Range("DV" & Bos_Satir).Value
aa = Fecha
bb = Fecha1
dd1 = Sheets("MKP").Range("H" & Bos_Satir).Value
CC = CDate(bb) - CDate(aa)
If CheckBox8.Value = True Then
Sheets("MKP").Range("H" & Bos_Satir).Value = dd1 * CC
Sheets("MKP").Range("DV" & Bos_Satir).Value = EE1 / CC 'CRIMPEN ZEIT
End If
If OptionButton4.Value = True Then
Sheets("MKP").Range("H" & Bos_Satir).Value = 600 'Crimpe
Sheets("MKP").Range("DV" & Bos_Satir).Value = Val(TextBox36.Value) / 600
ElseIf OptionButton5.Value = True Then
Sheets("MKP").Range("H" & Bos_Satir).Value = 1200
Sheets("MKP").Range("DV" & Bos_Satir).Value = Val(TextBox36.Value) / 1200
ElseIf OptionButton6.Value = True Then
Sheets("MKP").Range("H" & Bos_Satir).Value = 1800
Sheets("MKP").Range("DV" & Bos_Satir).Value = Val(TextBox36.Value) / 1800
End If
If CheckBox5.Value = True Then
Sheets("MKP").Range("H" & Bos_Satir).Value = Sheets("MKP").Range("H" & Bos_Satir).Value
Sheets("MKP").Range("DV" & Bos_Satir).Value = Val(TextBox36.Value)
ElseIf CheckBox6.Value = "" Then
End If
If CheckBox6.Value = True Then
Sheets("MKP").Range("H" & Bos_Satir).Value = 2 * Sheets("MKP").Range("H" & Bos_Satir).Value
Sheets("MKP").Range("DV" & Bos_Satir).Value = Val(TextBox36.Value) / 2
End If
If CheckBox7.Value = True Then
Sheets("MKP").Range("H" & Bos_Satir).Value = 3 * Sheets("MKP").Range("H" & Bos_Satir).Value
Sheets("MKP").Range("DV" & Bos_Satir).Value = Val(TextBox36.Value) / 3
End If
'KOLB MASCHINEN KALKULATION
EE2 = Sheets("MKP").Range("DW" & Bos_Satir).Value
aa = Fecha
bb = Fecha1
dd2 = Sheets("MKP").Range("I" & Bos_Satir).Value
CC = CDate(bb) - CDate(aa)
If CheckBox12.Value = True Then
Sheets("MKP").Range("I" & Bos_Satir).Value = dd2 * CC
Sheets("MKP").Range("DW" & Bos_Satir).Value = EE2 / CC
End If
If OptionButton7.Value = True Then
Sheets("MKP").Range("I" & Bos_Satir).Value = 500 'Kolb
Sheets("MKP").Range("DW" & Bos_Satir).Value = Val(TextBox37.Value) / 500
ElseIf OptionButton8.Value = True Then
Sheets("MKP").Range("I" & Bos_Satir).Value = 1000
Sheets("MKP").Range("DW" & Bos_Satir).Value = Val(TextBox37.Value) / 1000
ElseIf OptionButton9.Value = True Then
Sheets("MKP").Range("I" & Bos_Satir).Value = 1500
Sheets("MKP").Range("DW" & Bos_Satir).Value = Val(TextBox36.Value) / 1500
End If
If CheckBox9.Value = True Then
Sheets("MKP").Range("I" & Bos_Satir).Value = Sheets("MKP").Range("I" & Bos_Satir).Value 'Kolb
Sheets("MKP").Range("DX" & Bos_Satir).Value = Sheets("MKP").Range("Dw" & Bos_Satir).Value
ElseIf CheckBox9.Value = "" Then
End If
If CheckBox10.Value = True Then
Sheets("MKP").Range("I" & Bos_Satir).Value = 2 * Sheets("MKP").Range("I" & Bos_Satir).Value
Sheets("MKP").Range("DX" & Bos_Satir).Value = Sheets("MKP").Range("Dw" & Bos_Satir).Value / 2
End If
If CheckBox11.Value = True Then
Sheets("MKP").Range("I" & Bos_Satir).Value = 3 * Sheets("MKP").Range("I" & Bos_Satir).Value
Sheets("MKP").Range("DX" & Bos_Satir).Value = Sheets("MKP").Range("Dw" & Bos_Satir).Value / 3
End If

'Arburg KALKULATION
EE3 = Sheets("MKP").Range("DX" & Bos_Satir).Value / 900
aa = Fecha
bb = Fecha1
dd3 = Sheets("MKP").Range("J" & Bos_Satir).Value
CC = CDate(bb) - CDate(aa)
If CheckBox17.Value = True Then
Sheets("MKP").Range("J" & Bos_Satir).Value = dd3 * CC
Sheets("MKP").Range("Dx" & Bos_Satir).Value = EE3 / CC
End If
'Arburg valores en Stück
If OptionButton10.Value = True Then
Sheets("MKP").Range("J" & Bos_Satir).Value = 900 'Arburg
Sheets("MKP").Range("DX" & Bos_Satir).Value = Val(TextBox38.Value) / 900
ElseIf OptionButton11.Value = True Then
Sheets("MKP").Range("J" & Bos_Satir).Value = 1800
Sheets("MKP").Range("DX" & Bos_Satir).Value = Val(TextBox38.Value) / 1800
ElseIf OptionButton12.Value = True Then
Sheets("MKP").Range("J" & Bos_Satir).Value = 2700
Sheets("MKP").Range("DX" & Bos_Satir).Value = Val(TextBox38.Value) / 2700
End If
If CheckBox14.Value = True Then
Sheets("MKP").Range("J" & Bos_Satir).Value = Sheets("MKP").Range("J" & Bos_Satir).Value
Sheets("MKP").Range("DX" & Bos_Satir).Value = Sheets("MKP").Range("DX" & Bos_Satir).Value
ElseIf CheckBox14.Value = "" Then
End If
If CheckBox15.Value = True Then
Sheets("MKP").Range("J" & Bos_Satir).Value = 2 * Sheets("MKP").Range("J" & Bos_Satir).Value
Sheets("MKP").Range("DX" & Bos_Satir).Value = Sheets("MKP").Range("DX" & Bos_Satir).Value / 2
End If
If CheckBox16.Value = True Then
Sheets("MKP").Range("J" & Bos_Satir).Value = 3 * Sheets("MKP").Range("J" & Bos_Satir).Value
Sheets("MKP").Range("DX" & Bos_Satir).Value = Sheets("MKP").Range("DX" & Bos_Satir).Value / 3
End If
EE4 = Sheets("MKP").Range("DY" & Bos_Satir).Value
aa = Fecha
bb = Fecha1
dd4 = Sheets("MKP").Range("K" & Bos_Satir).Value
CC = CDate(bb) - CDate(aa)
If CheckBox21.Value = True Then
Sheets("MKP").Range("K" & Bos_Satir).Value = dd4 * CC
Sheets("MKP").Range("DY" & Bos_Satir).Value = EE4 / CC
End If
'Steinl valores en Stück
If OptionButton13.Value = True Then
Sheets("MKP").Range("K" & Bos_Satir).Value = 300 'Steinl
Sheets("MKP").Range("DY" & Bos_Satir).Value = Val(TextBox33.Value) / 300
ElseIf OptionButton14.Value = True Then
Sheets("MKP").Range("K" & Bos_Satir).Value = 600
Sheets("MKP").Range("DY" & Bos_Satir).Value = Val(TextBox33.Value) / 600
ElseIf OptionButton15.Value = True Then
Sheets("MKP").Range("K" & Bos_Satir).Value = 900
Sheets("MKP").Range("DY" & Bos_Satir).Value = Val(TextBox33.Value) / 900
ElseIf OptionButton16.Value = True Then
Sheets("MKP").Range("K" & Bos_Satir).Value = 1200
Sheets("MKP").Range("DY" & Bos_Satir).Value = Val(TextBox33.Value) / 1200
ElseIf OptionButton17.Value = True Then
Sheets("MKP").Range("K" & Bos_Satir).Value = 1500
Sheets("MKP").Range("DY" & Bos_Satir).Value = Val(TextBox33.Value) / 1500
End If
If CheckBox18.Value = True Then
Sheets("MKP").Range("K" & Bos_Satir).Value = Sheets("MKP").Range("K" & Bos_Satir).Value
Sheets("MKP").Range("DY" & Bos_Satir).Value = Sheets("MKP").Range("DY" & Bos_Satir).Value
ElseIf CheckBox18.Value = "" Then
End If
If CheckBox19.Value = True Then
Sheets("MKP").Range("K" & Bos_Satir).Value = 2 * Sheets("MKP").Range("K" & Bos_Satir).Value
Sheets("MKP").Range("DY" & Bos_Satir).Value = Sheets("MKP").Range("DY" & Bos_Satir).Value / 2
End If
If CheckBox20.Value = True Then
Sheets("MKP").Range("K" & Bos_Satir).Value = 3 * Sheets("MKP").Range("K" & Bos_Satir).Value
Sheets("MKP").Range("DY" & Bos_Satir).Value = Sheets("MKP").Range("DY" & Bos_Satir).Value / 3
End If
If OptionButton28.Value = True Then
Sheets("MKP").Range("Z" & Bos_Satir).Value = 1 'Komax Kaput
ElseIf OptionButton29.Value = True Then
Sheets("MKP").Range("Z" & Bos_Satir).Value = 2
End If
If OptionButton32.Value = True Then
Sheets("MKP").Range("AA" & Bos_Satir).Value = 1 ' Crimpe
ElseIf OptionButton30.Value = True Then
Sheets("MKP").Range("AA" & Bos_Satir).Value = 2
End If
If OptionButton33.Value = True Then
Sheets("MKP").Range("AB" & Bos_Satir).Value = 1 ' Kolb
ElseIf OptionButton34.Value = True Then
Sheets("MKP").Range("AB" & Bos_Satir).Value = 2
End If
If OptionButton35.Value = True Then
Sheets("MKP").Range("AC" & Bos_Satir).Value = 1 ' Arburg
ElseIf OptionButton36.Value = True Then
Sheets("MKP").Range("AC" & Bos_Satir).Value = 2
End If
If OptionButton37.Value = True Then
Sheets("MKP").Range("AD" & Bos_Satir).Value = 1 ' Steinl
ElseIf OptionButton38.Value = True Then
Sheets("MKP").Range("AD" & Bos_Satir).Value = 2
End If
If CheckBox18.Value = True Then
Sheets("MKP").Range("K" & Bos_Satir).Value = Sheets("MKP").Range("K" & Bos_Satir).Value
ElseIf CheckBox18.Value = "" Then
End If
If Sheets("MKP").Range("AE" & Bos_Satir).Value >= Sheets("MKP").Range("AJ" & Bos_Satir).Value Then
Sheets("MKP").Range("AO" & Bos_Satir).Value = "Besetzt"
Else
Sheets("MKP").Range("AO" & Bos_Satir).Value = "Frei"
End If
If Sheets("MKP").Range("AE" & Bos_Satir).Value > Sheets("MKP").Range("AJ" & Bos_Satir).Value Then 'funktion (Wenn)para saber cuando las maquinas ocupadas
'Sheets("MKP").Range("AO" & Bos_Satir).Value = "Besetzt"
Else
Sheets("MKP").Range("AO" & Bos_Satir).Value = "Frei"
End If
If Sheets("MKP").Range("AF" & Bos_Satir).Value > Sheets("MKP").Range("AK" & Bos_Satir).Value Then
Sheets("MKP").Range("AP" & Bos_Satir).Value = "Besetzt"
Else
Sheets("MKP").Range("AP" & Bos_Satir).Value = "Frei"
End If
If Sheets("MKP").Range("AG" & Bos_Satir).Value > Sheets("MKP").Range("AL" & Bos_Satir).Value Then
Sheets("MKP").Range("AQ" & Bos_Satir).Value = "Besetzt"
Else
Sheets("MKP").Range("AQ" & Bos_Satir).Value = "Frei"
End If
If Sheets("MKP").Range("AH" & Bos_Satir).Value > Sheets("MKP").Range("AM" & Bos_Satir).Value Then
Sheets("MKP").Range("AR" & Bos_Satir).Value = "Besetzt"
Else
Sheets("MKP").Range("AR" & Bos_Satir).Value = "Frei"
End If
If Sheets("MKP").Range("AL" & Bos_Satir).Value > Sheets("MKP").Range("AN" & Bos_Satir).Value Then
Sheets("MKP").Range("AS" & Bos_Satir).Value = "Besetzt"
Else
Sheets("MKP").Range("AS" & Bos_Satir).Value = "Frei"
End If
'programation de los Geräten cAMBIANDO EL TEXTBOX POR LA CLEDA AVER CUAL ES LA DIFERENCIA
'Stecker Buchse

aa = Fecha
bb = Fecha1
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
FF = Sheets("MKP").Range("EH" & Bos_Satir).Value / 3000 * CC
End If
If OptionButton55.Value = True Then
Sheets("MKP").Range("AY" & Bos_Satir).Value = 1000
Sheets("MKP").Range("EH" & Bos_Satir).Value = Val(TextBox163.Value) / 1000
ElseIf OptionButton56.Value = True Then
Sheets("MKP").Range("AY" & Bos_Satir).Value = 2000
Sheets("MKP").Range("EH" & Bos_Satir).Value = Val(TextBox163.Value) / 2000
ElseIf OptionButton57.Value = True Then
Sheets("MKP").Range("AY" & Bos_Satir).Value = 3000
Sheets("MKP").Range("EH" & Bos_Satir).Value = Val(TextBox163.Value) / 3000
End If
If CheckBox22.Value = True Then
Sheets("MKP").Range("AY" & Bos_Satir).Value = Sheets("MKP").Range("AY" & Bos_Satir).Value
Sheets("MKP").Range("EH" & Bos_Satir).Value = Sheets("MKP").Range("EH" & 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
Sheets("MKP").Range("EH" & Bos_Satir).Value = Sheets("MKP").Range("EH" & Bos_Satir).Value / 2
End If
If CheckBox24.Value = True Then
Sheets("MKP").Range("AY" & Bos_Satir).Value = 3 * Sheets("MKP").Range("AY" & Bos_Satir).Value
Sheets("MKP").Range("EH" & Bos_Satir).Value = Sheets("MKP").Range("EH" & Bos_Satir).Value / 3
End If
If OptionButton44.Value = True Then
Sheets("MKP").Range("Bx" & Bos_Satir).Value = 1 ' st-BuGeräte kaputt
ElseIf OptionButton45.Value = True Then
Sheets("MKP").Range("Bx" & Bos_Satir).Value = 2
End If
If OptionButton48.Value = True Then
Sheets("MKP").Range("BY" & Bos_Satir).Value = 1 ' SiHaPr Geräte kaputt
ElseIf OptionButton46.Value = True Then
Sheets("MKP").Range("BY" & Bos_Satir).Value = 2
End If
If OptionButton49.Value = True Then
Sheets("MKP").Range("Bz" & Bos_Satir).Value = 1 ' SiHaCr Geräte kaputt
ElseIf OptionButton50.Value = True Then
Sheets("MKP").Range("Bz" & Bos_Satir).Value = 2
End If
If OptionButton51.Value = True Then
Sheets("MKP").Range("CA" & Bos_Satir).Value = 1 ' ArCr kaputt
ElseIf OptionButton52.Value = True Then
Sheets("MKP").Range("CA" & Bos_Satir).Value = 2
End If
If OptionButton53.Value = True Then
Sheets("MKP").Range("CB" & Bos_Satir).Value = 1 ' LöKo kaputt
ElseIf OptionButton54.Value = True Then
Sheets("MKP").Range("CB" & Bos_Satir).Value = 2
End If
'SIHAPR
FF1 = Sheets("MKP").Range("EI" & Bos_Satir).Value / 1500
aa = Fecha
bb = Fecha1
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
Sheets("MKP").Range("EI" & Bos_Satir).Value = FF1 / CC
End If


If OptionButton59.Value = True Then
Sheets("MKP").Range("AZ" & Bos_Satir).Value = 500 ' SiHaPr
Sheets("MKP").Range("EI" & Bos_Satir).Value = Val(TextBox165.Value) / 500
ElseIf OptionButton60.Value = True Then
Sheets("MKP").Range("AZ" & Bos_Satir).Value = 1000
Sheets("MKP").Range("EI" & Bos_Satir).Value = Val(TextBox165.Value) / 1000
ElseIf OptionButton61.Value = True Then
Sheets("MKP").Range("AZ" & Bos_Satir).Value = 1500
Sheets("MKP").Range("EI" & Bos_Satir).Value = Val(TextBox165.Value) / 1500
End If
If CheckBox26.Value = True Then
Sheets("MKP").Range("AZ" & Bos_Satir).Value = Sheets("MKP").Range("AZ" & Bos_Satir).Value
Sheets("MKP").Range("EI" & Bos_Satir).Value = Sheets("MKP").Range("EI" & 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
Sheets("MKP").Range("EI" & Bos_Satir).Value = Sheets("MKP").Range("EI" & Bos_Satir).Value / 2
End If
If CheckBox28.Value = True Then
Sheets("MKP").Range("AZ" & Bos_Satir).Value = 3 * Sheets("MKP").Range("AZ" & Bos_Satir).Value
Sheets("MKP").Range("EI" & Bos_Satir).Value = Sheets("MKP").Range("EI" & Bos_Satir).Value / 3
End If
'SIHACR
FF2 = Sheets("MKP").Range("EJ" & Bos_Satir).Value
aa = Fecha
bb = Fecha1
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
Sheets("MKP").Range("EJ" & Bos_Satir).Value = FF2 / CC
End If


If OptionButton67.Value = True Then
Sheets("MKP").Range("BA" & Bos_Satir).Value = 500 'SiHaCr
Sheets("MKP").Range("EJ" & Bos_Satir).Value = Val(TextBox166.Value) / 500
ElseIf OptionButton68.Value = True Then
Sheets("MKP").Range("BA" & Bos_Satir).Value = 1000
Sheets("MKP").Range("EJ" & Bos_Satir).Value = Val(TextBox166.Value) / 1000
ElseIf OptionButton69.Value = True Then
Sheets("MKP").Range("BA" & Bos_Satir).Value = 1500
Sheets("MKP").Range("EJ" & Bos_Satir).Value = Val(TextBox166.Value) / 1500
End If
If CheckBox30.Value = True Then
Sheets("MKP").Range("BA" & Bos_Satir).Value = Sheets("MKP").Range("BA" & Bos_Satir).Value
Sheets("MKP").Range("EJ" & Bos_Satir).Value = Sheets("MKP").Range("EJ" & 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
Sheets("MKP").Range("EJ" & Bos_Satir).Value = Sheets("MKP").Range("EJ" & Bos_Satir).Value / 2
End If
If CheckBox32.Value = True Then
Sheets("MKP").Range("BA" & Bos_Satir).Value = 3 * Sheets("MKP").Range("BA" & Bos_Satir).Value
Sheets("MKP").Range("EJ" & Bos_Satir).Value = Sheets("MKP").Range("EJ" & Bos_Satir).Value / 3
End If
'ARCON
FF3 = Sheets("MKP").Range("EK" & Bos_Satir).Value
aa = Fecha
bb = Fecha1
dd7 = Sheets("MKP").Range("BA" & Bos_Satir).Value
CC = CDate(bb) - CDate(aa)
If CheckBox33.Value = True Then
Sheets("MKP").Range("BA" & Bos_Satir).Value = dd7 * CC
Sheets("MKP").Range("EK" & Bos_Satir).Value = FF3 / CC
'SiHaPr
End If

If OptionButton63.Value = True Then
Sheets("MKP").Range("BB" & Bos_Satir).Value = 200 'ArCCr
Sheets("MKP").Range("EK" & Bos_Satir).Value = Val(TextBox167.Value) / 200
ElseIf OptionButton64.Value = True Then
Sheets("MKP").Range("BB" & Bos_Satir).Value = 400
Sheets("MKP").Range("EK" & Bos_Satir).Value = Val(TextBox167.Value) / 400
ElseIf OptionButton65.Value = True Then
Sheets("MKP").Range("BB" & Bos_Satir).Value = 600
Sheets("MKP").Range("EK" & Bos_Satir).Value = Val(TextBox167.Value) / 600
End If
If CheckBox34.Value = True Then
Sheets("MKP").Range("BB" & Bos_Satir).Value = Sheets("MKP").Range("BB" & Bos_Satir).Value
Sheets("MKP").Range("EK" & Bos_Satir).Value = Sheets("MKP").Range("EK" & Bos_Satir).Value
ElseIf CheckBox34.Value = "" Then
End If
If CheckBox35.Value = True Then
Sheets("MKP").Range("BB" & Bos_Satir).Value = 2 * Sheets("MKP").Range("BB" & Bos_Satir).Value
Sheets("MKP").Range("EK" & Bos_Satir).Value = Sheets("MKP").Range("EK" & Bos_Satir).Value / 2
End If
If CheckBox36.Value = True Then
Sheets("MKP").Range("BB" & Bos_Satir).Value = 3 * Sheets("MKP").Range("BB" & Bos_Satir).Value
Sheets("MKP").Range("EK" & Bos_Satir).Value = Sheets("MKP").Range("EK" & Bos_Satir).Value / 3
End If
'LÖKO
FF4 = Sheets("MKP").Range("EL" & Bos_Satir).Value
aa = Fecha
bb = Fecha1
dd8 = Sheets("MKP").Range("BB" & Bos_Satir).Value
CC = CDate(bb) - CDate(aa)
If CheckBox37.Value = True Then
Sheets("MKP").Range("BB" & Bos_Satir).Value = dd8 * CC
Sheets("MKP").Range("EL" & Bos_Satir).Value = FF4 / CC
End If


If OptionButton40Value = True Then
Sheets("MKP").Range("BC" & Bos_Satir).Value = 200 'LöKo
Sheets("MKP").Range("EL" & Bos_Satir).Value = Val(TextBox162.Value) / 200
ElseIf OptionButton41.Value = True Then
Sheets("MKP").Range("BC" & Bos_Satir).Value = 400
Sheets("MKP").Range("EL" & Bos_Satir).Value = Val(TextBox162.Value) / 400
ElseIf OptionButton42.Value = True Then
Sheets("MKP").Range("BC" & Bos_Satir).Value = 600
Sheets("MKP").Range("EL" & Bos_Satir).Value = Val(TextBox162.Value) / 600
End If
If CheckBox38.Value = True Then
Sheets("MKP").Range("BC" & Bos_Satir).Value = Sheets("MKP").Range("BC" & Bos_Satir).Value
Sheets("MKP").Range("EL" & Bos_Satir).Value = Sheets("MKP").Range("EL" & Bos_Satir).Value
ElseIf CheckBox38.Value = "" Then
End If
If CheckBox39.Value = True Then
Sheets("MKP").Range("BC" & Bos_Satir).Value = 2 * Sheets("MKP").Range("BC" & Bos_Satir).Value
Sheets("MKP").Range("EL" & Bos_Satir).Value = Sheets("MKP").Range("EL" & Bos_Satir).Value / 2
End If
If CheckBox40.Value = True Then
Sheets("MKP").Range("BC" & Bos_Satir).Value = 3 * Sheets("MKP").Range("BC" & Bos_Satir).Value
Sheets("MKP").Range("EL" & Bos_Satir).Value = Sheets("MKP").Range("EL" & Bos_Satir).Value / 3
End If
aa = Fecha
bb = Fecha1
dd9 = Sheets("MKP").Range("BC" & Bos_Satir).Value
CC = CDate(bb) - CDate(aa)
If CheckBox41.Value = True Then
Sheets("MKP").Range("BC" & Bos_Satir).Value = dd9 * CC
End If
Sheets("MKP").Range("AY" & Bos_Satir).HorizontalAlignment = xlRight
ListBox1.Clear
refresh
Label14.Caption = ListBox1.ListCount
TextBox2.Value = ""
TextBox22.Value = ""
TextBox23.Value = ""
TextBox24.Value = ""
TextBox25.Value = ""
TextBox27.Value = ""
TextBox57.Value = ""
TextBox58.Value = ""
TextBox59.Value = ""
TextBox60.Value = ""
TextBox61.Value = ""
TextBox138 = ""
TextBox169 = ""
TextBox1 = ""
TextBox3 = ""
TextBox170 = ""
TextBox174 = ""
TextBox171 = ""
TextBox172 = ""
TextBox173 = ""
TextBox178 = ""
ComboBox1 = ""
ComboBox2 = ""
TextBox138 = ""
TextBox140 = ""
TextBox141 = ""
TextBox142 = ""
TextBox143 = ""
TextBox151 = ""
TextBox152 = ""
TextBox154 = ""
TextBox155 = ""
TextBox156 = ""
ComboBox4 = ""
TextBox2 = ""
TextBox150 = ""
TextBox177 = ""
TextBox176 = ""
TextBox156 = ""
TextBox159 = ""
TextBox160 = ""
TextBox161 = ""
TextBox157 = ""
TextBox179 = ""
TextBox163 = ""
TextBox165 = ""
TextBox167 = ""
TextBox162 = ""
ComboBox5 = ""
'Cambiar color en Arbeitsmappe

ActiveSheet.Protect
End Sub

No las declarado pero las usas para la división, en lugar de enviar todo eso, responde por favor las preguntas... de las imágenes ¿cuáles son los problemas puntuales? ¿Qué celdas de esa imagen son las del problema y cuál es el problema? etc...

Abraham Valencia

El problema esta en las celdas Du, DV, DW, DX, DY; no seproduce la división y en el código se observa esta operación.

Disculpa por toda esa información

Lo siento estimado pero sigue sin entenderse. Yo al ver tu "Userform" en modo de ejecución no entiendo porque no somos adivinos para saber que valores tiene todo esto:

aa = Fecha
bb = Fecha1
EE = Sheets("MKP").Range("DU" & Bos_Satir).Value
dd = Sheets("MKP").Range("G" & Bos_Satir).Value
CC = CDate(bb) - CDate(aa)

Además muestras una imagen con celdas de columnas, unas en blanco otras con valores pero no dices cuales son las del supuesto "error" o por qué supuestamente es un error. No das indicio mínimo como por ejemplo: "en el textbox1 dice 10 y en el textbox2 dice 5 y al poner textbox1/textbox2 dale 4"...

Abraham Valencia

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Licencias para Food truck en terreno privado

Mi nombre es Josep, Hace unos meses tengo una idea de montar un burguer o un puesto de hamburguesas y perritos, a la salida de un local de ocio, tengo una parcela privada donde dispongo de Luz y Agua potable. También puedo disponer de un food truck o...
11 respuestas

Modificar proyecto básico de una vivienda unifamiliar del año 2005

Tengo un proyecto básico de Junio de 2005, para construir una vivienda unifamiliar. Mi pregunta es si se puede modificar el proyecto porque en el original la vivienda es muy grande 300m2 y yo quiero hacer una mucho más pequeña de 100m2, en la misma...
2 respuestas

Hacer tabique de pladur bajo techo desmontable

Quiero hacer un tabique de separación en un local que tiene techo de placas desmontables. ¿Se puede fijar sobre estas placas, o lo tengo que fijar sobre las bovedillas del techo del forjado? Si es así ruego me expliquen como.
2 respuestas

Como construir arqueta sifónica correctamente

Estamos saneando los desagües y tenemos dudas de cómo construir la arqueta donde se juntan todos los desagües. Me proponen varias opciones: - Poner la tubería de salida más alta que el resto para que no entre aire en las tuberías de entrada - Dividir...
4 respuestas

Puertas interiores sin marco con pladur?

Puedo poner puertas interiores sin marco, tipo rústico de casa de piedra, ¿Pero en una casa con tabiques de pladur?
3 respuestas

Parrillero/ Barbacoa revoca humo, campana, ¿Chimenea Solución?

Estoy construyendo una barbacoa, he aprovechado una campana que tenia, le había hecho un pulmón pero se lo he quitado, ya que revoca humo, el tiro si que evacua gran cantidad de humo pero no lo suficiente, el tubo es de 150 ml, no se si debería haber...
1 respuesta

Rozas verticales tabique de 7 cm

Tengo que hacer varias rozas verticales para tubos de la luz y mis tabiques son de hueco sencillo, en total tienen 6,5 o 7 cm. En concreto tengo que bajar por toda la pared 3 tubos de electricidad (2 de 20 y 1 de 25). Pensaba hacerlo en una misma...
1 respuesta

Bajo comercial se ha unido a vivienda sin cambio de uso en registro.

Estoy valorando comprar una casa que tiene planta baja y dos alturas. Aunque no haya división horizontal y según el registro todo es una casa-habitacion, en el registro también indica que el bajo está destinado a fines comerciales, si el vendedor ha...
1 respuesta

Crear base de datos en excel

Como puedo crear una base de datos con Excel, que puedas introducir nombre, teléfono, tinte y registrar, buscar y eliminar
2 respuestas

Ocultar contraseña en macro

Tengo un archivo al cual le inserte una macro de apertura, que al abrir me pide contraseña, pero al digitarla muestra la contraseña, ¿Cómo hago para ocultarla? ¿Cómo hago para que al abrir esta me abra en una hoja especifica?
2 respuestas