Hücre Dolu İse Boş Hücreye Aktar

[suleyman_toklu]

Hücre Dolu Ýse Boş Hücreye Aktar

sayfa 2 de ve sayfa 3 de yaptığim çalışmaları sayfa 1 e aktarmak istiyorum ancak sayfa 1 A1 satırı doluysa(sayfa 3 veya sayfa 2 deki yaztıklarımdan dolayı)
A2 satırına aktarmasını istiyorum nasıl bir fomül koyabilirim




edit xxrt:Soru Başlığınız"nasıl bir fomül olabilir", İdi "Hücre Dolu İse Boş Hücreye Aktar" Olarak değiştirildi
*Konunuz Makrolar Bölümüne Taşındı.

 

[danersin]

Sorunuzu bu hali ile anlamak zor. Ã?rnek dosya eklemenizi yada biraz daha açmanızı tavsiye ederim.

 

[red_lion_72]

selam,



Dim satirsay As Integer
satirsay = Application.CountA(Sheets("sayfa1").Columns("A"))

if satirsay=0 then

Sheets("sayfa1").Cells(1, 1)="ne yazılacaksa"
else
Sheets("sayfa1").Cells(2, 1)="ne yazılacaksa"

end if

kolay gelsin....

Ayrıca çalışmanızı görebilrsek daha net çözümler üretebiliriz....

[/vb]

 

[suleyman_toklu]

vakkas kardeş bunu biraz açarmısın yani bu ifadeleri nereye nasıl yazıp uygulayacağım ve değerler neyi anlatmakta biraz bilgi verirsen makbule geçecek biz daha bu işin acemisiyiz öğreneceğiz sizlerin sayesinde inşaallah teşekkürler