makro boş satırdan yazdırma

[zahitsen]

arkadaşlar şimdi tablomda ilk boş satıra yazıyor bu kod fakat ben sadece ilk a sutununu boşsa yazmasını istiyorum çünkü diğer hücrelerde formullerim var dolu diye görmüyor ve boş satıra yazıyor. Yani ben sadece a sutununda ki ilk boş hücreyi görsün ve ordan yazsın isityorum boylelikle formuller otomatik hesaplama yapacak gelen bilgilerle.

  Son_Dolu_Satir = Sheets("ENJ-2013").Range("A65536").End(xlUp).Row
                Bos_Satir = Son_Dolu_Satir + 1

 

[YUSUF44]

arkadaşlar şimdi tablomda ilk boş satıra yazıyor bu kod fakat ben sadece ilk a sutununu boşsa yazmasını istiyorum çünkü diğer hücrelerde formullerim var dolu diye görmüyor ve boş satıra yazıyor. Yani ben sadece a sutununda ki ilk boş hücreyi görsün ve ordan yazsın isityorum boylelikle formuller otomatik hesaplama yapacak gelen bilgilerle.

  Son_Dolu_Satir = Sheets("ENJ-2013").Range("A65536").End(xlUp).Row
                Bos_Satir = Son_Dolu_Satir + 1

Bildiğim kadarıyla bu kodlar zaten A sütunundaki son dolu ve ilk boş hücrenin satır numarasını bulmak için kullanılıyor. Ordaki "a65536" ifadesi A sütununda işlem yapması gerektiğini söylüyor.

 

[suleyman242]

  Son_Dolu_Satir = Sheets("ENJ-2013").Range("A65536").End(xlUp).Row
                Bos_Satir = Son_Dolu_Satir + 1

Bende yanlış anlamadıysam; aralarda boşluk var galiba, boş olan ilk hücreyi bulmak istiyorsun
yukardaki kod dolu en son satırdan sonraki satırı veriyor

arada boş hücre varsa eğer ,

With Sheets("ENJ-2013").Range("a1:a[COLOR="Red"]500[/COLOR]")
    Set c = .Find("", LookIn:=xlValues)
MsgBox c.Row
End With

şeklinde bulabilirsin
alternatif olarak for next / do while döngülerle sorgulayabilirsin.