Dante Amor

Agrega la siguiente línea al principio de tu macro Application.ScreenUpdating = False Avísame si el tiempo mejoró, si todavía es muy lento, entonces actualizo algunos detalles en tu macro. Si te sirvió la información, no olvides valorar la respuesta.

Te anexo la macro. Sub Macro1() With Range("A2:A" & Range("B" & Rows.Count).End(xlUp).Row) .Formula = "=IF(ISTEXT(R[-1]C[1]),1,IF(MONTH(R[-1]C[1])=MONTH(RC[1]),R[-1]C+1,1))" .Value = .Value End With End Sub [Sal u dos

Puedes explicar un ejemplo con datos reales, utilizando imágenes de lo que tienes en el userform, qué tienes en la hoja y qué resultado esperas. Procura que se vean las filas y las columnas de la hoja de excel.

Te anexo el código para que adaptes tu macro Sub Buscar_Letra() Set b = Columns("A").Find("a", lookat:=xlWhole, LookIn:=xlValues) If Not b Is Nothing Then ' 'inicio de tu macro 'aquí debe ir el código de tu macro ' ' 'FIN DE TU MACRO Else MsgBox "No...

Te anexo la macro para que adaptes tu código. Cambia la ruta inicial donde empiezan tus 50 subcarpetas y también cambia el nombre del archivo con todo y extensión. ruta_inicial = "C:\trabajo\" arch_inicial = "Enero 18.xlsx" Sub Ejecutar_Macro() 'Por...

Quedaría así: Sub LoopThroughFiles() ruta = Sheets("EXPORTACIÓN").Range("K4").Value If Right(ruta, 1) <> "\" Then ruta = ruta & "\" xFileName = Dir(ruta & "*.xls*") Do While xFileName <> "" With Workbooks.Open(ruta & xFileName) 'your code here End...

Puedes poner un par de imágenes explicando cómo están tus datos y qué resultado esperas después de la macro. Procura que en las imágenes se vean las filas y las columnas de excel.

Así quedaría tu macro: Sub mimacro() n = Sheets.Count If ActiveSheet.Index = n Then Sheets(1).Select Else ActiveSheet.Next.Select End If Range("A1").Select Call programarmacro End Sub '.[Sal u dos. No olvides valorar la respuesta.

Te anexo la macro actualizada. Cambié la forma de buscar por el método .Find También cambié los If's por un Case, me parece que es más práctico y también le da más claridad al código. Para limpiar los optionbutton se deben limpiar la inicio del...

En los eventos de Thisworkbook pon lo siguiente: Private Sub Workbook_Open() UserForm1.Show End SubInstrucciones para poner la macro en los eventos ThisWorkbookAbre tu libro de excelPara abrir Vba-macros y poder pegar la macro, Presiona Alt + F11Del...