Copiar contenidos de un userform a una hoja excel

Hola
Tengo el siguiente problema, soy nuevo en esto de la programación y estoy utilizando un UserForm donde quiero que se introduzcan datos y guardar estos datos en un hoja de trabajo de excel, bueno el problema que tengo es el siguiente estoy utilizando, tres checkbox, dos combobox con listas establecidas y dos textbox para que se rellenen datos y lo que quiero es que al terminar estos datos y al presionar un botón se rellenen los mismos en la hoja de trabajo que puede ser "Hoja4" como la tengo yo.
El programa que escribí no me funciona porque me dice que "No coinciden los tipos" cuando declaro el combobox por favor si me ayudas muchas gracias
Sheets("Hoja4").Select
Dim valor1 As Double, valor2 As Double, valor3 As Double, valor4 As Double
valor1 = ComboBox1.Value
valor2 = ComboBox2.Value
valor3 = TextBox1.Value
valor4 = TextBox2.Value
Range("A6").Activate
ActiveCell.End(xlDown).Offset(1, 0) = valor1
ActiveCell.End(xlDown).Offset(0, 1) = valor2
ActiveCell.End(xlDown).Offset(0, 2) = valor3
ActiveCell.End(xlDown).Offset(0, 3) = valor4
Range("A1").Activate
End Sub
Quiero que todos los datos rellenados en este userform se trasladen a las celdas, por si acaso de los tres checkbox quiero que solamente copie el que este marcado
en serio muchas gracias

2 Respuestas

Respuesta
1
Te dice que no coinciden los tipos porque has declarado los 4 valores como numéricos, pero el valor que te devuelve el combobox es un string (alfanumérico), si es un numero almacenado como alfanumérico debes devolverlo utilizando una función para convertir el tipo de datos devuelto. O declarar valor1 como string.
valor1 = clng(ComboBox1.Value) o valor1 = cdbl(combobox1.value)
Para los checkbox haz una concatenación de sentencias If, de manera que compruebas el valor de cada checkbox, si este es true (esta marcado), entonces asignas el valor a la celda deseada.
Gracias me ha servido de mucho
Una pregunta más... como puedo hacer para que los dos combobox que tengo estén relacionados, que el segundo dependa del contenido del primero... haber si me explico, que cuando el combobox1 tenga elegida una opción en el combobox2 aparezcan solamente valores asignados a a esa opción
De antemano gracias
eso ya requiere algo mas de codigo, la mejor forma de hacerlo es usando el evento Change del combobox1 y para este caso, mejor que un if, usar un select case
private sub combobox1_change()
combobox2.clear 'borramos el contenido del segundo combobox
select case combobox1.value
case is "opcion 1"
Combobox2. Additem ("opciones del segundo combobox")
Combobox2. Additem("blablaba")
case is "opcion 2"
Combobox2. Additem ...
...
end select
Si te ha servido por favor, valora y cierra la pregunta...
Respuesta
1
Lo de "No coinciden los tipos" es por que estas dimensionando los valores de los ComboBox como Double, que son números de coma flotante. Si los ComboBox contienen es texto debes dimensionarlos como String y si los datos son muy variables dimensionalos como Variant. Para lo de capturar el checkbox marcado, podríamos utilizar un if y capturar el Caption... algo así:
...
Private Sub CommandButton1_Click()
Sheets("Hoja4").Select
Dim valor0 As Variant, valor1 As Variant, valor2 As Variant, valor3 As Variant, valor4 As Variant
If CheckBox1 Then
    valor0 = CheckBox1.Caption
ElseIf CheckBox2 Then
    valor0 = CheckBox2.Caption
Else
    valor0 = CheckBox3.Caption
End If
valor1 = ComboBox1.Value
valor2 = ComboBox2.Value
valor3 = TextBox1.Value
valor4 = TextBox2.Value
Range("A1").Activate
ActiveCell.End(xlDown).Offset(1, 0) = valor0
ActiveCell.End(xlDown).Offset(0, 1) = valor1
ActiveCell.End(xlDown).Offset(0, 2) = valor2
ActiveCell.End(xlDown).Offset(0, 3) = valor3
ActiveCell.End(xlDown).Offset(0, 4) = valor4
Range("A1").Activate
End Sub
...
Éxitos, no olvides calificar y cerrar la pregunta.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

CheckBox

Tengo una base de datos creado en un userform con textbox, combobox, etc., toda la información que ingresa me lo manda a la hoja uno al darle insertar con un commandbutton, también con otro commandbutton con el nombre de buscar, encuentra la...
2 respuestas

¿Si checkbox es verdadero entonces escribe X?

Pues así como dice el titulo Estoy en la programación de un formulario, los datos van para una base de datos en excel, quiero que al estar activo el checkbox me escriba POR en lugar de verdadero, ¿Cómo puedo hacerlo?
1 respuesta

Destacar OptionButton al cargar formulario

Tengo un formulario con tres OptionButton y los tengo asignado a una misma celda. El valor al hacer click son 1,2 y 3 respectivamente. La idea es que al cargar el formulario me pueda mostrar activo el OptionButton que había asignado anteriormente, es...
1 respuesta

Máximo valor de varios campos numéricos

Tengo una consulta que me devuelve sólo un registro. En la consulta aparecen 4 campos numéricos quisiera saber como puedo sacar el máximo de los cuatro campos.
1 respuesta

Guardar datos de un formulario en una tabla

Tengo un formulario en donde ingreso datos personales y tengo un botón de ACEPTAR para guardar los datos en una tabla. Pero no se que código colocar en ese botón ACEPTAR para que me funcione ya he probado con varios y no me funciona. :(
1 respuesta

Como mantener el focus fijo sin que se pierda en un textbox

Al iniciar userform inicia el setfocus en el textbox que quiero pero al trabajar se pierde yo siempre quiero que permanezca el setfocus en un textbox determinado
1 respuesta

Userform combobox dependiente

Tengo una hoja columna A, B, C, D, con títulos, necesito que al Código ubicación fecha cantidad BFDAC12 RACK1 10-10-2012 1 FGTED52 RACK2 11-10-2012 2 DFREW34 RACK3 12-10-2012 3 BFDAC12 RACK4 13-10-2012 4 DFREW34 RACK3 14-10-2012 1 FDAC12 RACK4...
1 respuesta

Valor de combo a text

Necesito que de la selección de un combobox me la pase a un text box, en internet encontré esta página: http://www.programacion.com/php/articulo/remote_scripting/ Pero pues no me funciona ya que mi código es todo php no html, o quizá porque aun no lo...
1 respuesta

Unir Userform

Me presento soy Israel, si me puedes ayudar (formulario para cargar una base de datos) estoy modificando una guía de despacho que tengo me me ha servido muchísimo, esta se divide en dos Userform, la primera parte consta de 22 (entre combobox y...
1 respuesta

Formularios VBA en excel

Estoy realizando un directorio y quisiera que a la hora de introducir mis datos en el formulario que ya he realizado me los clasifique en las distintas hojas que he creado para cada sector pero que tambien se quede registrado en la hoja principal que...
1 respuesta