5 Şartlı veri doğrulama

[Filose]

Merhaba arkadaşlar,

5 şart sağlandığında işlev yapsın komutunu bir türlü düzenleyemedim. Ekte dosyada ayrıntılı olarak var.

Else If ve and komutlarıyla denedim ama yine olmadı.

Herkese teşekkür eder saygılar sunarım.

 

[muygun]

Merhaba;

sayfanın kod bölümüne;

Sub işlem2()
Set s1 = ThisWorkbook.Worksheets("Liste")
If s1.Cells(5, "bs") = 1 Or s1.Cells(5, "bs") = 4 Or s1.Cells(5, "bs") = 7 Or s1.Cells(5, "bs") = 10 Then doğrudönem = 1 Else doğrudönem = 0
For i = 12 To s1.Range("CV65536").End(xlUp).Row Step 2
If doğrudönem = 1 And s1.Cells(i, "cv") <> "" Then s1.Cells(i, "al") = "ŞUB" Else s1.Cells(i, "al") = ""
Next i
End Sub

Kodlarını ekleyerek çalıştırın.

İyi çalışmalar.

 

[Filose]

Sayın muygun öncelikle çok teşekkür ederim. Yazdığınız kod işimi gördü. Ancak buton yardımıyla çalıştı. Oysa benim kullandığım kodlarda BS5 değeri değiştikçe makro tetikleniyor.

Bu nedenle;
If s1.Cells(5, "BS") = "1" And s1.Cells(5, "BS") = "4" And s1.Cells(5, "BS") = "7" And s1.Cells(5, "BS") = "10" And s1.Cells(12, "CV") > "0" _
Then s1.Cells(12, "AL") = "ŞUB" Else s1.Cells(12, "AL") = ""

Bu satır kodla kısmi işimi gördü. BS5 deki şartlar sağlandığında CV12 de sayı varsa AL12'ye "ŞUB" yazması gerekirken yazmıyor. Yukarıdaki kırmızı kod görev yapmıyor.

Saygılarla,

 

[muygun]

Merhaba;
lokal makro işlem yapıyor. (sizin uygulamanızı denemedim)
Private Sub Worksheet_Change makrosunda
Call işlem
yazan satırın altına;

Call işlem2

yazın.
İyi çalışmalar.

 

[Filose]

Merhaba muygun, ellerinize sağlık. Dediğiniz gibi Call işlem2 yapınca çalıştı ama bu sefer kodların içinde bulunan diğer kodlar çalışmadı. Sizi yormak istemiyorum yeterince yardımcı oldunuz zaten teşekkür ederim. Sadece aşağıdaki kod hakkında bilginize ihtiyacım var.

If s1.Cells(5, "BS") = "1" And s1.Cells(5, "BS") = "4" And s1.Cells(5, "BS") = "7" And s1.Cells(5, "BS") = "10" And s1.Cells(12, "CV") > "0" _
Then s1.Cells(12, "AL") = "ŞUB" Else s1.Cells(12, "AL") = ""

Burada 5 şart gerçekleştiğinde AL12 hücresine "ŞUB" yazsın yoksa boşluk koysun.

Nerede yanlış yapıyorum anlayamadım.

Teşekkür eder saygılar sunarım.

 

[Korhan Ayhan]

Sayısal verileri tırnak içinde yazdığınız için sorun yaşıyor olabilirsiniz.

 

[Filose]

Merhaba Korhan Bey,
Sayısal verileri tırnak içinden de kurtardığımda aynı maalesef sonuç değişmiyor.

Anladığım kadarıyla Then s1.Cells(12, "AL") = "ŞUB"
CV12 sıfırdan büyük olduğunda, burası çalışmıyor.

İlginize teşekkür ederim.

 

[muygun]

Merhaba;

And s1.Cells(12, "CV") > "0" _

dışındaki And ları Or yapın. (And=ve , Or=veya şartı taşır)

İyi çalışmalar

 

[Filose]

Tekrar merhaba muygun,

Tam dediğiniz gibi sorun çözüldü. Ben denemiştim ama CV12 içinde OR yaptığım için olmamıştı.

Elinize bilginize sağlık, teşekkür eder saygılar sunarım.