MS Excel - wyszukiwanie pierwszej wolnej komórki w tabeli

3
4
1.2K

Chciałbym do tabeli (Table1) doklejać wartości na jej końcu w konkretnej kolumnie, np. Column2.

W sieci znalazłem np.:

Sheets("Receipts")
    .Range("I2").Copy Destination:=Sheets("Payments").Range("A" & Rows.Count).End(xlUp).Offset(1)

Wiem, że do zakresu kolumny w tabeli można odwołać się np. tak:


Me.Range("Table1[Column2]")

A jak się odnieść do komórki, i to do tej pierwszej pustej w kolumnie?


Me.Range("Table1[Column2]") ....???...   End(xlUp).Offset(1)

Z góry dziękuję i pozdrawiam serdecznie.

Zapytał
@ Jacek_Kotowski | 09.03.2015
- lider
- laureat
- ekspert
- 60
- 54
- 94

15

Panie Jacku.

Z pytania "A jak się odnieść do komórki, i to do tej pierwszej pustej w kolumnie? ..." zakładam, że chodzi Panu o pierwszą pustą komórkę w istniejącej kolumnie, a nie o pierwszy wiersz pod tabelą.

Wymyśliłem coś takiego:

Sub puste()
    Dim obiekt As ListObject
    Dim kolumna As Range
    Dim zakres As String

    ' w której tabeli
    Set obiekt = ActiveSheet.ListObjects("Tabela1")
    ' w której kolumnie tabeli
    Set kolumna = obiekt.ListColumns("nazwisko").DataBodyRange
    
    ' zakres komórek na których znajduje się aktualnie kolumna tabeli
    zakres = kolumna.Address
    
    For Each cell In Range(zakres)
    
        If cell.Value = "" Then
            cell.Value = "wstaw"
            Exit For
        End If
   
    Next cell
    
    
End Sub

Można by było prościej:

kolumna.End(xlDown).Offset(1)

Ale TYLKO wtedy, kiedy ma Pan 200% pewności, że pierwsze wiersze tabeli nie są puste. Inaczej zostaniemy przeniesieni do pierwszej komórki wypełnionej, a następnie przesuniemy się do wiersza niżej.

Patrz załącznik.

Załączniki

xlsm
pierwsza pusta.xlsm ( 21K )

Skomentuj

Odpowiedział
@ | 10.03.2015
TRENER ALTKOM AKADEMII

Pytanie