Máximos colaboradores
Popular Content
Showing content with the highest reputation on 03/31/24 in all areas
-
¡Perfecto!, con esto me ahorro la solución. 😀1 point
-
Private Sub CommandButton1_Click(): Application.ScreenUpdating = False With Hoja1 .Range("G:G").AdvancedFilter 2, , .Range("A3"), 1 For x = 4 To .Range("A" & Rows.Count).End(xlUp).Row empresa = Cells(x, 1) With Hoja1.Range("C2").CurrentRegion .AutoFilter 5, empresa ActiveWorkbook.Sheets.Add After:=Worksheets(Worksheets.Count) ActiveSheet.Name = empresa .SpecialCells(12).Copy Sheets(empresa).Range("A1") .AutoFilter End With Next x .Columns(1).Clear End With End Sub Modelo 1.xlsm1 point
-
A ver si mañana encuentro un hueco y te apaño algo.1 point