Aynı sayfa Altında Birden Çok Koşula Göre Otomatik Kayıt

[baydeniro]

Merhaba arkadaşlar. Aynı sayfanın altında birden çok koşula göre hücre girişlerinde otomatik veri yazması mümkün mü ?

Örneğin 4 ten büyük rakam için yanına Çek yazması gibi. Örnek dosya ektedir.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

 

[Murat OSMA]

Puffff 3.000 mesaj... :shock::shock:


3. Kolon (C sütunu) için örnek veriyorum, devamını siz buna göre yaparsınız..

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 3 Then
        Select Case Target.Value
            Case "Adana"
                Target.Offset(0, 1).Value = "Karpuz"
            Case "Aydın"
                Target.Offset(0, 1).Value = "Üzüm"
        End Select
    End If
End Sub

 

[baydeniro]

Çok teşekkür ederin Sayın Murat Osma. Birden fazla kolonda koşula bağlı kod nasıl olur ?

 

[Murat OSMA]

Rica ederim.

Yukarıdaki kodları çoğaltarak.

 

[baydeniro]

Aynı kolonda çoğaltabiliyorum. Ama farklı kolonlarda sonuç alamadım. Örneğin şöyle yaptım :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then
Select Case Target.Value
Case "Adana"
Target.Offset(0, 1).Value = "Karpuz"
Case "Aydın"

ElseIf Not Target.Column = 6 Then
Select Case Target.Value
Case "Tek Manav"
Target.Offset(0, 1).Value = "Senet"

End If
End Select
End Sub