Saltar al contenido
View in the app

A better way to browse. Learn more.

Ayuda Excel

A full-screen app on your home screen with push notifications, badges and more.

To install this app on iOS and iPadOS
  1. Tap the Share icon in Safari
  2. Scroll the menu and tap Add to Home Screen.
  3. Tap Add in the top-right corner.
To install this app on Android
  1. Tap the 3-dot menu (⋮) in the top-right corner of the browser.
  2. Tap Add to Home screen or Install app.
  3. Confirm by tapping Install.

Seleccionar archivo por MsgBox

publicado

Hola

Tengo  una parte de la macro que por MsgBox se tiene que seleccionar un archivo (hasta aquí funciona)

Do While Olb <> 1
MsgBox "Selecciona archivo ", , ""
Olb = Application.GetOpenFilename
If Olb <> "Falso" And Olb <> "" And Olb <> 1 Then Exit Do
Loop

Pero cuando de ese libro que se ha abierto tengo que seleccionar diferentes hojas y luego copiar, me falla en esta linea: 

Workbooks.Open(Olb).Sheets(1).Copy After:=Workbooks(2).Sheets(3)

Me podríais ayudar a encontrar la solución

 

Saludos

Featured Replies

publicado
  • Autor
Hace 3 minutos , Gerson Pineda dijo:

Hola

¿Lo estas haciendo desde un formulario o desde la hoja?

En el primer caso, solo es cosa de poner un textbox para indicar el numero de hoja

Si no, intenta con INPUBOX

 

Saludos 

Desde la Hoja.

Con el MsgBox no hay problema,

La cuestión es que cuando la instrucción tiene que seleccionar una hoja del archivo seleccionado y luego copiarla en el otro libro, le falta algo a la instrucción que no funciona

Workbooks.Open(Olb).Sheets(1).Copy After:=Workbooks(2).Sheets(3)

 

publicado

Prueba así

Workbooks(Olb).Sheets(1).Copy After:=Workbooks(2).Sheets(3)

o así

ActiveWorkbook.Sheets(1).Copy After:=Workbooks(2).Sheets(3)

Y si no te funciona, sube tu archivo con la macro.

publicado
  • Autor
Hace 1 hora, Antoni dijo:

Prueba así

Workbooks(Olb).Sheets(1).Copy After:=Workbooks(2).Sheets(3)

o así

ActiveWorkbook.Sheets(1).Copy After:=Workbooks(2).Sheets(3)

Y si no te funciona, sube tu archivo con la macro.

Lo he probado pero no me funciona.

Ejemplo.7z

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

Configure browser push notifications

Chrome (Android)
  1. Tap the lock icon next to the address bar.
  2. Tap Permissions → Notifications.
  3. Adjust your preference.
Chrome (Desktop)
  1. Click the padlock icon in the address bar.
  2. Select Site settings.
  3. Find Notifications and adjust your preference.