if kodunu sütunda kullanma

[nihatra]

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, [B:B]) Is Nothing Then Exit Sub
If Target.Value = "Sınıf Öğretmeni" Or Target.Value = "Okul Öncesi Öğretmeni" Then
Target.Offset(0, 1) = 18
ElseIf Target.Value = "Branş Öğretmeni" Then
Target.Offset(0, 1) = 15
End If

End Sub

diyelim ki bu koda ilave olarak C sütununada 4 tane daha eğer formulü ilave etmemiz gerekirse nasıl yapacağız?

Teşekkürler....

 

[Muhammet Okumuş]

If Intersect(Target, [B:B]) Is Nothing Then Exit Sub
If Target.Value = "Sınıf Öğretmeni" Or Target.Value = "Okul Öncesi Öğretmeni" Then Target.Offset(0, 1) = 18
If Target.Value = "Branş Öğretmeni" Then Target.Offset(0, 1) = 15
If Target.Value = "v" Then Target.Offset(0, 1) = 14
If Target.Value = "y" Then Target.Offset(0, 1) = 13
...

End Sub

Bu şekilde çoğaltabilirsiniz.

 

[nihatra]

Cevabınız için teşekkurler
ama ben

C sütununada 4 tane daha eğer formulü ilave etmemiz gerekirse nasıl yapacağız?

diye sormuştum.

 

[Muhammet Okumuş]

C sütununa nasıl eğer ekleyeceksiniz.
Kodlar
Aktif hücre Sınıf yada okul Öncesi öğrt. ise aktif hücrenin 1 sağına(C sütunu) 18, Branş öğretmeni ise 15 yaz diyor. Siz nasıl koşul eklemek istiyorsunuz?

 

[nihatra]

Muhammet bey çok özür dilerim haklısınız.
Eger B sütunu Sınıf Öğretmeni ise H5 hücresine E5+F5+G5 topla gibi

 

[Muhammet Okumuş]

If Intersect(Target, [B:B]) Is Nothing Then Exit Sub
If Target.Value = "Sınıf Öğretmeni" Or Target.Value = "Okul Öncesi Öğretmeni" Then
Target.Offset(0, 1) = 18
kod1:
kod2:
kod3:
...
ElseIf Target.Value = "Branş Öğretmeni" Then
Target.Offset(0, 1) = 15
kod4:
kod5:
kod6:
....
End If

şeklinde yazabilirsiniz.

 

[nihatra]

Muhammet bey çok hızlısınız

Eger B sütunu Sınıf Öğretmeni ise H5 hücresine E5+F5+G5 topla gibi

kod nasıl yazılır.

 

[Muhammet Okumuş]

If Intersect(Target, [B:B]) Is Nothing Then Exit Sub
If Target.Value = "Sınıf Öğretmeni" Or Target.Value = "Okul Öncesi Öğretmeni" Then
Target.Offset(0, 1) = 18
Target.Offset(0, 6) = WorksheetFunction.Sum(range("E5:G5")

ElseIf Target.Value = "Branş Öğretmeni" Then
Target.Offset(0, 1) = 15

End If

şeklinde yazınız.

 

[nihatra]

Muhammet bey allah razı olsun çok Teşekkür ederim.

 

[Muhammet Okumuş]

Rica ederim. İyi çalışmalar.