If prs.Cells(a + 1, 6) = "Yazıcı" Then şartını çogaltmak

[DeliBalta58]

If prs.Cells(a + 1, 6) = "Yazıcı" Then
mlb.Cells(5 + a, 8) = prs.Cells(a + 1, 59) '
Else
mlb.Cells(5 + a, 8) = ""
End If

bu kodda hata yok normal çalışıyor.

ben bunu;

If prs.Cells(a + 1, 6) = "Yazıcı" And "Telsiz" And "Telefon" And "OpKonsol" Then
mlb.Cells(5 + a, 8) = prs.Cells(a + 1, 59) 
Else
mlb.Cells(5 + a, 8) = ""
End If

bu şekilde hata verdi.

Yani "prs.Cells(a + 1, 6)" sütununda "Yazıcı,Telsiz,Telefon,OpKonsol" bunlardan birisi varsa "mlb.Cells(5 + a, 8)" 'e yazmasını istiyorum.
Aralarına ne koymam gerekli acaba

 

[Skorpiyon]

Sayın Delibalta58,

If prs.Cells(a + 1, 6) = "Yazıcı" And prs.Cells(a + 1, 6) = "Telsiz" And prs.Cells(a + 1, 6) = "Telefon" And prs.Cells(a + 1, 6) = "OpKonsol" Then

Eğer hep aynı hücreyi kontrol etteriyorsanız, aynı hücrede bu şekilde olmayacağından AND yerine OR karşılaştırma operatörünü kullanarak deneyiniz.

 

[DeliBalta58]

and olarak hiç bir değer almadı ancak or olarak kabul etti. teşekkürler