4 Macros para manipular hojas en Excel | Tops de Excel

[@angelexpositoquiroga7516]

Acabo de conocer tu canal y me encanta. Llenado un paso más allá, cómo podría hacer para mostrar una hoja concreta y ocultar el resto?, por ejemplo mostrar la hoja Bélgica y ocultar el resto, volver a la hoja indice y luego seleccionar Francia y que se oculte el resto... Enhorabuena por tu canal y gracias.

[@DanielCarusso]

Hola Víctor, ¿podrías subir tips para manejo de inventarios? Agradezco tu atención y tiempo. Excelente trabajo que haces con tus videos, felicitaciones.

[@METN]

Muchas gracias por tus comentarios. Permiteme organizarme y de ser posible los hacemos en videos

[@carlosalbertoyandarmontero3170]

la verdad no sabia que esto se puede hacer es genial

[@METN]

Si, esta super, espero verte pronto de nuevo por aqui Saludos.

[@diamantemultinivel]

Esto era lo que buscaba, gracias. Puedes hacer vídeos con mas tips para inventarios?

[@METN]

Tratare de dar medida a los temas específicos. Saludos.

[@fmazoramirez]

!Excelente!

[@METN]

Gracias por comentar. Saludos

[@williamvega6882]

Genial

[@METN]

Gracias por comentar. Saludos

[@juanmenar]

Acabo de conocer el canal y le doy la enhorabuena tanto por este vídeo, como por el canal. Suscrito, like y campanita.;. Quisiera preguntar, si siguiendo este ejemplo, existe la manera rápida, de vincular, como por ejemplo en el ejemplo, pinchar en cada nombre de Pais, y que te lleve a la Hoja creada con ese nombre, de forma rápida, y no tener que vincular de una en una. Gracias y mucho animo, a seguir asi. Saludos desde España.

[@METN]

Hola gracias por tus comentarios, si se puede pero habria que hacerlo con codigo de visual basic

[@j.andresguerrero1490]

Hola Víctor, como hago para crear una hoja a través de un formulario, que la ponga en la lista, la ordene en la. Lista y también la ordene con las demás hojas . Intenté hacerlo pero al crear varias me sale error y me cierra excel. Mil gracias

[@jtwtube]

Pienso que esta macro que he creado (para mi muy útil) pueda ser útil para otros: Sub ElencoFogli() Response = MsgBox("Esta función crea una lista de hojas" & Chr(13) & Chr(13) & "Quieres crear la lista en este punto ? ", vbYesNo + vbQuestion + vbDefaultButton2, "CREA INDICE DELLA CARTELLA ", Help, Ctxt) If Response = vbYes Then ' L'utente sceglie il pulsante Sì. r = ActiveCell.Row 'identifica la riga selezzionata. C = ActiveCell.Column ' identifica la collona selezionata 'inserisci intestazione del elenco If ActiveCell = "" Then testo = "LISTA DE HOJAS EN ESTA CARPETA" Else testo = ActiveCell End If ogg = InputBox("Insertar el titulo de la lista", "TITULO", testo) ActiveCell = ogg 'formatazione titolo With Selection.Font .Name = "Arial" .Size = 14 .Underline = xlUnderlineStyleSingle .ColorIndex = 10 .Bold = True End With r = r + 2 With ActiveSheet 'intestazione della lista .Cells(r, C) = "Nota: La seguente Cartella contiene " & Sheets.Count & " hojas" r = r + 2 'intestazione collone .Cells(r, C) = "HOJA" .Cells(r, C + 1) = "DESCRIPCION" .Cells(r, C + 2) = "NOTAS" r = r + 1 'inserimento elenco pagine For i = 2 To Sheets.Count nome = Sheets(i).Name .Cells(r, C).Select .Cells(r, C) = i 'formatazione centro per i numeri Selection.HorizontalAlignment = xlCenter .Cells(r, C + 1).Select ActiveCell.Hyperlinks.Add anchor:=Selection, Address:="", SubAddress:= _ "'" & nome & "'!A1", ScreenTip:=nome, TextToDisplay:=nome r = r + 1 Next i End With End If End Sub

[@edgarhuerta5599]

Muy buen vídeo, como se puede hacer una macro en la cual, nos pida una contraseña antes de abrir un archivo y después de 3 intentos cierre Excel?

[@METN]

Ya existe por ahi un video de Exceleinfo, deja busco el link y te lo paso. Saludos.

[@cesarleninlopezvado5085]

Apreciado caballero. Me interesa que nos elabore unas macro, en el entendido que nosotros pagaremos para que usted nos pueda elaborar dichas macros. Por favor indícame como nos podemos comunicar. Dame tu correo electrónico

[@jtwtube]

