Error al seleccionar Checkbox que selecciona una difercia de fechas..
Tengo un Checkbox que al marcarlo en una me multiplica la diferencia entre dos DTpicker por el valor de una celda y el otro que su diferencia me lo divide por el valor de orea celda, como se ve a continuación, el problema es que no se ejecuta ninguna operación.
en este gráfico al seleccionar el checkbox me debe dividir es decir cada celda debe quedacada una de las celdas
'Komax valores en Stück und Zeitraum
AA =Fecha 1
BB = fecha2
CC =fecha 2-fecha 1
If CheckBox4.Value = True Then
Sheets("MKP").Range("G" & Bos_Satir).Value = dd * CC
EE = Sheets("MKP").Range("DU" & Bos_Satir).Value
If CheckBox4.Value = True Then
Sheets("MKP").Range("DU" & Bos_Satir).Value = Sheets("MKP").Range("DU" & Bos_Satir).Value / CC
End If
'Komax Zeitraum
mi boton click es el sguiente:
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
TextBox11 = Fecha
TextBox12 = Fecha1
dd = Sheets("MKP").Range("G" & Bos_Satir).Value
CC =fecha 2-fecha 1
If CheckBox4.Value = True Then
Sheets("MKP").Range("G" & Bos_Satir).Value = dd * CC
End If
Alguien me puede ayudar a buscar una solución en esto.