Carlos Renderos Rodriguez

Dante Amor respondió: Prueba la siguiente macro: Sub Eliminar_Hojas() Dim sh As Worksheet Application.ScreenUpdating = False Application.DisplayAlerts = False For Each sh In Sheets If LCase(sh.Name) <> LCase("FUNCIONA") Then sh.Delete Next End Sub

Dante Amor respondió: Prueba la siguiente macro Revisa que los datos estén correctamente escritos (espacios, puntos, acentos, etc) en esta línea: Case LCase("AFP Cuota Periodo"), LCase("I.S.R. Cuota Período"), LCase("ISSS Cuota Período") ' Sub Eliminar_Columnas() Dim cols...

Dante Amor respondió: Prueba lo siguiente: Sub LoopThroughFiles() Dim xFd As FileDialog Dim xFdItem As Variant Dim xFileName As String ' Set xFd = Application.FileDialog(msoFileDialogFolderPicker) If xFd.Show = -1 Then xFdItem = xFd.SelectedItems(1) &...

jrgces respondió: Prueba con algo como: Sub prueba() Dim h As Worksheet, r As Range, n As Long Set h = Worksheets("Hoja1") Set r = h.Range("A1:BU15") For n = r.Rows.Count + 1 To r.Rows.Count * 15 + 1 Step r.Rows.Count r.Copy Destination:=h.Cells(n, 1) Next n...

Abraham Valencia respondió: [Hola Primero que nada, no hay que olvidar que lo que se ve ahí no es un gráfico, es una infografía, es decir, son gráficos y /o diseños sobrepuestos (diagramados) para dar el efecto que ves. Si bien se ve al menos lo que aparenta ser un gráfico de...