Простой VBA для продвижения по листам в рабочей книге

Question

Я ищу простой VBA для продвижения по листам в книге, чтобы найти первый лист, где конкретное местоположение ячейки пустое. Например, у меня есть книга с датированными вкладками в течение всего года, а в ячейке E1 я заполняю дату дня. Сегодня я хочу скопировать данные из другого файла экспорта, а затем в мой устаревший файловый цикл через листы, пока он не найдет первый лист, где ячейка E1 будет пустой, а затем сделайте мою функцию вставки папок. Во время функции copy paste я вставляю дату в ячейку E1, поэтому, когда она выглядит на следующий день, она будет обходить этот лист. Любые идеи были бы полезны.

Answer 1

Дайте это попробовать:

Sub BlankFinder() 
    For Each sh In Sheets 
     If sh.Range("E1") = "" Then 
      MsgBox "E1 found blank in sheet " & sh.Name 
      Exit Sub 
     End If 
    Next sh 
End Sub