Andy Machin

Pega este código en el evento Open del libro: Private Sub Workbook_Open() Dim rCell As Range Dim MesActual As Integer: MesActual = Format(Now, "m") Dim MesCol As Integer: MesCol = MesActual + 7 Range("CQ2").Value = MesActual For Each rCell In...

Podrías recorrer las hojas basándote en la posición, así (suponiendo que sea de la hoja 1 a la 5): For i = 1 to 5 'y aquí referirte a cada una de ellas con:' Sheets(i) Next i Mucha gente lo hace así, pero yo no prefiero esa opción ya que las...

Prueba este código (el código debe ir en el modulo de la Hoja!): Private Sub Worksheet_Change(ByVal Target As Range) Dim Listas As Range Set Listas = Range("G1,G50,G100,G150") If Not Application.Intersect(Listas, Range(Target.Address)) Is Nothing...

Hombre, si tu libro solo se va a usar en un ambiente de confianza, laboral, que tu sabes que esas personas no están muy enterados de VBA, puedes usar algo asi (en el evento Open del libro): Private Sub Workbook_Open() If DateDiff("d", "05/01/2019",...

Deben haber muchas formas de hacer eso, te hice un ejemplo sencillo. Grabe la pantalla, hice un pequeño vídeo demostración: Video demo: Ver el video demo aquí Y aquí puedes descargar el archivo para que veas como lo hice: Descargar archivo demo...

Lo que me confunde de tu pregunta son las palabras "consecutivos" y "seguidos". Los 20 mejores valores consecutivos Los 20 mejores seguidos A ver, con el auto filtro hay un operador que es el xlTop10Items Que aunque su nombre diga 10, sirve para...

Lo que entiendo que quieres hacer es una referencia en la hoja a la misma fila que el ListBox Bueno, normalmente uno comienza a poner datos a partir de la fila 2, y la fila 1 seria el encabezado. La propiedad ListIndex del ListBox comienza en la...

¿Un InputBox no te sirve? Así: Dim numero As String Numero = InputBox("Escriba un numero", "Numero", "0") Los inputbox devuelven un string, luego puedes convertirlo a integer si quieres, o declararlo integer desde el comienzo y validarlo en el...

Y sí, FileSystemObject probablemente sea tu mejor opción. A ver, puedes usar esta función: Sub DoFolder(Folder) Dim SubFolder For Each SubFolder In Folder.SubFolders DoFolder SubFolder Next Dim File For Each File In Folder.Files 'cambia el...

Disculpa, no tuve eso en cuenta a la hora de escribir las macros. Lo he actualizado, puedes descargar la version actualizada aquí: Libro demo version 2 Lo que hice fue declarar la hoja como una variable global, de esa forma si en el futuro cambias el...