Calculacion con Checkbox y con dos Textbox con Fechas
Tendo dos Textbox con Fechas
Sheets("Data").Range("K" & Bos_Satir).Value = TextBox10.Text
Sheets("Data").Range("L" & Bos_Satir).Value = TextBox11.Text
y und
checkbox4
Necsesito que cuando marque el checkox4 se ejecute la operación de la diferencia de los Textebox y esa a la vez multiplicarla con los resultados que están en la columna G
yo hice lo siguiente pero no funciona:
aa = TextBox11.Text
bb = TextBox12.Text
dd = Sheets("Data").Range("G" & Bos_Satir).Value
cc = bb - aa
If CheckBox4.Value = True Then
Sheets("Data").Range("G" & Bos_Satir).Value = dd * cc
End if
1 respuesta
¿Y qué no te sale?
¿Te envía algún error?
¿Qué dice el error?
Prueba con esto:
aa = TextBox11.Value
bb = TextBox12.Value
dd = Sheets("Data").Range("G" & Bos_Satir).Value
cc = CDate(bb) - CDate(aa)
If CheckBox4.Value = True Then
Sheets("Data").Range("G" & Bos_Satir).Value = dd * cc
End IfRevisa que tomas el dato de la celda G & Bos_Satir y pones el resultado en la misma celda.
.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.
en la celda N sale la diferencia de las fechas pero no se ejecuta la operacion y en G no sale nada cuando marco el checkbox4
yo declare las siguientes variables
Dim aa As String
Dim bb As String
Dim cc As Long
Dim dd As Long
Sheets("Data").Range("L" & Bos_Satir).Value= TextBox11.Text
Sheets("Data").Range("M" & Bos_Satir).Value= TextBox11.Text
Sheets("Data").Range("N" & Bos_Satir).Value= TextBox11.Text=Val(TextBox12)-Val(TextBox11)
aa = TextBox11.Value
bb = TextBox12.Value
dd = Sheets("Data").Range("G" & Bos_Satir).Value
cc = CDate(bb) - CDate(aa)
If CheckBox4.Value = True Then
Sheets("Data").Range("G" & Bos_Satir).Value = dd * cc
End If
En la Celda G sale solo 0
Gracias por tu ayuda, he realizado otra pregunta sobre los textbox y optionbutton y esas dos preguntas son importantes pues estoy haciendo un proyecto de planificacionde maquinas y equipos y es marcando la optionbutton y checkbox, y realmente no soy especialista en VBA, y tu eres un genio en esto. Muchismas gracias por tus rapidas respuestas, esoy cada dia mas maravillado con lo que ustedes hacen.
Gracias. Eusebio
Eusebio
Te puse unos comentarios. No declares las variables
' Dim aa As String
' Dim bb As String
' Dim cc As Long
' Dim dd As Long
'en estas celdas estás poniendo el mismo textbox
Sheets("Data").Range("L" & Bos_Satir).Value = TextBox11.Text
Sheets("Data").Range("M" & Bos_Satir).Value = TextBox11.Text
'
'esto que pones está mal
'Sheets("Data").Range("N" & Bos_Satir).Value = TextBox11.Text = Val(TextBox12) - Val(TextBox11)
'
aa = TextBox11.Value
bb = TextBox12.Value
dd = Sheets("Data").Range("G" & Bos_Satir).Value
cc = CDate(bb) - CDate(aa)
If CheckBox4.Value = True Then
Sheets("Data").Range("G" & Bos_Satir).Value = dd * cc
End IfNo puedo revisar tu macro si no me dices qué quieres.
Mejor explícame con datos de ejemplo, qué tienes en tus textbox, qué datos tienes en la hoja y qué quieres de resultado.
Si yo pongo en el textbox11 15/11/2017 y en el textbox12 20/11/2017
La diferencia de 20/11/2017 menos 15/11/2017 es 5
Pero luego multiplicas el 5 por lo que tienes en la celda "G", si en la celda tienes un 0, entonces 5 * 0 = 0
Por eso necesito saber qué tienes en la celda "G" & Bos_Satir
Si con eso resuelves tu duda, no olvides valorar.
¡Gracias! Un millón de gracias tenias razón, eline las variable y marque la optionbutton que tenia un valor y ya me dio el valor, ahora falta la otra pregunta que hice acerca de que me aparezcan marcados los button y los Checkbox cuando mueco el SpinButton
Gracias nuevamente
Eusebio
