Foros del Web » Soporte técnico » Ofimática »

Problema operando con valores de textbox de excel y vb

Estas en el tema de Problema operando con valores de textbox de excel y vb en el foro de Ofimática en Foros del Web. Buenas tardes genios, Descripción de lo que tiene que hacer el programilla: En los campos que se asigne, se tiene que coger el valor de ...
  #1 (permalink)  
Antiguo 24/07/2012, 08:32
Avatar de sven_uri  
Fecha de Ingreso: mayo-2011
Mensajes: 109
Antigüedad: 12 años, 10 meses
Puntos: 4
Pregunta Problema operando con valores de textbox de excel y vb

Buenas tardes genios,

Descripción de lo que tiene que hacer el programilla:
En los campos que se asigne, se tiene que coger el valor de un textbox en formato numero (nomina) y a partir de este valor se calcula el siguiente textbox y a partir de este el siguiente. Todo esto una vez apriete el boton de guardar (o sea, que ingrese los valores del formulario en una hoja excel concreta que ya tengo designada)

Haces poco que me inicie con el tema de las macros y el vb. Resulta que estoy trabajando con excel y como veia feo que me cogiera los valores de una celda quise que fuera todo desde el formulario. Os paso el código haber si veis lo que yo no consigo ver.

Grácias de antemano por vuestro tiempo :)

ACCIONES DE LOS BOTONES:

Código vb:
Ver original
  1. Private Sub CommandButton1_Click()
  2. ActiveSheet.Range("A2").Select
  3.     NOUPS
  4.     Range("AA8").Value = Range("AA8").Value + 1
  5.     '[AA8] = [AA8] + 1
  6.    Sheets("Assignar Ofertes").Range("AA1:AA7").ClearContents
  7.     Sheets("Assignar Ofertes").Range("AA9:AA11").ClearContents
  8.    
  9.     UserForm2.Hide
  10. End Sub
  11.  
  12. Private Sub CommandButton2_Click()
  13.     ActiveSheet.Range("A2").Select
  14.     UserForm2.Hide
  15.     End
  16. End Sub
  17.  
  18. Private Sub Label9_Click()
  19.  
  20. End Sub
  21.  
  22. Private Sub TextBox5_Change()
  23. TextBox5.Text = CDbl(TextBox4.Text) / 11
  24. End Sub
  25.  
  26. Private Sub TextBox6_Change()
  27. TextBox6.Text = CDbl(TextBox7.Text) / 40
  28. End Sub
  29.  
  30. Private Sub TextBox7_Change()
  31. TextBox7.Text = (CDbl(TextBox5.Text) / 30) * 7
  32. End Sub

MOVER DATOS:
Código vb:
Ver original
  1. Sub NOUPS()
  2.     Sheets("Assignar Ofertes").Range("AA1").Copy
  3.     Sheets("Llista Productes i Serveis").Range("B2").Insert shift:=xlDown
  4.     Sheets("Assignar Ofertes").Range("AA2").Copy
  5.     Sheets("Llista Productes i Serveis").Range("C2").Insert shift:=xlDown
  6.     Sheets("Assignar Ofertes").Range("AA3").Copy
  7.     Sheets("Llista Productes i Serveis").Range("D2").Insert shift:=xlDown
  8.     Sheets("Assignar Ofertes").Range("AA4").Copy
  9.     Sheets("Llista Productes i Serveis").Range("E2").Insert shift:=xlDown
  10.     Sheets("Assignar Ofertes").Range("AA5").Copy
  11.     Sheets("Llista Productes i Serveis").Range("F2").Insert shift:=xlDown
  12.     Sheets("Assignar Ofertes").Range("AA6").Copy
  13.     Sheets("Llista Productes i Serveis").Range("G2").Insert shift:=xlDown
  14.     Sheets("Assignar Ofertes").Range("AA7").Copy
  15.     Sheets("Llista Productes i Serveis").Range("H2").Insert shift:=xlDown
  16.     Sheets("Assignar Ofertes").Range("AA8").Copy
  17.     Sheets("Llista Productes i Serveis").Range("A2").Insert shift:=xlDown
  18.     Sheets("Assignar Ofertes").Range("AA9").Copy
  19.     Sheets("Llista Productes i Serveis").Range("K2").Insert shift:=xlDown
  20.     Sheets("Assignar Ofertes").Range("AA10").Copy
  21.     Sheets("Llista Productes i Serveis").Range("J2").Insert shift:=xlDown
  22.     Sheets("Assignar Ofertes").Range("AA11").Copy
  23.     Sheets("Llista Productes i Serveis").Range("I2").Insert shift:=xlDown
  24.     Application.CutCopyMode = False
  25. End Sub
  #2 (permalink)  
Antiguo 24/07/2012, 09:39
Avatar de sven_uri  
Fecha de Ingreso: mayo-2011
Mensajes: 109
Antigüedad: 12 años, 10 meses
Puntos: 4
Respuesta: Problema operando con valores de textbox de excel y vb

Concretando más, me calcula las operaciones pero no me copia los resultados debido a un error "no coinciden los tipos" y no se como hacer que coincidan :S

Etiquetas: excel, operando, textbox, vb
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 02:40.