Bienvenido a la mayor comunidad de usuarios EXCEL
Regístrate gratis ahora para ver contenidos y descargas sin restricciones!Regístrate gratis Ingresar
Ayuda con Listbox
- Autor del tema Sergy74
- Fecha de inicio
Cacho R
Moderator
- Registrado
- 23 Jun 2011
- Mensajes
- 14.223
.
Hola! Sergy. Se requieren algunas precisiones. A saber:
__________________________
Hola! Sergy. Se requieren algunas precisiones. A saber:
__________________________
Sergy74 dijo:
Los nombres de las hojas van a ir todos en mayusculas, y el nombre de la hoja que copie da lo mismo, porque despues el nombre cambiara.......
muchas gracias
muchas gracias
HBanchieri
Active member
- Registrado
- 20 Mar 2011
- Mensajes
- 1.560
Hola Sergy74 y maestro Cacho.
Sergy74, como te va con esto, puede servir¿?
Saludos.
Sergy74, como te va con esto, puede servir¿?
Saludos.
Cacho R
Moderator
- Registrado
- 23 Jun 2011
- Mensajes
- 14.223
.
Adjunto otro modo sin mover las hojas.
P.D. ¿Qué tal, HB?...
.
Adjunto otro modo sin mover las hojas.
P.D. ¿Qué tal, HB?...
.
PERFECTAMENTE los dos........... Muchisimass gracias :lol: :lol:
chicos y si ahora quisiera imprimir la hoja que tengo seleccionada en el listbox..... he utilizado el siguiente codigo y no me funciona:
dim hojaimp as worksheets
set hojaimp as sheets(LB1.value)...
dim hojaimp as worksheets
set hojaimp as sheets(LB1.value)...
Cacho R
Moderator
- Registrado
- 23 Jun 2011
- Mensajes
- 14.223
.
- No a través del userform sino manualmente selecciona una hoja cualquiera.
- Enciende la grabadora de macros.
- Manda a imprimir la hoja.
- Apaga la grabadora de macros.
Y publica aquí lo que...
- No a través del userform sino manualmente selecciona una hoja cualquiera.
- Enciende la grabadora de macros.
- Manda a imprimir la hoja.
- Apaga la grabadora de macros.
Y publica aquí lo que...
subo el ejemplo... no tendria que imprimir me tendria que abrir el cuadro de Vista Preeliminar para verlo como queda y despues imprimirlo en la impresora que yo quiera....
muchas gracias
muchas gracias
HBanchieri
Active member
- Registrado
- 20 Mar 2011
- Mensajes
- 1.560
Sergy74, algo así te podria servir¿?
Código:
Private Sub CargarLista()
Dim i As Integer
With LB1
.Clear
.AddItem "HOJA"
.List(0, 1) = "DETALLE"
For i = 2 To Sheets.Count...
Héctor Miguel
Moderator
- Registrado
- 26 Mar 2005
- Mensajes
- 7.536
no comentas como fue que lo resolviste (?), pero el dialogo no se muestra (probable o seguramente) porque "ActiveWindow.SelectedSheets" incluya...Sergy74 dijo:
al final lo resolvi... me faltaba un codigo en una linea.... muchas gracias por la ayuda y perdon por el retraso... ando con la comunion de la peque y estoy un poco liado :lol:
Temas similares
