Vkookup ın kullanımı

[Mbozkurt34]

Selam Üstadlar,

Veri tabanında vlookup komutu ile önemli bir problemim var, burada açıklaması çok zor ekli dosyada daha kolay anlaşılır. Lütfen yardımlarınızı bekliyorum.

 

[Ömer]

Selam Üstadlar,

Veri tabanında vlookup komutu ile önemli bir problemim var, burada açıklaması çok zor ekli dosyada daha kolay anlaşılır. Lütfen yardımlarınızı bekliyorum.

Merhaba,

Eki inceleyiniz..

Formülle yaptım fakat bu tür tablolarda özet tablo kullanmanız daha mantıklıdır..

.

 

[Ali]

Formülle yaptım fakat bu tür tablolarda özet tablo kullanmanız daha mantıklıdır..
.

Ömer Bey'in tavsiyesi daha yerindedir.

Farklı bir örnek ve şablon isterseniz ekteki örneğide inceleyebilirsiniz.

 

[Necdet]

Merhaba,

İlgilenenler olursa makrolu çözümde benden olsun.

Sub SorumluBul()
Dim i As Long
Dim Kolon As Integer
Dim c As Range, Bul As Range
Dim Adres As Variant
Dim sv As Worksheet, ss As Worksheet
Set sv = Sheets("veri tabanı")
Set ss = Sheets("Sonuç")
ss.Select

Application.ScreenUpdating = False
Range("B3:K" & [A65536].End(3).Row).ClearContents
For i = 3 To [A65536].End(3).Row
    With sv.Range("A:A")
        Set c = .Find(Cells(i, "A"), LookIn:=xlValues)
        If Not c Is Nothing Then
            Adres = c.Address
            Kolon = 1
            Do
                If Application.WorksheetFunction.CountIf(Range(Cells(i, 1), Cells(i, Kolon)), sv.Cells(c.Row, "B")) = 0 Then
                    Kolon = Kolon + 1
                    Cells(i, Kolon) = sv.Cells(c.Row, "B")
                End If
                Set c = .FindNext(c)
            Loop While Not c Is Nothing And c.Address <> Adres
        End If
    End With
Next i
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlandı...."
End Sub

 

[Mbozkurt34]

Veri Tabanıma uygulayamadım.

Arkadaşlar yardımlarınız için saolun, yalnız gerek Ömer'in formülü gerekse Necdet'in makrosu ikisini de kendi veritabanımda formüle edemedim. ( Acemiliğim için kusura bakmayın ) şimsi asıl veri tabanının gönderiyorum, rica etsem bunun üzerinde aynı işlemleri yapabilir misiniz ? çok makbule geçecek.

Kolay Gelsin.

 

[Ali]

Ben cevap yazmayayım o zaman.

 

[Mbozkurt34]

Ali bey, ne demek tabiki sizden de cevap alabilirsem çok memnun olurum, ancak ömer beyin hazırladığı şekliyle bana daha uygun o nedenle yazdım.

 

[Mbozkurt34]

Arkadaşlar ömer beyin gönderdiği dosyada ki formüller { işareti ile başlıyor ve bitiyor, formülün içine girince kayboluyor ve formülün çıktısı değişiyor kusura bakmayın belki çok basit bir şey ama ben bilmiyorum bu nedenle de kendime uygulayamıyorum, acaba bu işaretin anlamı nedir ? ve ben formüldeki alanları değiştirebilir miyim ?

 

[Ali]

Belki bu cevabımda sizin için değersiz olabilir.

Dizi formülleri CTRL+SHIFT+ENTER tuşları ile girilir Excel formül başına ve sonuna { } ayıraçlarını kendi ekler. Siz eklememelisiniz.

 

[Mbozkurt34]

Ali Bey Teşekkür ederim. Ali bey bu siteye üye olduğumdan beri sizin gibi değerli uzmanların çok yardımını aldım bu nedenle hepinize minnettarım, sizin hiç bir cevabınız değersiz olamaz lütfen böyler düşünmeyin.

 

[Necdet]

Arkadaşlar yardımlarınız için saolun, yalnız gerek Ömer'in formülü gerekse Necdet'in makrosu ikisini de kendi veritabanımda formüle edemedim. ( Acemiliğim için kusura bakmayın ) şimsi asıl veri tabanının gönderiyorum, rica etsem bunun üzerinde aynı işlemleri yapabilir misiniz ? çok makbule geçecek.

Kolay Gelsin.

Ben buradaki hitap şeklini beğenmedim.

 

[Mbozkurt34]

Nejdet Bey, konu ile ilgili mesajların tümünü okumadınız herhalde,mesajımla ilgilenen herkese bey olarak hitap ettim ve konunun hakimi olan sizleri haklı olarak övdüm ama buna rağmen yinede beyenmediyseniz buda sizin takdiriniz.