Düşeyara ile Karşılaştırma yapıp diğer sayfaya veriyi yazmak

[panki]

Merhabalar,

Rapor Tablosuna Cari ve Marka Sabit olarak ekleniyor.

Benim istemiş olduğum Rapor Tablosuna eklenen 'Cari Kod' ile 'Marka'yı karşılaştırıp 'Cari Data' Sayfasından bulup 'Rapor' sayfasında Eczane ve Bölge Sorumlusunu getirmek

Örn:
=DÜŞEYARA('Rapor'!A1=C1;'Cari Data'!B1:E1968;4;0)

Rapor Sayfasında "A1" hücresindeki veri "C1" hücresindeki veri ile karşılaştırılıp "Cari Data" Sayfasından Eczane ve Bölge Sorumlusu bilgilerini getirmesini istiyorum.

Dosya ekleyemedim Upload ettim

 

[Ömer BARAN]

Rapor sayfası B2 hücresine;

=DOLAYLI("'Cari Data'!"&ADRES(KAÇINCI(E2;'Cari Data'!$F$1:$F$1968;0);5;4))

Rapor sayfası D2 hücresine;

=DOLAYLI("'Cari Data'!"&ADRES(KAÇINCI(E2;'Cari Data'!$F$1:$F$1968;0);4;4))

formüllerini uygulayıp, aşağı doğru çoğaltınız.

 

[Murat OSMA]

Makro ile çözüm isterseniz bu kodları kullanabilirsiniz;

[FONT="Trebuchet MS"]Sub Emre()
    Dim i&, Rky As Range
    For Each Rky In Sayfa1.Range("B2:B" & Sayfa1.Range("B65536").End(3).Row)
        With Sayfa2
            For i = 2 To .Range("A65536").End(3).Row
                If Rky.Value = .Cells(i, 1) And Rky.Offset(0, 1).Value = .Cells(i, 3) Then
                    .Cells(i, 2) = Rky.Offset(0, 3).Value
                    .Cells(i, 4) = Rky.Offset(0, 2).Value
                End If
            Next i
        End With
    Next Rky
    Set Rky = Nothing: i = Empty
End Sub[/FONT]

 

[panki]

Rapor sayfası B2 hücresine;

=DOLAYLI("'Cari Data'!"&ADRES(KAÇINCI(E2;'Cari Data'!$F$1:$F$1968;0);5;4))

Rapor sayfası D2 hücresine;

=DOLAYLI("'Cari Data'!"&ADRES(KAÇINCI(E2;'Cari Data'!$F$1:$F$1968;0);4;4))

formüllerini uygulayıp, aşağı doğru çoğaltınız.

Merhaba Ömer,

Senin belirtmiş olduğun gibi eklemeye çalışıyorum fakat dosya seçmek için pencere açılıyor dosyayı ve sayfayı seçtikten sonra #YOK uyarısı ile karşılaşıyorum

Rica etsem dosya içerisinde yapıp atabilir misin? Eğer oluyorsa.

 

[panki]

Merhaba Murat,

Senin vermiş olduğun Makro'yu 1 kere çalıştırdım çalıştı sonra kaydederken birşeyler oldu ekleyemedim sonra nasıl ekleyebilirim?

 

[Ömer BARAN]

Az önce yazmayı unutmuşum formüllerin başvurduğu Cari Data Sayfasında F2 hücresine =B2&C2 formülünü, Rapor sayfasında ise E2 hücresine =A2&C2 formülünü uygulayıp tabloların sonuna kadar uygulamıştım.
Önceki mesajdaki formüller, ilave ettiğim bu iki sütun (Cari Data F sütunu ve Rapor Sayfasında ise E sütunu) üzerinden işlem yapıyordu.
Önce bu mesajda yazdığım formülleri uygulayınız ardından bir önceki mesajda yazdıklarımı.

 

[panki]

Merhaba Ömer,

Yardımların için çok teşekkür ederim. Bahsetmiş olduğun şekilde işlemi gerçekleştirdim veriye ulaştım.

 

[panki]

Makro ile çözüm isterseniz bu kodları kullanabilirsiniz;

[FONT="Trebuchet MS"]Sub Emre()
    Dim i&, Rky As Range
    For Each Rky In Sayfa1.Range("B2:B" & Sayfa1.Range("B65536").End(3).Row)
        With Sayfa2
            For i = 2 To .Range("A65536").End(3).Row
                If Rky.Value = .Cells(i, 1) And Rky.Offset(0, 1).Value = .Cells(i, 3) Then
                    .Cells(i, 2) = Rky.Offset(0, 3).Value
                    .Cells(i, 4) = Rky.Offset(0, 2).Value
                End If
            Next i
        End With
    Next Rky
    Set Rky = Nothing: i = Empty
End Sub[/FONT]

Merhaba Murat,

Makro Sistemi olarak ekleme işlemini gerçekleştirdim fakat bu makroyu sadece 2 alan için gerçekleştirebiliyorum farklı alanlar için gerçekleştirmek istersem makroda nasıl bir ekleme yapmam gerekiyor.

 

[Murat OSMA]

Farklı alandan kastınız nedir ?
Söylerseniz ona göre bir yanıt veririm.

 

[panki]

Farklı alan derken 2 sayfa içerisinde birden fazla veri yi getirmek istiyorum.

Örn: Cari Data Dosyasındaki verilerden Rapor Dosyasına yine bazı alanlar getirmek istiyorum.

 

[heracrisis]

Merhaba,

hücre içinde oluşturmuş olduğum düşeyara formulü olduğu için hücreleri toplayamıyorum nasıl toplayabilirim?

 

[panki]

Merhaba,

hücre içinde oluşturmuş olduğum düşeyara formulü olduğu için hücreleri toplayamıyorum nasıl toplayabilirim?

Selam,

Yapmak istediğin işlemi bir dosya olarak gönderirsen sana daha kolay yardımcı olabiliriz.