Jump to content

Seleccionar archivo por MsgBox


JosMa

Recommended Posts

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

Link to comment
Share on other sites

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)

 

Link to comment
Share on other sites

  • Crear macros Excel

  • Posts

    • Muchas gracias! Voy a tener que revisar las macros porque no domino mucho...   Saludos!
    • Sube tu archivo siempre y pon un ejemplo de donde hay que tomar los datos y donde y como deben reflejarse  
    • Hola nuevamente muchachos. Espero estén bien todos, es mi mayor deseo. Estoy teniendo otro problema por acá con la configuración de un TextBox donde quiero expresar números. Propiamente el número que va a estar reflejado en esos TextBox son la división del Salario Mensual entre los días a trabajar y eso me da un índice o tarifa salarial diaria.  No tengo problemas en las operaciones matemáticas, sino en el formato a expresar en el TextBox.  Este dato lo toma el TextBox de la Hoja, la que tengo configurada (Celda) como Numero. Podrían ayudarme. Gracias de antemano y excelente semana para todos. Saludos Pino
    • Buenas tardes. Tengo el siguiente código en una macro:   Sub Prueba() hora = Hour(Now) If hora <= 18 & Sheets("Hoja1").Range("G7") = 1 Then     MsgBox ("haz esto")      ElseIf hora > 18 & Sheets("Hoja1").Range("G7") = 2 Then     MsgBox ("haz esto otro")      Else     MsgBox ("No se cumple") End If End Sub Sin embargo,  siempre se me ejecuta el Else aunque a priori se cumplan las condiciones del If. Adjunto el excel de prueba. ¿Alguna idea del por qué no entra en el If ni en el ElseIf? Gracias   Prueba.xlsm
  • Recently Browsing

    • No registered users viewing this page.
×
×
  • Create New...

Important Information

Privacy Policy