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

EKREM1661

Altın Üye
Katılım
10 Kasım 2006
Mesajlar
1,265
Excel Vers. ve Dili
Excel-2016
Altın Üyelik Bitiş Tarihi
03-02-2026
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

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,572
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
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

Altın Üye
Katılım
10 Kasım 2006
Mesajlar
1,265
Excel Vers. ve Dili
Excel-2016
Altın Üyelik Bitiş Tarihi
03-02-2026
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

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,572
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Selamlar,

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

Kod:
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

Altın Üye
Katılım
10 Kasım 2006
Mesajlar
1,265
Excel Vers. ve Dili
Excel-2016
Altın Üyelik Bitiş Tarihi
03-02-2026
Selamlar,

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

Kod:
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

Altın Üye
Katılım
10 Kasım 2006
Mesajlar
1,265
Excel Vers. ve Dili
Excel-2016
Altın Üyelik Bitiş Tarihi
03-02-2026
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..
 
Üst