Belli bir aralığa veri girmeyi şart koşarak makro çalıştırma..

[EKREM1661]

Belli bir aralığa veri girmeyi şart koşarak makro çalıştırma..

Çok kıymetli Excel ustaları..selamlar..

Ben Excel’e VBA diliyle şunu anlatamadım.
Eğer (H11-H41) sütun aralığına hiç veri girilmemiş ise;

MsgBox “gündelik oranları hiç girilmemiş, gündelik oranlarını giriniz.!”

uyarısı versin, yok eğer tek hücreye de olsa girilmiş veri varsa,
makroyu çalıştırmaya devam etsin..Böyle bir ifadeyi, nasıl oluşturabiliriz.

yardım edecek arkadaşlarımızın yardımını bekliyorum..

 

[Korhan Ayhan]

Selamlar,

Bu kontrolü nasıl yapmak istiyorsunuz. Bir butona bastığınızdamı bu kontrol yapılacak. Yoksa sayfada herhangi bir hücreye veri girişi yapılıncamı bu tür detayları verirseniz cevap almanız kolaylaşacaktır.

 

[EKREM1661]

Selamlar,

Bu kontrolü nasıl yapmak istiyorsunuz. Bir butona bastığınızdamı bu kontrol yapılacak. Yoksa sayfada herhangi bir hücreye veri girişi yapılıncamı bu tür detayları verirseniz cevap almanız kolaylaşacaktır.

evet, evet bir düğmeye atamak suretiyle çalıştırılacak..

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu bir butona atayarak denermisiniz.

Sub KONTROL()
    If WorksheetFunction.CountA([H11:H41]) = 0 Then
    MsgBox "Gündelik oranları hiç girilmemiş." & vbCrLf & "Gündelik oranlarını giriniz !", vbCritical
    End If
End Sub

 

[EKREM1661]

Selamlar,

Aşağıdaki kodu bir butona atayarak denermisiniz.

Sub KONTROL()
    If WorksheetFunction.CountA([H11:H41]) = 0 Then
    MsgBox "Gündelik oranları hiç girilmemiş." & vbCrLf & "Gündelik oranlarını giriniz !", vbCritical
    End If
End Sub

sayın COST_CONTROL elinize sağlık, çok güzel ve net oldu, yalnız küçük bir ilave daha icab etti..
Eğer koşul sağlanmayıp MsgBox uyarısı ile karşılaştığım zaman makro çalıştırma işini sonlandırsın..(koşul sağlanmışsa zaten çalışması tamam)

 

[EKREM1661]

sayın COST_CONTROL elinize sağlık, çok güzel ve net oldu, yalnız küçük bir ilave daha icab etti..
Eğer koşul sağlanmayıp MsgBox uyarısı ile karşılaştığım zaman makro çalıştırma işini sonlandırsın..(koşul sağlanmışsa zaten çalışması tamam)

sorun halledildi..çok teşekkür ediyorum..
MsgBox ...kod satırı sonrasına,
Exit Sub ileve edince konu çözüldü..

hayırlı çalışmalar..