Aralıkta veri varsa makro çalışsın yoksa çalışmasın

[emk35]

"Eğer c6:c31 arasında yazı varsa Call -makro2- yazı yoksa hiç birşey yapma"

arkadaşlar bu kısmı yazdığım bir koda eklemem yazım ama içinden çıkamadım...

yardımcı olursanız sevinirim...

-------------bu kod olacak arkadaşlar, fonksiyon deil-------------

 

[uzmanamele]

Merhaba

Bunu deneyiniz.

Sub metin_say()

    say1 = Application.WorksheetFunction.CountA(Range("c6:c31"))
    say2 = Application.WorksheetFunction.Count(Range("c6:c31"))

If say1 - say2 > 0 Then
MsgBox "metin var"
Else:
MsgBox "metin yok"
End If
End Sub

 

[emk35]

İlginize tesekkurler.. İlk firsatta deneyip sonucu billdirecegim..

 

[emk35]

Sn: uzmanamele

verdiğiniz koddaki say tanımlarında hata verdi. ben bunu mevcut bir makroya eklediğim için mi bilemiyorum..

Bu kodu daha farklı nasıl yazabilirizz..

ilgilenenlere şimdiden teşekkürler..

 

[emk35]

Arkadaşlar bu konuda yardımcı olabilecek var mı acaba??..

 

[emk35]

Sorun çözülmüştür. herkese teşekkürler..