Boş olan hücreleri aktarmasın

[hakpin]

ap26 hücresi boş ise diğer hücreleride aktarmasın

Değerli Hocalarım merhaba;
İlk sıradaki "AP26" hücresi boş ise aşağıdaki diğer hücreleride aktarmasın

Sayfa = ("Depo")
sOn = WorksheetFunction.CountA(Sheets(Sayfa).[r4:r5000]) + 1
Sheets(Sayfa).Cells(sOn + 3, "v") = [ap26]'
Sheets(Sayfa).Cells(sOn + 3, "r") = [k13]
Sheets(Sayfa).Cells(sOn + 3, "s") = [BR22]
Sheets(Sayfa).Cells(sOn + 3, "t") = [k7]
Sheets(Sayfa).Cells(sOn + 3, "u") = [k9]

Yardımlarınız için çok teşekkür ederim

 

[UAcikel]

Şöyle hızlıca bir gözatabildim ancak, ama biraz fazla karışık olduğu için satır satır inceleyemedim.

Eğer bu 31 hücrenin de tamamı dolu iken ancak kayıt yapılmasını istiyorsan bu durumda B54 e yazdığın formulün bir benzerini yine tüm dolması gereken hücreleri göstererek BAĞ_DEĞ_DOL_SAY fonksiyonunu kullanarak yapabilirsin.

Yani örneğin A1 hücresine ;
=bağ_değ_dolu_say(AP26;AU26;AZ26;BE26;BJ26;BO26;BT26.....) şeklinde yazıp dolu alanları saydırabilirsin.

Bu durumda örneğin A1 hücresindeki değer 31 den küçük olduğunda (yani bir tane bile boş olsa) kodun çalışmasını engellemek için bir if - then bloku kullanabilirsin. Şöyleki ;

if sayfa1.cells(1,1)<31 then 'yani e&#287;er A1 de yaz&#305;l&#305; de&#287;er 31 den k&#252;&#231;&#252;k ise

msgbox "Hata mesaj&#305;n&#305; buraya yazars&#305;n"

else

31 doldu&#287;unda yap&#305;lacaklar&#305; buraya yazars&#305;n.

end if

end sub

&#220;mit A&#231;&#305;kel

 

[hakpin]

ap26 hücresi boş ise diğer hücreleride aktarmasın

Sayın UAcikel İlginize teşekkür ederim.
istediğim kısaca şu;
Aktarılacak ilk hücre "AP26" Boş ise diğer hücreleride aktarmasın
Sayfa = ("Depo")
sOn = WorksheetFunction.CountA(Sheets(Sayfa).[r4:r5000]) + 1
Sheets(Sayfa).Cells(sOn + 3, "v") = [ap26]
Sheets(Sayfa).Cells(sOn + 3, "r") = [k13]
Sheets(Sayfa).Cells(sOn + 3, "s") = [BR22]
Sheets(Sayfa).Cells(sOn + 3, "t") = [k7]
Sheets(Sayfa).Cells(sOn + 3, "u") = [k9]

Tekrar göz atabilirseniz çok sevinirim.Selamlar

 

[Levent Menteşoğlu]

A&#351;a&#287;&#305;daki kodu kodlar&#305;n&#305;z&#305;n ba&#351;&#305;nda ilk sat&#305;r olarak kullan&#305;n.

if [ap26]="" then exit sub

 

[UAcikel]

E&#287;er sadece ilk h&#252;creye bakacaksan yukar&#305;daki kod yeterli