Bir sütundaki en son boş hücreyi bulmak VBA

[gkhn2]

Merhabalar

Ekteki excelde "CARİ SEÇME" sayfasındaki herhangi bir cari ismine bir kere tıklayıp o "CARİYİ SEÇİP BURAYA TIKLA" butonuna tıklayınca o hücreyi kopyalayıp "HAM VERİ" sayfasındaki "E" sütunundaki boş hücreye gelip yapıştırmasını istiyorum. Dosya bir makro var fakat E sütunu bomboşken gidip tablonun en alt satırına yapıştırıyor. Yardımlarınızı rica ederim.

ÖRNEK DOSYAYI İNDİR

 

[YUSUF44]

Ham veri sayfanız Tablo olarak biçimlendirildiği için satırda herhangi bir veri varsa boş hücre olarak ilk boş satırı kabul ediyor. Aşağıdaki gibi deneyin:

Sub cari_yapistir()
    Set c = Sheets("HAM VERİ").[E:E].Find("")
    If Not c Is Nothing Then yeni = c.Row
    Selection.Copy Sheets("HAM VERİ").Cells(yeni, "E")
    Sheets("HAM VERİ").Select
    Cells(yeni, "A").Select
    Application.CutCopyMode = False
End Sub

 

[gkhn2]

Ham veri sayfanız Tablo olarak biçimlendirildiği için satırda herhangi bir veri varsa boş hücre olarak ilk boş satırı kabul ediyor. Aşağıdaki gibi deneyin:

Sub cari_yapistir()
    Set c = Sheets("HAM VERİ").[E:E].Find("")
    If Not c Is Nothing Then yeni = c.Row
    Selection.Copy Sheets("HAM VERİ").Cells(yeni, "E")
    Sheets("HAM VERİ").Select
    Cells(yeni, "A").Select
    Application.CutCopyMode = False
End Sub

çok teşekkür ederim.

dosyanın düzgün hali ektedir belki birine lazım olur.
DÜZGÜN HALİ İÇİN TIKLA