Error de dubIndice en mi form Excel

Quisiera si me pueden ayudar... Soy novato en la mayor parte de Excel VBA.

Intento pasar datos buscados en mi "hoja5" a través de un form con un combobox1 y textbox1, y con un CommandButton1 pasarlos a la "hoja4" en la celda "B4" y "B7". Esto repertirlo en mi otros 14 combobox y textbox.

Es buscado en la web y eh implemenatdo esto;

Private Sub CommandButton1_Click()

Sheets("Hoja4").Visible = True
Sheets("Hoja4").Select

Sheets("Hoja4").Range("B4").Value = Frm_Marquesina.TextBox1
Sheets("Hoja4").Range("B7").Value = Frm_Marquesina.ComboBox1

End Sub

Pero me da error;

Se ha producido el error ´9´en tiempo de ejecución:

Subíndice fuera de intervalo

No se como crear la variable o indice, no logro aun comprender esos conceptos.

Me pueden orientar

1 respuesta

Respuesta
1

[Hola

Alguno de los objetos mencionados no existe pero ¿en qué línea exactamente te marca el error? Igual verifica los nombres.

Abraham Valencia

Hola... gracias por responder...

Te puedo enviar mi archivo por mail???

Creo que si lo ves puedes entender lo que quiero hacer...

[Hola nuevamente

Coloca tu archivo en algún "Drive" y comparte por aquí el. Enlace para poder verlo.

Saludos]

Abraham Valencia

Hola Abraham... lo solicitado...

https://1drv.ms/f/s!An72VgL_xDdIgp8Nfd9ZczraIXECkA 

Saludos...

[Hola

No tienes ninguna "Hoja4", dicha hoja en realidad se llama "temp2", por lo que tendrías que colocar:

Sheets("temp2").Range("B4").Value = Frm_Marquesina.TextBox1
Sheets("temp2"). Range("B7").Value = Frm_Marquesina. ComboBox1

Lo que se llama "Hoja4" es el módulo de la "temp2", por lo que también podrías colocar:

Hoja4.Range("B4").Value = Frm_Marquesina.TextBox1
Hoja4. Range("B7").Value = Frm_Marquesina. ComboBox1

Tampoco es necesario dejar en visible la hoja o seleccionarla, por si acaso, o sea, estas dos líneas puedes borrarlas:

Sheets("Hoja4").Visible = True
Sheets("Hoja4").Select

Saludos]

Abraham Valencia

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas