Bucle mientras la celda no esté vacía
Resuelto
Sam2021
Mensajes publicados
1
Estado
Miembro
-
yg_be Mensajes publicados 23437 Fecha de registro Estado Colaborador Última intervención -
yg_be Mensajes publicados 23437 Fecha de registro Estado Colaborador Última intervención -
Bonjour
no puedo hacer un bucle. En lugar de ("AB2:AB11") quiero hacer un bucle mientras la celda no esté vacía, filtrar y pegar en un nuevo libro.
le agradezco
Atentamente
Sandie
no puedo hacer un bucle. En lugar de ("AB2:AB11") quiero hacer un bucle mientras la celda no esté vacía, filtrar y pegar en un nuevo libro.
Sub filtreetclasseurOK() 'seleccionar el rango a filtrar Range("A7").Select Range(Selection, Selection.End(xlDown)).Select Range(Selection, Selection.End(xlToRight)).Select Selection.AutoFilter 'filtra según el año y la dirección For Each cell In Range("AB2:AB11") Worksheets("Travail RAR").Range("A$7").AutoFilter _ Field:=27, _ Criteria1:=cell.Value, _ VisibleDropDown:=True 'copiar el filtro en una nueva hoja ActiveSheet.AutoFilter.Range.Copy Workbooks.Add.Worksheets(1).Paste chemin = ThisWorkbook.Path ActiveWorkbook.SaveAs Filename:=chemin & "\" & cell.Value & ".xls" Workbooks(cell.Value & ".xls").Close Next cell End Sub le agradezco
Atentamente
Sandie
2 respuestas
yg_be
Mensajes publicados
23437
Fecha de registro
Estado
Colaborador
Última intervención
Ambassadeur
1 588
hola,
sin haber prestado atención a lo que había en el bucle:
sin haber prestado atención a lo que había en el bucle:
set cell = Range("AB2") do while cell <> "" ' ... set cell=cell.offset(1) loop