Soru AÇILIR LİSTEDEN MAKRO İLE DÜŞEY ARA

[zulfuernek]

CV sayfasında L4 hücresindeki açılır listeden ismi seçtiğimde SYSTEM sayfasında B sütunundaki listeye göre düşey ara yaparak bilgileri nasıl doldurabiliriz.

 

[muhasebeciyiz]

1. CV Sayfası Ayarları
Diyelim ki CV sayfasında : L4 hücresine bir açılır liste koydun (bu liste SYSTEM sayfasındaki B sütunundan isimleri çekiyor).

Açılır Listeyi Oluşturmak (Eğer yapmadıysan):

CV sayfasında L4 hücresini seç.

Veri > Veri Doğrulama (Data Validation) sekmesine git.
"Liste"yi seç ve kaynak olarak şu aralığı gir:
=SYSTEM!B2:B100 (veya isimler neredeyse)

2. DÜŞEYARA ile Bilgi Getirmek

SYSTEM sayfasında her kişinin bilgileri satır satır yer alıyor diyelim:
B: İsim
C: Departman
D: Pozisyon
E: Telefon
... (gibi)

Örnek:

CV sayfasında,
L5 hücresine seçilen kişinin departmanı gelsin istiyorsun.
L6’ya pozisyon, L7’ye telefon...
L5 hücresine şu formülü yaz:

=EĞERHATA(DÜŞEYARA(L4;SYSTEM!B:E;2;YANLIŞ);"")

Bu formül:

L4’te seçilen ismi SYSTEM sayfasının B sütununda arar,
Eşleşen satırdan 2. sütundaki (yani C sütunu – Departman) bilgiyi getirir,
Hata olursa boş bırakır.

Diğerleri için:

L6 (Pozisyon):
=EĞERHATA(DÜŞEYARA(L4;SYSTEM!B:E;3;YANLIŞ);"")

L7 (Telefon):
=EĞERHATA(DÜŞEYARA(L4;SYSTEM!B:E;4;YANLIŞ);"")

SYSTEM Sayfası (A1:E10)

A	B	C	D	E
ID	İsim	Departman	Pozisyon	Telefon
1	Ahmet Yılmaz	Satış	Müdür	555-1234
2	Ayşe Kaya	Pazarlama	Uzman	555-5678
3	Mehmet Demir	IT	Analist	555-9876
...	...	...	...	...

CV Sayfası

Hücre	İçerik
L4	[Açılır Liste]
L5	[Departman]
L6	[Pozisyon]
L7	[Telefon]

L5 (Departman):L6 (Pozisyon): =EĞERHATA(DÜŞEYARA(L4;SYSTEM!B:E;2;YANLIŞ);"")

L6 (Pozisyon): =EĞERHATA(DÜŞEYARA(L4;SYSTEM!B:E;3;YANLIŞ);"")

L7 (Telefon): =EĞERHATA(DÜŞEYARA(L4;SYSTEM!B:E;4;YANLIŞ);"")

Açılır Listeyi Oluşturma: Eğer L4 hücresine açılır liste eklemediysen, şu adımları izleyebilirsin:

1. L4 hücresini seç.
2. Veri sekmesinden Veri Doğrulamayı seç.
3. Ayarlar sekmesinde, İzin Ver kısmını Liste olarak değiştir.
4. Kaynak kısmına =SYSTEM!B2:B100 yaz (isimlerin bulunduğu aralığı belirt).

Veri Güncellemeleri: SYSTEM sayfasındaki veriler güncellendikçe, CV sayfasındaki bilgiler otomatik olarak yenilenecektir.

 

[zulfuernek]

Hocam emeğine sağlık. Teşekkür ederim getçekten çokndetaylı bilgilendirici bir açıklama olmuş ancak ben bunu düşey ara formülüyle değilde. Makro olarak gerçekleştirmek istiyorum. Yani butona tıklayınca makro olatak bu işlevi yapmaktansa açılır listeden seçtiğim zaman bu işlevi makro ile yapmasını istiyorum. Çünkü düşey ara fürmülü ile yaptığım takdirde. Gelen hücrelere veri değişikliği yaptığım zaman düşey ara formülü o hücre için devre dışı kalacaktır.

 

[volki_112]

CV sayfasında L4 hücresindeki açılır listeden ismi seçtiğimde SYSTEM sayfasında B sütunundaki listeye göre düşey ara yaparak bilgileri nasıl doldurabiliriz.

dosyanızı paylaşırsanız üzerinde çalışabiliriz.

 

[zulfuernek]

CV sayfasında ad soyad ile arama açılır liste mevcut.

 

[ÖmerFaruk]

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Bul As Range
    xx = Target.Address
    If Intersect(Target, Range("L4")) Is Nothing Then Exit Sub
    With Worksheets("SYSTEM")
        Set Bul = .Range("B:B").Find(what:=Target, lookat:=xlWhole)
        If Bul Is Nothing Then
            MsgBox Range("D9") & vbCrLf & vbCrLf & "İsimli bulunamadı kontrol ederek yeniden deneyiniz.", vbInformation
            Exit Sub
        End If
    End With
    Range("N8") = Bul.Offset(0, 3)
    'Bu sadece TCKN
    'Diğer hücrelerinizi de siz benzer şekilde yapabilirsiniz sanırım
    'Diğer Worksheet_Change olayını neden yazdınız anlamadım.
    'Eğer aynı olaya ait başka kodlarınız da varsa ki var
    'Kodları birleştirmek lazım
    'Tabi eğer diğer Change olayını iptal etmeyecekseniz
End Sub