¿Es posible usar un inputbox para varias "sub" (macros)?

Saludos

¿Es posible usar un inputbox para varias "sub" (macros), pero que sólo aparezca el llenado del inputbox una vez?
El inputbox es:

fullinfo = InputBox("Escriba que fila de las empresas desea llenar", "Code")

Tengo que usar el inputbox en 25 sub (macros), dado que la sub (macro) que hice inicialmente es muy extensa y la tuve que dividir en 25 Subs (macros).

Para correr las 25 macros uso una sub con 25 renglones de "Call" y la macro correspondiente. En esta macro que llama a las demás agregué el inputbox, sin embargo desde la primera macro que llama no usa la variable "fullinfo" (que es la del inputbox).

Ya intenté usar una macro con el inputbox, pero el problema es que debo escribir el número de la fila a llenar (el dato que pide el inputbox) 25 veces y considero sería más útil llenarlo solamente una vez.

De antemano gracias.

1 Respuesta

Respuesta
1

Declara la variable fullinfo al principio de todas tus macros, es decir, la primer línea de tu módulo debe ser esta:

Dim fullinfo

Prueba y me comentas

Saludos. DAM

Hola DAM

Agregué el Dim fullinfo a las 25 macros, pero aun el depurador me marca fullinfo en las macro como si no lo tuviera definido.

Anexo el principio de la macro:

Sub llenainfobmv()
'
' llenainfobmv Macro
'
'
fullinfo = InputBox("Escriba que fila de las emisoras desea llenar", "Code")
Call llenainformacion1
Call llenainformacion2
Call llenainformacion3
Call llenainformacion4
Call llenainformacion5
Call llenainformacion6
Call llenainformacion7
Call llenainformacion8
Call llenainformacion9
Call llenainformacion10
Call llenainformacion11
Call llenainformacion12
Call llenainformacion13
Call llenainformacion14
Call llenainformacion15
Call llenainformacion16
Call llenainformacion17
Call llenainformacion18
Call llenainformacion19
Call llenainformacion20
Call llenainformacion21
Call llenainformacion22
Call llenainformacion23
Call llenainformacion24
Call llenainformacion25
End Sub

Sub llenainformacion1()
Dim fullinfo
Sheets("BMV DATA").Select
Range("B7").Select
Selection.Copy
Sheets("AC").Select
Range("B" & fullinfo).Select
ActiveSheet.Paste

End Sub

El renglon subrrayado (Range("B & fullinfo).Select) es el que me marca error.

Las otras 24 macros son básicamente (lo extenso son unas fórmulas que debe agregar de modo similar al copiado de información, por eso tuve que dividir el proceso en 25 partes) iguales a la anterior.

Como puedes ver, Sub llenainfobmv() llama a llenainformacion1...25.

En Sub llenainfobmv puse el inputbox: fullinfo = InputBox("Escriba que fila de las emisoras desea llenar", "Code")

(Te mando la macro porque no sé si a esto te referias, en caso de ser así te comento que aun no me reconoce fullinfo)

:(

No, solamente lo declaras una vez en el módulo principal. Esa parte del módulo se llama (General - Declaraciones)

Te debe quedar algo así:

Dim fullinfo
Sub llenainfobmv()
'
' llenainfobmv Macro
'
'
fullinfo = InputBox("Escriba que fila de las emisoras desea llenar", "Code")
Call llenainformacion1
Call llenainformacion2
Call llenainformacion3
End Sub
Sub llenainformacion1()
Sheets("BMV DATA").Select
Range("B7").Select
Selection.Copy
Sheets("AC").Select
Range("B" & fullinfo).Select
ActiveSheet.Paste
End Sub

Si te das cuenta el Dim fullinfo va hasta arriba del módulo, debe ser la primer línea de tu código, incluso va antes de "Sub llenainfobmv"

Y no declares fullinfo en cada macro.

Si tienes dudas envíame tu archivo y actualizo la macro a [email protected]

Si te funciona, no olvides finalizar la pregunta

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Error de compilación en excel

Que tal buenos días estoy haciendo un programa de nomina en microsoft excel. Inserte un command button para agregar datos en otra hoja al darle click. Pero me dice error de compilacion se esperaba end sub al querer ejecutarlo. Les agradecería mucho...
1 respuesta

Buscar con un dato y copiar filas enteras que lo contengan

A5:D20, Tab_Facturas) con datos repetidos (que está en la Hoja1), necesito buscar todas las filas que tengan por ejemplo el numero dos que se encuentran en la columna "C" que es el N°. De vendedor, la columna "A" contiene el N°. De Factura, la...
1 respuesta

Tablas vinculadas

Tablas vinculadas (20/5/2003) Gracias por atenderme, Mi problema es quiero que en una tabla se vayan reflejando los datos que escribo en una primera tabla en otra hoja, hasta ahí todo muy fácil. El problema es que la tabla en la que escribo los datos...
1 respuesta

Hoja de captura de datos en excel

Quisiera saber en excel cual es la forma de crear una hoja de captura de datos y que éstos se vayan acumulando en una hoja alterna. Entiendo que este proceso se puede hacer con macros. Para tratar de ser más claro les comento que se trata de una...
1 respuesta

Copiar datos de una pestaña a otra con macro

No domino para nada las macros y necesito su ayuda, tengo un archivo con varias pestañas con igual formato y una pestaña más que llamaré "Total" donde pienso concentrar lo contenido en esas pestañas. Necesito copiar el texto de 2 columnas de cada...
1 respuesta

Como mirar la información de una celdaen un textbox

Soy yo de nuevo La situación es la siguiente: estoy trabajando en un formulario "Userform1", tengo un textbox llamado "textbox7_Change()" y una hoja llamada "VENTA", en la hoja hay una celda "c9" que tiene una fórmula. Deseo que el al momento de...
1 respuesta

Macro, que termine el proceso cuando la celda esta vacía

Hice una macro que se ejecuta hasta un numero de veces, ¿La pregunta es se puede hacer que se ejecute hasta la celda vacía? Copio la macro. Sub Macro2() ' ' Macro1 Macro ' ' Acceso directo: CTRL+e Application.ScreenUpdating = False For i = 1 To 500...
1 respuesta