Aynı Sayfa Altında Birden Fazla Makro Kodu

[baydeniro]

Sayın Arkadaşlar. Bir sayfanın altında birden fazla duruma göre makro kodu çalışır mı ?
Şehir'i seçince seçili şehire tanımlı Ürün Bilgisi C sütununa ; Müşteri seçince seçili müşteriye tanımlı Fiyat bilgisi yine C sütununa getirilebilir mi ?

 

[asi_kral]

Aynı İlden ve Aynı müşterinin isminden başka olacak mı_?

 

[baydeniro]

Merhaba hayır olmayacak.

 

[asi_kral]

Merhaba hayır olmayacak.

Merhaba
Sayfanın Kod bölümüne kopyalayın ve deneyin

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
'Konu       :   İki Ayrı Sütuna Göre karşılık Bul
'Mail       :   m.batu.1967@gmail.com
'Msn        :   m.batu.1967@hotmail.com.tr
'Coder By   :   asi_kral_1967
Application.EnableEvents = False
Dim asi As Worksheet
Set asi = Worksheets("TANIM")
If Target.Count < 2 Then
If Target.Column = 1 Then
If Intersect(Target, Range("A2:A" & Rows.Count)) Is Nothing Then Exit Sub
If Target <> Empty Then
Cells(Target.Row, "C") = WorksheetFunction.VLookup(Target, asi.Range("A:C"), 3, 0)
End If
ElseIf Target.Column = 2 Then
If Intersect(Target, Range("B2:B" & Rows.Count)) Is Nothing Then Exit Sub
If Target <> Empty Then
Cells(Target.Row, "C") = WorksheetFunction.VLookup(Target, asi.Range("B:D"), 3, 0)
End If: End If: End If
Application.EnableEvents = True
End Sub

Dosya Ekte.

 

[baydeniro]

Satın asi kral 1967 Allah sizden razı olsun. süper süper süper, harika bir kod. Elleriniz dert görmesin sağlıcakla kalın.

 

[asi_kral]

Satın asi kral 1967 Allah sizden razı olsun. süper süper süper, harika bir kod. Elleriniz dert görmesin sağlıcakla kalın.

Kolay Gelsin.