Por ejemplo quiero meter esta información mediante el botón y no entra nada te envío algo a ver si me puedes ayudar:
b = TextBox12.Value
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
End If
If OptionButton51.Value = True Then
Sheets("MKP").Range("BS" & Bos_Satir).Value = 1
ElseIf OptionButton52.Value = True Then
Sheets("MKP").Range("BS" & Bos_Satir).Value = 2
End If
If OptionButton40Value = True Then
Sheets("MKP").Range("BC" & Bos_Satir).Value = 200
ElseIf OptionButton41.Value = True Then
Sheets("MKP").Range("BC" & Bos_Satir).Value = 400
ElseIf OptionButton42.Value = True Then
Sheets("MKP").Range("BC" & Bos_Satir).Value = 600
End If
If CheckBo38.Value = True Then
Sheets("MKP").Range("BC " & Bos_Satir).Value = Sheets("MKP").Range("BC " & 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
End If
If CheckBox40.Value = True Then
Sheets("MKP").Range("BB " & Bos_Satir).Value = 3 * Sheets("MKP").Range("BC " & Bos_Satir).Value
End If
bb = TextBox12.Value
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
Saludos
Eusebio