Cambiar hoja destino segun texto en combobox

25/09/2006 - 23:36 por bobafett | Informe spam
Buenas grupo, quiero plantearles un problemilla que tengo con un
formulario.
Mis nociones de VB son basicas y voy aprendiendo de las consultas que
se encuentran en este foro. Tengo un formulario con un combobox llamado
"cbSoporte", en el hay que seleccionar unos
nombres que extraigo de un rango dinamico.
Dispongo de varios "textbox" de los que al pulsar un boton extraigo los
datos a una hoja:

Private Sub CommandButton1_Click()

'copia los datos a la ultima fila
ultimafila = Sheets("Hoja1").Cells(1, 1) + 1
Sheets("Hoja1").Cells(ultimafila, 1).Value = cbSoporte.Text
Sheets("Hoja1").Cells(ultimafila, 2).Value = txtModelo.Text
Sheets("Hoja1").Cells(ultimafila, 3).Value = txtFecha.Text
Sheets("Hoja1").Cells(ultimafila, 4).Value = txtTemp.Text

Sheets("Hoja").Cells(1, 1).Value = ultimafila
Este codigo lo pille de una consulta en el foro y funciona
perfectamente, pero quisiera que segun el nombre que seleccionase en el
combobox la hoja de destino fuera una que tubiese el mismo nombre que
aparece en el combo.

gracias de antemano y tambien gracias a los que con tanta paciencia
hacen que los demas aprendamos un poco mas
 

Leer las respuestas

#1 Héctor Miguel
26/09/2006 - 07:05 | Informe spam
hola, bob afett ! [saludos a han solo] :D

segun el codigo expuesto... y asumiendo que 'la hoja' coincide con el texto de la seleccion en 'el combo'...
solo necesitas reemplazar el nombre 'fijo' de tu objeto 'Sheets' por el texto del combo [es decir]... modifica en el codigo...

de -> Sheets("Hoja1") [etc. etc. etc.]
a: -> Sheets(cbSoporte.Text) [etc. etc. etc.]

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

__ la consulta original __
... un formulario con un combobox llamado "cbSoporte"... hay que seleccionar unos nombres que extraigo de un rango dinamico.
Dispongo de varios "textbox" de los que al pulsar un boton extraigo los datos a una hoja: ...
Private Sub CommandButton1_Click()
'copia los datos a la ultima fila
ultimafila = Sheets("Hoja1").Cells(1, 1) + 1
Sheets("Hoja1").Cells(ultimafila, 1).Value = cbSoporte.Text
Sheets("Hoja1").Cells(ultimafila, 2).Value = txtModelo.Text
Sheets("Hoja1").Cells(ultimafila, 3).Value = txtFecha.Text
Sheets("Hoja1").Cells(ultimafila, 4).Value = txtTemp.Text
Sheets("Hoja").Cells(1, 1).Value = ultimafila
... pero quisiera que segun el nombre que seleccionase en el combobox la hoja de destino
fuera una que tubiese el mismo nombre que aparece en el combo.

Preguntas similares