poniedziałek, 16 lipca 2007

Przejście do pierwszego pustego wiersza

Jeżeli chcemy dodawać kolejno wiersze, to przydaje się kod aktywujący komórkę znajdującą się w pierwszym wolnym wierszu - znajdującym się pod dotychczas wprowadzonymi danymi.

A więc ustawiamy się gdzieś wewnątrz danych np Range("A1").Select i dalej:

Sub Znajdz_Pierwszy_Wolny()

    If IsEmpty(ActiveCell.Offset(1, 0)) Then
        ActiveCell.Offset(1, 0).Select
    Else
        ActiveCell.End(xlDown).Offset(1, 0).Select
    End If

End Sub

słowa kluczowe: szukanie za-ostatniego wiersza, pierwszy wolny wiersz

4 komentarze:

  1. działa super - pięknie dziękuję
    Marcin

    OdpowiedzUsuń
  2. klasa ! wielkie dzieki za to !

    OdpowiedzUsuń
  3. Super, tego właśnie szukałem :) Dzięki!

    OdpowiedzUsuń
  4. A jak napisać kod, który po znalezieniu pierwszej pustej komórki w kolumnie A sprawdzi czy następna komórka pod nią jest. Jeśli będzie pusta to się w niej ustawi i zwróci jej współrzędne, a jeśli nie to, będzie sprawdzał dalej aż na taką natrafi?

    OdpowiedzUsuń