Matias Casagrande

Dante Amor respondió: En el evento initialize Dim colTbxs As Collection 'Collection Of Custom Textboxes ' Sub Sumar() 'Por Dante Amor w_tot = 0 For i = 1 To 23 w_pes = 0 w_k = 0 w_pesx = 0 w_kx = 0 If i < 4 Then If IsNumeric(Me.Controls("pesx" & i).Value) Then w_pesx =...

Dante Amor respondió: Te anexo el código '-------------------------------------------------- For i = 1 To 23 Me.Controls("pes" & i).Locked = True Me.Controls("st" & i).Locked = True Me.Controls("k" & i).Value = 0 Next For i = 1 To 3 Me.Controls("stx" & i).Locked = True...

Dante Amor respondió: Por el tema de los años bisiestos (febrero 28 o 29 días), debes cargar primero el año, luego el mes y entonces ya se podrían calcular los días. Por el ejemplo el último día de un mes w_año = año.value 'toma el valor del combo año w_mes =...

Dante Amor respondió: Lo importante en estos casos es encontrar la última celda con datos, una vez obteniendo la última fila con datos, cargas la información de tu celda inicial hasta la celda final. La última celda con datos la puedes encontrar de arriba hacia abajo:...

Programar Excel respondió: Fijate en los los formatos de moneda que están en los textbox de este ejemplo

Programar Excel respondió: Estos ejemplos integrales te pueden ayudar https://youtu.be/gqZzSfikEYY https://youtu.be/smL4A-aRjCM https://youtu.be/lG79QDIuz4w https://youtu.be/5IagqWxjLmk

Elsa Matilde respondió: Esta sería la macro para el 2do textbox: Private Sub Textbox2_Change() 'x Elsamatilde If TextBox1 <> "" And Textbox2 <> "" Then TextBox3 = TextBox1 * Textbox2 End If End Sub Ahora, para evitar que en textbox2 ingreses algún caracter 'no numérico'...