AA1’den Sonra Veri Varsa Kod Çalışmasın

[hakki83]

Merhaba hocalarımız.

AA1, AB1, AC1… diye giden birinci satırda,

Eğer Z den sonraki hücrelerde veri varsa kod çalışmasın, Then Exit Sub yapsın
Nasıl yazılır?

If Range (“AA1:XFD1”).Value > 0 Is Nothing Then Exit Sub

yazdım olmadı.

 

[Ömer]

Merhaba,

Deneyiniz.

If WorksheetFunction.CountA(Range("AA1:XFD1")) > 0 Then Exit Sub

 

[hakki83]

Değerli Ömer hocam teşekkürler, emeğinize sağlık.

 

[hakki83]

Merhaba,

Deneyiniz.

If WorksheetFunction.CountA(Range("AA1:XFD1")) > 0 Then Exit Sub

Hocam bir sorum vardı.

WorksheetFunction ifadesi yerine

(başka bir sayfadan kodla diğer sayfadaki verileri aldığım için)

Sayfa1 olarak bahsedecek olursak nasıl yazarız?

Sayfa1.Function olarak denedim olmadı.

 

[tukayf]

("Sayfa1!AA1:XFD1"))
gibi deneyebilir misiniz.

 

[hakki83]

("Sayfa1!AA1:XFD1"))
gibi deneyebilir misiniz.

Hata verdi Tukayf hocam.

 

[tukayf]

Hakkı Bey başka sayfa formülü bu şekilde yazılıyor diye hatırlıyorum. Bende de kod ve formül bilgisi yok. Umarım Ömer Bey düzeltmeyi yapar.

 

[Ömer]

Deneyiniz. xxx olan sayfa adı bölümü kendinize göre değiştirirsiniz.

If WorksheetFunction.CountA(Sheets("xxx").Range("AA1:XFD1")) > 0 Then Exit Sub