tag:blogger.com,1999:blog-4623278671508370136.post705362463088908230..comments2023-08-01T13:39:53.991+02:00Comments on EXCEL FORO: Un blog de Excel: VBA: Macro para abrir y cerrar un libro de Excel - Workbooks.Open.Excelforo - Ismael Romerohttp://www.blogger.com/profile/17680553534095355222noreply@blogger.comBlogger143125tag:blogger.com,1999:blog-4623278671508370136.post-25233475864209424402018-10-26T18:05:14.604+02:002018-10-26T18:05:14.604+02:00en principio si... y pegándo lo copiado, claroen principio si... y pegándo lo copiado, claroExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-46852230849649591852018-10-26T14:50:03.487+02:002018-10-26T14:50:03.487+02:00Buen dia, con la codificacion esta:
b = Rep.Export...Buen dia, con la codificacion esta:<br />b = Rep.ExportData("", 9, 0, False, True, True) ya lo tengo copiado al portapapeles, entonces agregando el workbook.add tendria que funcionar?Anonymoushttps://www.blogger.com/profile/08532802834994023672noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-106682300588472592018-10-24T09:15:00.412+02:002018-10-24T09:15:00.412+02:00Hola Ezequiel,
aparentemente tienes la parte de dó...Hola Ezequiel,<br />aparentemente tienes la parte de dónde pegar, el destino...<br />te falta abrir un nuevo libro (workbooks.Add) y copiar algo que pegar en lo que ya tienes... (con un método .Copy)<br /><br />SaludosExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-48078507686927134262018-10-23T19:44:35.721+02:002018-10-23T19:44:35.721+02:00seria algo asi? o estoy pifiandole mal? jajaseria algo asi? o estoy pifiandole mal? jajaAnonymoushttps://www.blogger.com/profile/08532802834994023672noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-58231916358468668942018-10-23T19:41:45.578+02:002018-10-23T19:41:45.578+02:00Hola buenas tardes, tengo una codificacion de CMS ...Hola buenas tardes, tengo una codificacion de CMS Avaya, que lo unico que necesito que haga es Abrir el excel, lo copie en una solapa y columna especifica:<br />b = Rep.ExportData("", 9, 0, False, True, True)<br /> Sub CompletarLibro()<br /> Dim ruta As String, direccion1 As String<br /> Dim celdadestino As Range<br /> ruta = "J:\(Call Center)\(Gestion CCenter)\EXPORTED DATA\CMS\Diario\"<br /> fichero1 = "Export CMS On line Nuevo"<br /> direccion1 = ruta & fichero1<br /> Set celdadestino = Workbooks("Export CMS On line Nuevo.xlsm").Sheets("Listado 1").Cells(Rows.Count, "D").End(xlUp).Offset(1, 0)<br /> Set tbl = Range("D1").CurrentRegion<br /> tbl.Offset(1, 0).Resize(tbl.Rows.Count - 1, tbl.Columns.Count).Copy _<br /> Destination:=Workbooks("Export CMS On line Nuevo.xlsm").Sheets("Listado 1").Range(celdadestino.Address)<br /> Application.CutCopyMode = True<br /> End SubAnonymoushttps://www.blogger.com/profile/08532802834994023672noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-21126892274628298822018-09-08T12:14:41.805+02:002018-09-08T12:14:41.805+02:00Hola,
si la variable la has definido al abrir el l...Hola,<br />si la variable la has definido al abrir el libro (con .Open) y las has llamado 'NombreArchivo', para emplearlo posteriormente en .Activate úsalo sin comillas:<br /><b>Windows(NombreArchivo).Activate</b><br /><br />SaludosExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-69922078546066781072018-09-06T21:17:35.233+02:002018-09-06T21:17:35.233+02:00Hola,buenas tardes.
Estoy creando un código y nece...Hola,buenas tardes.<br />Estoy creando un código y necesito insertar una libro de excel en un variable, pero como el fichero puede cambiar periódicamente necesito usar la función Open Filename y que ése archivo al abrirse quede asignado a ésa variable.A su vez, como en varias ocasiones trabajo con ellos necesito llamar el archivo, normalmente cuando conocemos el nombre del archivo se una Windows("NombreArchivo").Activate pero no lo he podido hacer para el caso de que el archivo este en la variable.Estaría muy agradecida si me pueden ayudar.SaludosAnonymoushttps://www.blogger.com/profile/08791754403266024883noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-77460152878407298902018-05-16T09:42:57.184+02:002018-05-16T09:42:57.184+02:00Hola,
hay una función UDF muy empleada en interne...Hola,<br />hay una función UDF muy empleada en internet que verifica si un libro está abierto o no:<br /><br /><b>Function IsFileOpen(filename As String)<br /> Dim filenum As Integer, errnum As Integer<br /><br /> On Error Resume Next ' Turn error checking off.<br /> filenum = FreeFile() ' Get a free file number.<br /> ' Attempt to open the file and lock it.<br /> Open filename For Input Lock Read As #filenum<br /> Close filenum ' Close the file.<br /> errnum = Err ' Save the error number that occurred.<br /> On Error GoTo 0 ' Turn error checking back on.<br /><br /> ' Check to see which error occurred.<br /> Select Case errnum<br /><br /> ' No error occurred.<br /> ' File is NOT already open by another user.<br /> Case 0<br /> IsFileOpen = False<br /><br /> ' Error number for "Permission Denied."<br /> ' File is already opened by another user.<br /> Case 70<br /> IsFileOpen = True<br /><br /> ' Another error occurred.<br /> Case Else<br /> Error errnum<br /> End Select<br /><br />End Function</b><br /><br />SaludosExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-83542546321750647472018-05-15T21:18:33.315+02:002018-05-15T21:18:33.315+02:00Tengo una macro que jala datos de dos libros de ex...Tengo una macro que jala datos de dos libros de excel pero cuando estan abiertos<br />Al correr sin abrir los excel de datos me manda a finalizar y depurar, ya que no encuentra el libro,<br /><br />quisiera una macro q me mande el mensaje "abrir el archivo XXX para poder ejecutar" o algo asi<br /><br />gracias<br />OMARUIZAhttps://www.blogger.com/profile/14738051055601846518noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-11363409372493624352018-04-24T09:06:20.768+02:002018-04-24T09:06:20.768+02:00Hola
si quieres ejecutarla desde Word quizá tendrí...Hola<br />si quieres ejecutarla desde Word quizá tendrías que plantear tu duda en algún foro específico de Word...<br />Siento no poder ayudarte en este punto<br />SaludosExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-85228880693929616282018-04-24T02:02:58.847+02:002018-04-24T02:02:58.847+02:00por favor ayuda
quiero una macro en word para ab...por favor ayuda <br />quiero una macro en word para abrir un combo box, que busque datos de una columna de un libro excel. al seleccionar el dato buscado lo ponga en la selección del documento word y se oculte una vez colocado el dato. a y que se visualice al ejecutar la macro en wordAnonymoushttps://www.blogger.com/profile/11625124671014803358noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-29425069547194673322017-11-05T09:47:15.497+01:002017-11-05T09:47:15.497+01:00Hola
ese evento Open del final lo que hace es abri...Hola<br />ese evento Open del final lo que hace es abrir el formulario que tengas en ese Libro de trabajo.... al inicializar el UserForm se carga el ListBox, donde parece que ahora sí, abres un libro (Libro2.xls) desde donde cargas los datos.<br />Quizá para asegurar deberías trabajar declarando objetos, por ejemplo:<br />Set wb=Workbooks.Open FileName:="D:\Libro2.xls"<br />para luego referirte a ese libro cuando corresponda:<br />Set sh=wb.Sheets("SIM CARD")<br /><br />filas = sh.Range("a1").CurrentRegion.Rows.Count<br />y sucesivamente<br /><br />Por otro lado, puedes aplicar:<br />Application.ScreenUpdating=False<br />al inicio de los procedimientos, y así no verás los refrescos de pantalla... pero el libro tendrás que abrirlo si o sí para poder recuperar datos de él.<br /><br />Saludos<br />Excelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-17532465985625371002017-11-05T03:06:11.317+01:002017-11-05T03:06:11.317+01:00Hola sí q pena me faltó la parte donde abre el lib...Hola sí q pena me faltó la parte donde abre el libro<br /><br />Private Sub CommandButton1_Click()<br />Dim i, j, filas As Integer<br />Dim sim As String<br />If TextBox1.Value = "" Then Exit Sub<br />ListBox1.Clear<br />sim = TextBox1.Value <br />Workbooks.Open FileName:="D:\Libro2.xls"<br />Sheets("SIM CARD").Select<br />filas = Range("a1").CurrentRegion.Rows.Count<br />j = 1<br />For i = 2 To filas<br />If Cells(i, j).Offset(0, 1).Value Like "*" & sim & "*" Then<br />ListBox1.AddItem Cells(i, j)<br />ListBox1.List(ListBox1.ListCount - 1, 1) = Cells(i, j).Offset(0, 1)<br />ListBox1.List(ListBox1.ListCount - 1, 2) = Cells(i, j).Offset(0, 2)<br />ListBox1.List(ListBox1.ListCount - 1, 3) = Cells(i, j).Offset(0, 3)<br />ListBox1.List(ListBox1.ListCount - 1, 4) = Cells(i, j).Offset(0, 4)<br />ListBox1.List(ListBox1.ListCount - 1, 5) = Cells(i, j).Offset(0, 5)<br />ListBox1.List(ListBox1.ListCount - 1, 6) = Cells(i, j).Offset(0, 6)<br />ListBox1.List(ListBox1.ListCount - 1, 7) = Cells(i, j).Offset(0, 7)<br />ListBox1.List(ListBox1.ListCount - 1, 8) = Cells(i, j).Offset(0, 8)<br /><br /><br />Else<br />End If<br />Next i<br />End Sub<br /><br /><br />Private Sub UserForm_Initialize()<br />With ListBox1<br />.ColumnCount = 8<br />.ColumnWidths = "50pt;100pt;60pt;60pt;80pt;60pt;50pt;40pt"<br />End With<br /><br />End Sub<br /><br /><br />Para q me ejecute solo el userfrom cuando abra el archivo y que no se vea donde realiza la búsqueda estoy utilizando este código pero el problema es q me deja invisibles todos los archivos q tenga de excel abierto y lo único q quiero es q solo sea invisible al usuario los dos archivos de excel q trabajo <br /><br />Private Sub Workbook_Open()<br />Application.Visible = False<br />UserForm1.Show<br />End Sub<br /><br />Anonymoushttps://www.blogger.com/profile/01879856073818643408noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-28306163321241923382017-11-05T03:02:11.084+01:002017-11-05T03:02:11.084+01:00Este comentario ha sido eliminado por el autor.Anonymoushttps://www.blogger.com/profile/01879856073818643408noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-78191226752320727942017-11-03T18:29:18.407+01:002017-11-03T18:29:18.407+01:00Hola,
no se ve nada en el código que aportas que f...Hola,<br />no se ve nada en el código que aportas que fuerza ni trabaje sobre otros libros... por tanto el problema que planteas debe estar en otra parte de tu código...¿¿??<br /><br />SldsExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-36622130667346069052017-11-03T12:59:19.565+01:002017-11-03T12:59:19.565+01:00Para enviar ayuda en foro
WM
William Mancera
jue...Para enviar ayuda en foro<br />WM<br /> <br />William Mancera<br />jue 02/11/2017 11:15 p<br />Hola buenas noches, quisiera me guiarán en este ejercicio. Tengo dos archivos uno contiene una hoja de excel dónde almaceno información de SIM card el otro archivo tiene un userfrom en donde ejecutó un botón buscar y me llene un listbox con cierta información del primer archivo. Cuando ejecutó el botón buscar el me abre el archivo dónde almaceno la información cómo hago para q no me abra ese archivo o q no me lo visualize cuando ejecute el boton. Y otra cosita cómo hago para q cuando abra el segundo archivo donde contiene el userfrom de entrada me lo visualice sin q me habrá la hoja de excel, sin q me interfiera en algún otro archivo de excel q tenga abierto <br />Este es el código del buscar y el llenado del listbox.<br /><br />Private Sub CommandButton1_Click()<br />Dim i, j, filas As Integer<br />Dim sim As String<br />If TextBox1.Value = "" Then Exit Sub<br />ListBox1.Clear<br />sim = TextBox1.Value<br />Sheets("SIM CARD").Select<br />filas = Range("a1").CurrentRegion.Rows.Count<br />j = 1<br />For i = 2 To filas<br />If Cells(i, j).Offset(0, 1).Value Like "*" & sim & "*" Then<br />ListBox1.AddItem Cells(i, j)<br />ListBox1.List(ListBox1.ListCount - 1, 1) = Cells(i, j).Offset(0, 1)<br />ListBox1.List(ListBox1.ListCount - 1, 2) = Cells(i, j).Offset(0, 2)<br />ListBox1.List(ListBox1.ListCount - 1, 3) = Cells(i, j).Offset(0, 3)<br />ListBox1.List(ListBox1.ListCount - 1, 4) = Cells(i, j).Offset(0, 4)<br />ListBox1.List(ListBox1.ListCount - 1, 5) = Cells(i, j).Offset(0, 5)<br />ListBox1.List(ListBox1.ListCount - 1, 6) = Cells(i, j).Offset(0, 6)<br />ListBox1.List(ListBox1.ListCount - 1, 7) = Cells(i, j).Offset(0, 7)<br />ListBox1.List(ListBox1.ListCount - 1, 8) = Cells(i, j).Offset(0, 8)<br /><br /><br />Else<br />End If<br />Next i<br />End Sub<br /><br /><br />Private Sub UserForm_Initialize()<br />With ListBox1<br />.ColumnCount = 8<br />.ColumnWidths = "50pt;100pt;60pt;60pt;80pt;60pt;50pt;40pt"<br />End With<br /><br />End Sub<br />Anonymoushttps://www.blogger.com/profile/01879856073818643408noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-54451445841968559502017-02-10T21:50:13.279+01:002017-02-10T21:50:13.279+01:00Hola nuevamente te adjunto el modulo que utilizo. ...Hola nuevamente te adjunto el modulo que utilizo. Hola espero me ayudes a mejorarlo con el bucle que la vedad no se mucho. Sub MetodoAbrirLibro()<br />Application.ScreenUpdating = False<br />Application.EnableEvents = False<br />ActiveSheet.DisplayPageBreaks = False<br />Workbooks.Open "E:\Prueba\cierre inventarios " & Format(Now, "mmmm") & ".xls"<br /><br /><br /> Windows("cierre inventarios " & Format(Now, "mmmm") & ".xls").Activate<br /> Sheets("1").Select<br /> Range("D18:E18").Select<br /> Selection.Copy<br /> <br /> Windows("Indicadores.xlsm").Activate<br /> Sheets("Hoja1").Select<br /> Range("B3").Select<br /> Selection.PasteSpecial Paste:=xlPasteValues<br /> <br /> Application.CutCopyMode = Fals<br /> Windows("cierre inventarios " & Format(Now, "mmmm") & ".xls").Activate<br /> Sheets("2").Select<br /> Range("D18:E18").Select<br /> Selection.Copy<br /> <br /> Windows("Indicadores.xlsm").Activate<br /> Sheets("Hoja1").Select<br /> Range("B4").Select<br /> Selection.PasteSpecial Paste:=xlPasteValues<br /> <br /> Application.CutCopyMode = Fals<br /> Windows("cierre inventarios " & Format(Now, "mmmm") & ".xls").Activate<br /> Sheets("3").Select<br /> Range("D18:E18").Select<br /> Selection.Copy<br /> <br /> Windows("Indicadores.xlsm").Activate<br /> Sheets("Hoja1").Select<br /> Range("B5").Select<br /> Selection.PasteSpecial Paste:=xlPasteValues<br /> <br /> Application.CutCopyMode = Fals<br /> Windows("cierre inventarios " & Format(Now, "mmmm") & ".xls").Activate<br /> Sheets("4").Select<br /> Range("D18:E18").Select<br /> Selection.Copy<br /> <br /> Windows("Indicadores.xlsm").Activate<br /> Sheets("Hoja1").Select<br /> Range("B6").Select<br /> Selection.PasteSpecial Paste:=xlPasteValues<br /> <br /> Application.CutCopyMode = Fals<br /> Windows("cierre inventarios " & Format(Now, "mmmm") & ".xls").Activate<br /> Sheets("5").Select<br /> Range("D18:E18").Select<br /> Selection.Copy<br /> <br /> Windows("Indicadores.xlsm").Activate<br /> Sheets("Hoja1").Select<br /> Range("B7").Select<br /> Selection.PasteSpecial Paste:=xlPasteValues<br /> <br /> Application.CutCopyMode = Fals<br /> Windows("cierre inventarios " & Format(Now, "mmmm") & ".xls").Activate<br /> Sheets("6").Select<br /> Range("D18:E18").Select<br /> Selection.Copy<br /> <br /> Windows("Indicadores.xlsm").Activate<br /> Sheets("Hoja1").Select<br /> Range("B8").Select<br /> Selection.PasteSpecial Paste:=xlPasteValues<br /> <br /> Application.CutCopyMode = Fals<br /> Windows("cierre inventarios " & Format(Now, "mmmm") & ".xls").Activate<br /> Sheets("7").Select<br /> Range("D18:E18").Select<br /> Selection.Copy<br /> <br /> Windows("Indicadores.xlsm").Activate<br /> Sheets("Hoja1").Select<br /> Range("B9").Select<br /> Selection.PasteSpecial Paste:=xlPasteValues<br /> <br /> Windows("Indicadores.xlsm").Activate<br /> Sheets("Hoja1").Select<br /> Range("B33").Select<br /> Selection.PasteSpecial Paste:=xlPasteValues<br /> <br /> Application.CutCopyMode = Fals<br /> <br />Asi sucesivamente hasta el ultimo día del mes actual<br /><br />Windows("cierre inventarios " & Format(Now, "mmmm") & ".xls").Activate<br />ActiveWindow.Close<br /><br />End SubClaudiohttps://www.blogger.com/profile/09927494652453532881noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-44557483817766794842017-02-10T21:09:57.599+01:002017-02-10T21:09:57.599+01:00Este comentario ha sido eliminado por el autor.Claudiohttps://www.blogger.com/profile/09927494652453532881noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-79071379498692834882017-02-10T09:32:24.123+01:002017-02-10T09:32:24.123+01:00Hola Claudio,
si he entendio bien quieres recorrer...Hola Claudio,<br />si he entendio bien quieres recorrer las diferentes hojas del libro 'cierre inventarios octubre' y copiarlas en el libro 'Indicadores', si es así, la idea sería que realizar un bucle sobre las hojas de ese libro 'cierre inventario'.<br />comienza abriéndolo como variable<br />Set wb=Workbooks.Open "E:\cierre inventarios Octubre..xls"<br />y luego haz un bucle sobre sus hojas<br />for each sh in wb.worksheets<br />[aquí tu acción de copiar y pegar]<br />....<br /><br />La idea podría ir por ahí.<br />SaludosExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-17893079885826200072017-02-10T03:58:05.900+01:002017-02-10T03:58:05.900+01:00Buenas noches, quisiera que me orientaras con lo s...Buenas noches, quisiera que me orientaras con lo siguiente tengo dos archivos uno de ellos es una base de datos y el otro es para obtener unos datos específicos de la base de datos. Tengo la siguiente rutina para pegar los datos:<br />Sub MetodoAbrirLibro()<br />Application.ScreenUpdating = False<br />Application.Calculation = xlCalculationManual<br />Application.EnableEvents = False<br />ActiveSheet.DisplayPageBreaks = False<br />Workbooks.Open "E:\cierre inventarios Octubre..xls"<br /><br /><br /> Windows("cierre inventarios Octubre..xls").Activate<br /> Sheets("1").Select<br /> Range("D18:E18").Select<br /> Selection.Copy<br /> <br /> Windows("Indicadores.xlsm").Activate<br /> Sheets("Hoja1").Select<br /> Range("B3").Select<br /> Selection.PasteSpecial Paste:=xlPasteValues<br /><br />Esta base tiene la cantidad de hojas con respecto al mes en cuestion. como hago para copiar todos los datos de cada hoja.<br /><br />Estare atento a sus comenatriosClaudiohttps://www.blogger.com/profile/09927494652453532881noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-4076471485194279702017-01-21T19:44:38.052+01:002017-01-21T19:44:38.052+01:00Hola,
¿ese botón está dentro de un UserForm?..
en...Hola,<br />¿ese botón está dentro de un UserForm?.. <br />en ocasiones los procedimientos dentro de un mismo Userform interactúan entre sí y un fallo en uno arrastra a los demás.<br /><br />En otro caso habría que ver la situación concreta<br /><br />Saludos cordialesExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-43484490923333727472017-01-20T21:48:12.692+01:002017-01-20T21:48:12.692+01:00Hola buenas.
Tengo un problema con una macro de E...Hola buenas.<br /><br />Tengo un problema con una macro de Excel. La tengo asociada a un botón que si la ejecuto a través del mismo, no me funciona. Sin embargo, si entro en el código VBA, y la ejecutó con el F8, funciona perfectamente...<br /><br />¿Cuál puede ser el problema?<br /><br />Muchas gracias por la ayuda y por la web que ayuda bastante...<br /><br />Un saludo,Adminhttps://www.blogger.com/profile/14344402975098822192noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-10369052589719963252016-12-16T09:02:53.636+01:002016-12-16T09:02:53.636+01:00Hola Fernando,
prueba en lugar de definir la varia...Hola Fernando,<br />prueba en lugar de definir la variable como Byte como Long:<br />Sub macro_mostrar()<br />Dim numero As Long<br />Dim i As Long<br />numero = Sheets.Count<br />For i = 1 To numero<br />Sheets(i).Visible = True<br />Next<br />End Sub<br /><br />Debería funcionarte<br />SldsExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-85087883947007521632016-12-15T20:02:37.661+01:002016-12-15T20:02:37.661+01:00Hola Amigo.
Quisiera que me ayudes con esto, desca...Hola Amigo.<br />Quisiera que me ayudes con esto, descargué unos libros con macros de internet y estaba todo protegido, lo logré desbloquear pero aún tenía hojas ocultas y los mostré con este codigo<br />Sub macro_mostrar()<br />Dim numero As Byte<br />Dim i As Byte<br />numero = Sheets.Count<br />For i = 1 To numero<br />Sheets(i).Visible = True<br />Next<br />End Sub<br />y me funcionaba con todas los libros menos con uno y me sale error 1004 en tiempo de ejecución. No se puede asignar a la propiedad visible de la clase Worksheet, entonces probé con esto<br />Sub mostrar()<br />On Error Resume Next<br />Dim numero As Byte<br />Dim i As Byte<br />numero = Sheets.Count<br />For i = 1 To numero<br />Sheets(i).Visible = True<br />Next<br />MsgBox “Todas visibles”<br />End Sub<br />y me sale error de sintexis. Son dos hojas 5 y 6 que en VBA no me deja ver el objeto de esas hojas. Necesito tu ayuda por favorFernandohttps://www.blogger.com/profile/07016392236769276939noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-74052660493920212102016-10-11T19:35:13.700+02:002016-10-11T19:35:13.700+02:00Gracias!! funcionó de maravilla
Gracias!! funcionó de maravilla<br />EAHhttps://www.blogger.com/profile/00403670343577775252noreply@blogger.com