Deleterows secundarios ()
Application.ScreenUpdating = falso
Srow dévil como de largo
srow = 1
Hacer hasta el srow > Cells.Find (qué: = " * ", SearchDirection: =xlPrevious, SearchOrder: =xlByRows). Fila
Si InStr (1, células (srow, “a”), “Z:\websitepublic\”, vbTextCompare) > 0 o InStr (1, células (srow, “a”), “ningunos documentos seleccionados en este directorio”, vbTextCompare) > 0 entonces
Filas (srow). Cancelación
ElseIf Application.WorksheetFunction.CountA (gama (srow y “: ” y srow)) = 0 entonces
Filas (srow). Cancelación
srow = srow + 1
Terminar si
Lazo
Application.ScreenUpdating = verdad
Submarino del extremo
|