Como crear una lista de archivos en una directoria especifica: Sub FileSearchByJTW_Example_of_procedure_calling() ' ' Example of FileSearchByJTW procedure calling as replacement of missing FileSearch function in the newest MS Office VBA ' 01.06.2009, Author: JTW ' Dim FileNameWithPath As Variant Dim pate As String Dim ListOfFilenamesWithParh As New Collection ' create a collection of filenames ' Filling a collection of filenames (search Excel files including subdirectories) Dim DirFile, pPath, pMask As String Dim CollectionItem As Variant Dim SubDirCollection As New Collection pate = ThisWorkbook.Path Dim pFoundFiles As Collection Dim pIncludeSubdirectories As Boolean pPath = Trim(pPath) 'Elimina Spazzi vuoti 'If Right(pPath, 1) "\" Then pPath = pPath & "\" 'Inserisci separazione subdiretorie Columns("A:B").ClearContents Range("A1").Select Call FileSearchByJTW(ListOfFilenamesWithParh, pate, "*.*", True) For Each FileNameWithPath In ListOfFilenamesWithParh ' cycle for list(collection) processing Next FileNameWithPath ' Print to immediate debug window and message if no file was found If ListOfFilenamesWithParh.Count = 0 Then Debug.Print "No se ha encontrado ningún archivo !" MsgBox "Ningín archivo se ha encontrado !" End If Rows("2:2").Select ActiveWindow.FreezePanes = True Range("A1").Select Selection.AutoFilter End Sub Private Sub FileSearchByJTW(pFoundFiles As Collection, pPath As String, pMask As String, pIncludeSubdirectories As Boolean) ' ' Search files in Path and create FoundFiles list(collection) of file names(path included) accordant with Mask (search in subdirectories if enabled) ' 01.06.2009, Author: JTW ' Dim DirFile As String Dim CollectionItem As Variant Dim SubDirCollection As New Collection ' Add backslash at the end of path if not present 'pPath = Trim(pPath) 'Elimina Spazzi vuoti If Right(pPath, 1) "\" Then pPath = pPath & "\" ' Searching files accordant with mask DirFile = Dir(pPath & pMask) 'Crea una colezioni di dati Do While DirFile "" pFoundFiles.Add pPath & DirFile 'add file name to list(collection) DirFile = Dir ' next file Loop ' Procedure exiting if searching in subdirectories isn't enabled If Not pIncludeSubdirectories Then Exit Sub ' Searching for subdirectories in path DirFile = Dir(pPath & "*", vbDirectory) a = 1 Cells(a, 1) = "DIRETTORIA: " & pate Cells(a, 2) = "FILE" Do While DirFile "" ' Add subdirectory to local list(collection) of subdirectories in path If DirFile "." And DirFile ".." Then If ((GetAttr(pPath & DirFile) And vbDirectory) = 16) Then SubDirCollection.Add pPath & DirFile DirFile = Dir 'next file Do Until Cells(a, 2) = Empty a = a + 1 Loop If DirFile "" Then If DirFile ".." Then Cells(a, 1) = pPath Cells(a, 2) = DirFile ' Collegamento Colleg = pPath & DirFile Cells(a, 2).Select ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=Colleg a = a + 1 End If End If Loop ' Subdirectories list(collection) processing For Each CollectionItem In SubDirCollection Call FileSearchByJTW(pFoundFiles, CStr(CollectionItem), pMask, pIncludeSubdirectories) ' Recursive procedure call Next End Sub

[@ismaelherverth7507]

Hola!! espero pueda ayudarme. Tengo una pequeña duda, como puedo hacerle para tener una secuencia de nombre infinita en una celda de excel, usando macros. Ejemplo Nom1 y luego continua Nom2 ... Nom3 ..... Nom4 y vuelve a comenzar en Nom1.... Nom2 y así sucesivamente, formando un ciclo de esos nombres, todo ello se muestra en una sola celda cuando le doy en un boton cambia al siguiente nombre y así, cada que le doy al boton "lo muestra en una celda". solo me hace falta esa pequeña programación de secuencia... espero pueda ayudarme!! gracias por sus videos son de gran ayuda... saludos desde Mexico..

[@METN]

Hola si me envias tu ejemplo a [e-mail] sera mas fácil ayudarte. Saludos

[@ismaelherverth7507]

ya se lo envié

[@lawliietryuzaki6774]

¡AYUDA POR FAVOR! Estoy tratando de realizar las siguientes formulas en Excel pero me dan ERROR (las formulas están en inglés): =OFFSET(CELL("address",INDEX(D1:D12,MATCH(B1,D1:D12,0))),-1,0) =OFFSET(CELL("address",INDEX(D1:D12,MATCH(B1,D1:D12,0))),1,0) IMPORTANTE Con estas fórmulas intento llamar de los datos que se encuentran justo arriba y abajo de un dato ingresado mediante una lista desplegable que se alimenta de una matriz ubicada en la misma hoja. Es decir, suponiendo que dicha matriz (ubicada en D1:D12) contenga los 12 meses del año de forma ascendente (Enero, Febrero, Marzo , etc.) y mediante la lista desplegable (que se alimenta de dicha matriz) inserto el mes de “Junio” en la celda B2 (mes actual) quiero que con la primera formula Excel me traiga “Mayo” a la celda A1 (mes anterior) y con la segunda formula me traiga (Julio) a la celda C1. El error está en que al evaluar por separado la formula =CELL("address",INDEX(D1:D12,MATCH(B1, D1:D12,0))) con la cual intento traer la referencia o dirección de la celda donde se encuentra el dato insertado Excel me devuelve lo siguiente "$D$6", si notan la referencia está entre comillas “” y por lo tanto la formula OFFSET no la reconoce como una referencia sino como un texto y por esto da error. ¡Cuento con su ayuda! Ya sea solucionando los errores de estas fórmulas o encontrando una “Macro” que me haga la misma función! Mi correo es: [e-mail] y mi Whatsapp [phone]