chivilcoy

Anónimo respondió: No se cual de todos los textbox es pero podrías hacer algo así ... if Textbox1.text <> "" then sheets("...").Range("...") = Textbox1.text end if ...

leone respondió: Puedes Solucionarlo colocando la función Val al momento de enviar el valor del textbox, así: Val(TextBox1. Value)

leone respondió: Para el Error 13 puedes Validar que el Texbox1 traiga un numero: If IsNumeric(UserForm2.TextBox1.Value) = True Then Sheets("Informe Final").Range("C56") = CDbl(UserForm2.TextBox1.Value) Con respecto a repetir las lineas de código para pegar en otras...

Anónimo respondió: Probá cambiar el formato de celda (G20); vas a menú Formato > Celdas; Personalizada y allí pones el mismo formato que pusiste en el formulario. Avisame si esto no corrige tu problema

leone respondió: Puedes sustituir Val por Cdbl para corregir ya que esta tomando el punto(.) Como el separador de miles. Ademas antes de asignar el valor dar formato a la celda. Range("G20").Select Selection.NumberFormat = "#,##0.00" Sheets("Informe...

Anónimo respondió: La forma que estás intentando (Herramientas / Proteger Hoja) es la correcta, solo que deberías agregar al formulario el tema de desproteger la hoja antes de "trabajar" sobre ella; tu código final (del formulario) debería ser algo como Sub ...

leone respondió: Solo veo que no estas finalizando con el End If A mi me funciono bien. Sustituye por este codigo: Private Sub TextBox3_Change() If Val(TexBox3.Value) < 50000 Or Val(TexBox3.Value) > 1000000 Then MsgBox "Fuera del alcance del sistema" End If End Sub...

Anónimo respondió: Reemplazá tu segundo procedimiento por este otro (el cambio es mínimo pero para que te reconozca el número) Private Sub CommandButton1_Click() Sheets("Informe Final").Range("G20") = Val(UserForm1.TextBox3.Value) End Sub