If kodunu tüm sütunda kullanma

[nihatra]

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("b8").Value = "Sınıf Öğretmeni" Or Range("b8").Value = "Okul Öncesi Öğretmeni" Then
Range("c8") = 18
ElseIf Range("b8").Value = "Branş Öğretmeni" Then
Range("c8") = 15
Else
MsgBox 0
End If

End Sub
Kodu örneğin "b8" hücresinde değil,"B" sütunun tamamında nasıl yazılır.

 

[Necdet]

Merhaba,

Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Intersect(Target, [B:B]) Is Nothing Then Exit Sub
    
    Dim s As String
    
    s = Evaluate("=UPPER(" & """" & Application.WorksheetFunction.Trim(Target.Value) & """" & ")")
    
    If StrComp(s, "SINIF ÖĞRETMENİ", vbTextCompare) = 0 Or _
       StrComp(s, "OKUL ÖNCESİ ÖĞRETMENİ", vbTextCompare) = 0 Then
        Target.Offset(0, 1) = 18
    ElseIf StrComp(s, "BRANŞ ÖĞRETMENİ", vbTextCompare) = 0 Then
        Target.Offset(0, 1) = 15
    End If
        
End Sub

 

[nihatra]

If Kodu tüm sütünda kullanmak

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

Kod çalışıyor Okul Öncesi Öğretmeni" seçince 18 gelmiyor

 

[Merhum İdris SERDAR]

.

Kodlar çalışıyor.

Yazmada hata yapıyor olabilirsiniz.



.

 

[Necdet]

Merhaba,

Kodda Büyük / Küçük Harf ve fazladan yazılabilecek boşlukları da dikkate alarak değişiklik yapıldı.