if else de sutun sayısını artırma

[attrd]

Sub aktar()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Sayfa2.Range("M6:AQ17").ClearContents
For x = 1 To 31
For y = 10 To 13 'J=10, K=11, L=12, M=13. sütun
If y = 13 Then
deger = 8
Else
deger = 24
End If
tmp1 = Sayfa1.Cells(2 * x + 1, y) 'H3 H61 Arası 2 şer adımla ilerle
If tmp1 = "" Then GoTo atla
For Z = 6 To 17 'Puantaj sayfası personel sayısı 6. satır 17. satır
tmp2 = Sayfa2.Cells(Z, "K")
If tmp1 = tmp2 Then
Sayfa2.Cells(Z, x + 12) = deger
Exit For
End If
Next Z
atla:
tmp1 = Sayfa1.Cells(2 * x + 2, y) 'H3 H61 Arası 2 şer adımla ilerle
If tmp1 = "" Then GoTo atla2
For Z = 6 To 17 'Puantaj sayfası personel sayısı 6. satır 17. satır
tmp2 = Sayfa2.Cells(Z, "K")
If tmp1 = tmp2 Then
Sayfa2.Cells(Z, x + 12) = deger
Exit For
End If
Next Z
atla2:

Next y
Next x
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub

..
... arkadaşlar bu koda göre 10,11,ve 12 sutunlar degeri aktarılırken 24 diye 13 sutundegeri aktarılırken 8 diye aktarılıyor benım bu kodda sadece 13 değilde 14 ve 15 sutunlarında 8 deger aktarması ıcın if ve else komutunu nasıl yapzarım


### For y = 10 To 13 'J=10, K=11, L=12, M=13. sütun
If y = 13 Then
deger = 8
Else
deger = 24
End If ###

.. burayı nasıl sadece 13 sutunu değil de 13 ve 14 u 8 diğerleri yani 10,11,12 sutunun degeri 24 olur ben select case ile denedim olmadı yardımcı olabılırmısınız
attrd Çevrimiçi Kurallara Aykırı Mesajı Bildir

 

[Mustafa MUTLU]

If y = 13 Or 14Then
deger = 8
Else
deger = 24
End If

 

[attrd]

If y=13 and 14 then
deger= 8
Else
deger =24

Seklindede denedim olmuyo

 

[attrd]

Senin dedigin gibi veya olmuyor
Hem 13 hem 14 = 8
Digerleri =24
Seklinde lazim

 

[Mustafa MUTLU]

If y = 13 Or 14 Then
deger = 8
Else
deger = 24
End If

Bu kod işini görmesi lazım anlamadım neden olmadı ?
Şunu deneyim
Önce değeri 24 alsın eğer y = 13 yada Y=14 ise değeri 8 yapsın.

deger = 24
If y = 13 Then
deger = 8
End If
If y = 14 Then
deger = 8
End If

 

[Saban Sertkaya]

Mustafa Bey Merhabalar,

Verdiğniz kod sanırım aşağıdaki şekilde olmalı.

If y = 13 Or [B][COLOR="Red"][B]y =[/B] [/COLOR][/B]14Then
deger = 8
Else
deger = 24
End If

 

[attrd]

If y > 12 Then
deger = 8
Else
deger = 24
End If
Seklinde cozduk cok tesekkurler

 

[attrd]

Yada veya ile istemedim ve ile olmasi gerekiyodu yani OR istedimi vermedi 13 veya 14 degilde hem 13 hemde 14 beraber olmaliydi 12 den buyuk yapinca oldu sizede cook tesekkurler