Verilen satırda belirli bir alanda veri bulunduğunu kontrol etmek

[spasmex97]

İyi günler öncelikle , bir algoritmanın çalışmasını başlatmadan önce , bu algoritmanın başlaması için gerekli şartlar sağlanmış mı diye kontrol etmek istiyorum. Bu kontrolü yaparken de kullanıcının textbox a girdiği sayıyı i. satır olarak alıp i. satırda belirli bir alanın dolu olup olmadığını kontrol etmek istiyorum bu belirli alanın başlangıç noktası sabit fakat bitiş noktası değişken. Nasıl yapabilirim

 

[Korhan Ayhan]

Merhaba,

İlgili alanda koşulun varlığını kontrol etmek için;

Tek koşulsa (COUNTIF-EĞERSAY) ya da (FIND-BUL) ile yapabilirsiniz.
Birden fazla koşulsa (ÇOKEĞERSAY-COUNTIFS) ya da (TOPLA.ÇARPIM-SUMPRODUCT) ile yapabilirsiniz.

Forumda bunlarla ilgili bolca örnekler var. Arama yaparsanız ulaşabilirsiniz.

 

[spasmex97]

Merhaba,

İlgili alanda koşulun varlığını kontrol etmek için;

Tek koşulsa (COUNTIF-EĞERSAY) ya da (FIND-BUL) ile yapabilirsiniz.
Birden fazla koşulsa (ÇOKEĞERSAY-COUNTIFS) ya da (TOPLA.ÇARPIM-SUMPRODUCT) ile yapabilirsiniz.

Forumda bunlarla ilgili bolca örnekler var. Arama yaparsanız ulaşabilirsiniz.

vba tarafında kod oluşturucam
i olarak bir sayı vereceğim ve bu i yı satır olarak tanıtıp bu satırda misal B2 den başlayarak Bx e kadar gidecek x değişken

 

[Korhan Ayhan]

Aşağıdaki gibi kurgulayabilirsiniz.

Range("B2:B" & X)

 

[spasmex97]

Hocam peki bu koşul oluşturduğunda bir hata mesajı gösteriyorum ve bu hata mesajı çıkarsa command butondaki diğer atanmış algoritmaları çalıştırmamasını istiyorum nasıl yapabilirim?

 

[Korhan Ayhan]

Hata mesajı çıktıktan sonra Go To komutu ile makroyu istediğiniz bölüme yönlendirebilirsiniz. Ya da Call Makro Adı şeklinde kod çağırabilirsiniz.

 

[spasmex97]

command butonun içi bu şekilde iken call makrolardan önce bu durumu kontrol etmek istiyorum eğer hata b = 0 sa devam , değilse durdurup uyarı mesajı çıksın şeklinde nasıl yaparım ?

 

[Korhan Ayhan]

Deneyiniz.

If b = 0 Then
   Go To 10
Else
   UserForm1.Show
   Exit Sub
End If

10
Call isimleralg

 

[spasmex97]

teşekkürler hocam tekrardan

 

[spasmex97]

Hocam hata mesajı verdirmeme rağmen call fonksiyonları çalışmaya devam etti

 

[Korhan Ayhan]

Burada şunu dedik...

Eğer b sıfıra eşitse diğer makroları çalıştır.
Eğer b sıfıra eşit değilse UserForm1 nesnesini aç ve işlemden çık.

 

[spasmex97]

Burada şunu dedik...

Eğer b sıfıra eşitse diğer makroları çalıştır.
Eğer b sıfıra eşit değilse UserForm1 nesnesini aç ve işlemden çık.

farkettim fakat userform1 açıktan sonra çıkış yapmıyor ve diğer makroları çalıştırmaya devam ediyor

 

[Korhan Ayhan]

Bu durumda örnek dosyanızı paylaşın kontrol edelim.

 

[spasmex97]

CPPmakroilk_-_Kopya__version_1_.xlsm dosyasını indir - download

CPPmakroilk_-_Kopya__version_1_.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s6.dosya.tc

userform2 deki rotayı bul butonunun içi hocam

 

[Korhan Ayhan]

Siz benim önerimi tam olarak uyguladığınıza emin misiniz?

 

[spasmex97]

hocam 0 a eşitse hata vermesi gerekiyor, eğer 0 dan büyükse devam etmesi gerekiyor, debug hatası alıyorum call fonksiyonu hala çalışıyor demek ki

 

[Korhan Ayhan]

Paylaştığınız dosyada EXIT SUB satırını kullanmamışsınız. Bunu eklemeniz gerekir.

 

[spasmex97]

Paylaştığınız dosyada EXIT SUB satırını kullanmamışsınız. Bunu eklemeniz gerekir.

koşul sağlanmadığı durumda exit sub sağlandığında devam koşulu hocam o zaman öyle mi ?

 

[Korhan Ayhan]

Lütfen deneyiniz...

 

[spasmex97]

tamamdır hocam, dediğiniz gibi yapınca makrolar durdu