Yatay dikey arama ve aktarma

[Ahmet Sami]

iyi günler, B1 hücresine yazdığım değeri yani ismi HEDEFLER sayfasındaki tabloda bulup illerin kaşısına mavi olan bölüme yazacak, örnek olarak MOUSE yazdığım zaman HEDEFLER sayfasındaki D sütununda bulup değerleri illerin karşısına yazacak makro veya formülle yapılabilir. Aynı şekilde hangi ismi girersem o sütunu bulup buraya illerin karşısına yazacak.
Yardımlarınız için şimdiden teşekkür ederim. Örnek dosyayı ekledim.

 

[Muzaffer Ali]

Merhaba.
B2 ye aşağıdaki formülü kopyalayın alt hücrelere çoğaltın.

=DÜŞEYARA(A2;HEDEFLER!A:G;KAÇINCI($B$1;HEDEFLER!$A$1:$G$1;0);0)

 

[Ahmet Sami]

Muzaffer Ali Bey çok teşekkür ederim.

 

[Ahmet Sami]

Sayın Muzaffer Ali bey, formülü uyarladım, ekstra olarak ilk satırda yer alan ürün isimlerinin yerine B1'e 2021,C1'e 2022, D1'e 2023,...... tarih olarak girdim sanırım rakam olarak girdiğim için kabul etmedi yardım edebilirmisiniz

 

[Muzaffer Ali]

Rakam yada metin farkı yok formül her ikisinde de doğru sonuç verir.
Girdiğiniz rakamları kontrol edin başına yada sonuna boşluk eklemiş olabilirsiniz.
Ya da dosyanızı ekleyin kontrol edelim.

 

[Ahmet Sami]

Buyurun üstadım

 

[Muzaffer Ali]

D2 ye uygulayın.

=DÜŞEYARA(A2;HEDEFLER!$A$52:$R$77;KAÇINCI($D$1;HEDEFLER!$A$52:$R$52;0);0)

Hedefler sayfasında yazan 2021 metin formatında, bunu sayısal formata çevirmelisiniz.

 

[Ahmet Sami]

Çok teşekkür ederim sağolun ancak bir konuda atlamışım tarihleri formül ile gösteriyordum hücrede formül olunca kabul etmiyor. Yani D1 hücresine tarih formül olarak aktarılıyor

 

[Ahmet Sami]

Formül olarak aktardığı için veriye getirmiyor yardımcı olabilir misiniz Muzaffer Ali bey

 

[Muzaffer Ali]

Örnek dosyanızı gerçek dosyanız ile bire bir aynı olacak şekilde yeniden düzenleyip paylaşın.

 

[Ahmet Sami]

Muzaffer bey çok özür dilerim sizi çok meşgul ettim asıl yapmam gerekeni yazdım ve dosyayı ekledim hakkınızı helal edin.
MALZEME adını ve herhangi bir TARİHİ girince HEDEFLER sekmesindeki ilgili satırdan bulacak ve hem MALZEME hemde seçtiğim herhangi bir tarihe ait bilgileri MUHTELİF tablosuna aktaracak. Örnek BİLGİSAYAR tablosunda ki 2022 tarihli bilgileri getirmesi gerekiyor. MUHTELİF sayfasında ki formül iki seçenekli olarak yazılması gerekiyor. Yani BİLGİSAYAR, MOUSE, KLAVYE den hangisini girersem bulup MUHTELİF tablosuna aktaracak.

 

[Ahmet Sami]

Yardım edebilecek bir üstadımız var mıdır.

 

[Muzaffer Ali]

Aşağıdaki kodu "ANASAYFA" adlı sayfanın kod kısmına kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim syfMuh As Worksheet, syfHed As Worksheet
    Dim Bak As Long
    Dim BulNesne As Range, BakSehir As Long
    Dim AraSehir As String, AraNesne As String, AraYil As String
    Dim YilSay As Integer, BakYil As Integer
    
    If Not Intersect(Target, Range("H10:H11")) Is Nothing Then
        Set syfHed = ThisWorkbook.Worksheets("HEDEFLER")
        Set syfMuh = ThisWorkbook.Worksheets("MUHTELİF")
        AraNesne = Range("H10")
        AraYil = Range("H11")
        For Bak = 2 To syfMuh.Cells(Rows.Count, "A").End(xlUp).Row
            AraSehir = syfMuh.Cells(Bak, "A")
            Set BulNesne = syfHed.Range("A:A").Find(what:=AraNesne, lookat:=xlWhole)
            If BulNesne Is Nothing Then
                MsgBox AraNesne & " bulunamıyor."
                Exit Sub
            Else
                For BakYil = 2 To syfHed.Cells(BulNesne.Row, Columns.Count).End(xlToLeft).Column
                    If syfHed.Cells(BulNesne.Row, BakYil) = AraYil Then
                        For BakSehir = BulNesne.Row + 2 To Rows.Count
                            If syfHed.Cells(BakSehir, "A") = syfMuh.Cells(Bak, "A") Then
                                syfMuh.Cells(Bak, "B") = syfHed.Cells(BakSehir, BakYil)
                                Exit For
                            End If
                        Next
                        Exit For
                    End If
                Next
            End If
        Next
    End If
End Sub

 

[Ahmet Sami]

Muzaffer bey ilginizden dolayı çok teşekkür ederim. Yalnız İL olduğu gibi ANKARA ilinden sevkiyat yaptığım gibi ANKARA ili içerisinde de dağıtım yapıyorum yani iller yanı sıra şirket ismi de oluyor ancak şirket ismini illerin altına eklediğim zaman yazdığım şirketi aktarma yapmıyor.

 

[Muzaffer Ali]

Örnek dosyanızı bir de bu dediğiniz şekli ile hazırlayıp ekleyin kontrol edeyim.

 

[Ahmet Sami]

Gönderdi Muzaffer bey, çok özür dilerim sizi baya yordum.

 

[Muzaffer Ali]

Şehir ve şirket isimleri "Muhtelif" sayfasında varsa arama yapar yoksa arama yapmaz.
İller gibi şirket isimlerini de "Muhtelif" sayfasına eklemelisiniz.

 

[Ahmet Sami]

Doğrudur evet aynen dediğiniz gibi olması lazım. Acele ettim galiba oraya eklemeyi unuttum güncelleyip tekrar atıyorum inaşallah.

 

[Muzaffer Ali]

Tamam şimdi çalışıyor. Eksikliği gidermişsiniz.

 

[Ahmet Sami]

Çok teşekkür ediyorum. Size zahmet verdirdik hakkınızı helal edin.