İlk dolu hücreyi seçme.

[leumruk]

Selamlar...
End(3) ile son dolu hücreye ulaşabiliyoruz. Belli bir aralıktaki ilk dolu hücreye ulaşmanın basit bir yolu var mı? Örneğin: a5:a10 arasındaki hücreler dolu olsun, kod çalıştığında a5'i seçecek.
Saygılar...

 

[Orion1]

MsgBox "İlk Dolu Hücre : " & Cells(1, "A").End(xlDown).Row

 

[leumruk]

MsgBox "İlk Dolu Hücre : " & Cells(1, "A").End(xlDown).Row

Teşekkürler.

 

[Mx@Raid]

'taşıma işlemi
s1 = Sheets("BİLGİLER").Cells(1, "A").End(xlDown).Row + 1
s2 = Sheets("BİLGİLER").Cells(1, "D").End(xlDown).Row + 1burada BİLGİLER Sayfasını boş hücresinin buluması lazım
Range("D2:E29").Select
Selection.Cut
Sheets("BİLGİLER").Select
s1.Range.Select burada da BİLGİLER sayfasına diğer sayfadaki verileri taşıması lazım
ActiveSheet.Paste
Sheets("Sheet1").Select
Range("A2:C29").Select
Selection.Cut
Sheets("BİLGİLER").Select
s1.Range.Selectburada da BİLGİLER sayfasına diğer sayfadaki verileri taşıması lazım
ActiveSheet.Paste
Sheets("Sheet1").Select

s1.Range.("a220") .Select hücresini alıyor belirtince ancak esnek olması lazım kendisi BİLGİLER sayfasındaki boş hücreye atacak normalde atıyor ama yukarıdaki tanımı getirince hata verdi her seferinde hücre değerini makrodan değiştirmek istemiyorum.

 

[Mx@Raid]

arkadaşlar çok zor bir soru sordumu zannetmiyorum. biraz acil yardım edebilirseniz sevinirim.
Teşekkürler

 

[Orion1]

arkadaşlar çok zor bir soru sordumu zannetmiyorum. biraz acil yardım edebilirseniz sevinirim.
Teşekkürler

Sorunuzu başkasının açtığı bir başlık altında sormuşsunuz.Üstelik sorunuzun bu başlıklada hiçbir alakası da yok.
Bu nedenle cevap almıyor olabilirsiniz.
Yeni bir başlık açarak sorunuzu sormalısınız.

 

[Mx@Raid]

bu konuya dolu hücre bulunmasından yola çıkıp boş hücreyi elde etmemi sağladığı için tercih ettim.

elimde oldukça uzun bir liste var ve her seferinde belirttiğim noktalarda makrodan hücre numarasını girmek yerine sayfadaki boş hücreyi bulup ona göre dolu olan hücreleri kopyalaması amacıyla uğraşıyorum. konunun uygun olmadığını biliyorum özür dilerim.
iki- üç gündür yardım istedim ama henüz cevap bulamayınca belki bu sayfayı okuyan uzman arkadaşlar yardım olur düşüncesiyle yazdım.

 

[Mx@Raid]

uzman arkadaşlar lütfen yardımcı olun.
30-40 bin kişinin listesiyle uğraşıyorum. Bu işi bir kaç tıklamada düzenlemem gerekirken yeterli bilgiye sahip olamadığım için yapamıyorum.

 

[dEdE]

uzman arkadaşlar lütfen yardımcı olun.
30-40 bin kişinin listesiyle uğraşıyorum. Bu işi bir kaç tıklamada düzenlemem gerekirken yeterli bilgiye sahip olamadığım için yapamıyorum.

Merhaba,
Sayın Evren Gizlen'in önerisini dikkate alıp, yeni bir başlık açarak örnek dosya eklemeyi deneseniz yanıt almanız daha kolay olurdu.
Siz kendi konunuzu-sorununuzu biliyorsunuz, dosyanız hazır. Biz ise sadece sorunuza bakıp olsa olsa şöyle olur diye yorum yapmak durumundayız.

Lütfen yeni bir başlık açınız ve sorununuzu açıkca yazarak örnek dosya ekleyiniz. Sorunum ekli dosyada gibi bir ifade çoğu kez yanıtsız kalır. Dosyanızı indirmezden önce sorunuda bilelim.
İnanınız ki yanıt verek arkadaşlarımız olacaktır.

 

[Mx@Raid]

Öz dilerim forumu kullanıyorum ama şu ana kadar mesaj açmamı gerektirecek durum olmadı çoğunlukla
oluşturulan mesajlardan cevaplarımı bulabiliyordum. Ana sayfada acaba bulabilir miyim diye baktım tecrübesizlik işte göremedim. anlatırsanız hem bir örnek dosya gönereyim hem de amaçladığım şeyi orada ifade ederim.
Teşekkürler