Pivot a bir başka excel dosyasını bağlama

[filizcandan]

Merhaba arkadaşalar ..
Benim SQL üzerinde çalışan bir programımdan Sipariş Bilgilerini Pivot yardımı ile excel e bilgileri gayet güzel alıyorum. Benim sorunum.
1- Başka bir excel tablosunda Sipariş veren firmanın ödeme dosyaları bulunmaktadır. ben Pivot ile excel dosyasını nasıl birleştirebilirim.
Sipariş pivot ında firma adı ve kodu bulunmakta ben firma adını tıkladığımda diğer excel tablosuna gitmesini ve ödeme bilgilerini göstermesini istiyorum.

umarım sorunumu anlata bilmişimdir. Yardımlarınıza şimdiden teşekkürler.

 

[Ferhat Pazarçevirdi]

Örnek bir dosya eklerseniz eğer; hem çözüm daha hızlı olacaktır, hem de yazılanlar ve söylenenler havada kalmayacaktır.

Yine de şöyle bir şey yapabilirsiniz.

Pivot tablonun olduğu sayfanın BeforeDoubleClick olayı için; firma adı veya kodunun bulunduğu hücrelere çift tıklandığında, Ödemeler tablosunda, tıklanan activecell değerine göre; arama yapacak bir prosedür geliştirilebilir.

 

[filizcandan]

Örnek bir dosya eklerseniz eğer; hem çözüm daha hızlı olacaktır, hem de yazılanlar ve söylenenler havada kalmayacaktır.

Yine de şöyle bir şey yapabilirsiniz.

Pivot tablonun olduğu sayfanın BeforeDoubleClick olayı için; firma adı veya kodunun bulunduğu hücrelere çift tıklandığında, Ödemeler tablosunda, tıklanan activecell değerine göre; arama yapacak bir prosedür geliştirilebilir.

EVET İSTEDİĞİM BU FAKANT NASIL YAPILACAĞINI BİLMİYORUM.
DOSYAYI SİZE GÖNDEREMİYORUM ÇÜNKÜ SQL DEN ÇEKTİĞİM İÇİN BİLGİLER GELMİYOR AMA BAŞLIKLARINI AYNEN ÖRNEK BİR TABLOYA KOPYALADIM SİZE GÖNERİYORUM.
YARDIMLARINIZA ŞİMDİDEN TEŞEKKÜRLER...

 

[Ferhat Pazarçevirdi]

Eğer gerçek dosyanız da; buraya gönderdiğinizin aynısı ise;

Aşağıdaki kodları "İlk Sayfa" sheetinin kod bölümüne kopyalayınız.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [D:D]) Is Nothing Then: Exit Sub
Cancel = True
Set sh = Sheets("ÖDEME BİLİLERİ")
Set rg = sh.[b:b]
ara = Target.Value
If ara = "" Then: MsgBox "Lütfen firma bulunan bir hücreyi sorgulayınız", vbCritical, "UYARI": GoTo f1
bul = Application.WorksheetFunction.Match(ara, rg, 0)
MSG = MsgBox(ara & " adlı firmanın " & vbCrLf & "Borç Tutarı : " & sh.Cells(bul, 4) _
      & vbCrLf _
      & vbCrLf _
      & "İlgili sayfaya gidilsin mi?", vbYesNo, "HESAP BİLGİLERİ")
If MSG = vbYes Then
sh.Select
  sh.Cells(bul, 4).Select
End If
f1:
Set sh = Nothing
Set rg = Nothing
End Sub

 

[filizcandan]

harika

ellerinize sağlık ..emeğinize sağlık vakit ayırdığınız için çok teşekkür ederim...
ben sayfaları çoğaltarak onu çeşitlendirdim sizin örnekleriniz üzerinden...


Teşekkürler

 

[Ferhat Pazarçevirdi]

Rica ederim.
Hepimize kolay gelsin

 

[filizcandan]

Eğer gerçek dosyanız da; buraya gönderdiğinizin aynısı ise;

Aşağıdaki kodları "İlk Sayfa" sheetinin kod bölümüne kopyalayınız.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [D:D]) Is Nothing Then: Exit Sub
Cancel = True
Set sh = Sheets("ÖDEME BİLİLERİ")
Set rg = sh.[b:b]
ara = Target.Value
If ara = "" Then: MsgBox "Lütfen firma bulunan bir hücreyi sorgulayınız", vbCritical, "UYARI": GoTo f1
bul = Application.WorksheetFunction.Match(ara, rg, 0)
MSG = MsgBox(ara & " adlı firmanın " & vbCrLf & "Borç Tutarı : " & sh.Cells(bul, 4) _
      & vbCrLf _
      & vbCrLf _
      & "İlgili sayfaya gidilsin mi?", vbYesNo, "HESAP BİLGİLERİ")
If MSG = vbYes Then
sh.Select
  sh.Cells(bul, 4).Select
End If
f1:
Set sh = Nothing
Set rg = Nothing
End Sub

bana göndermiş olduğunuz kod işimi çözdü tekrar teşekkür fakat ben excel dosyama bir kaçtane sheet daha ekledim. Pivottan müşteri tıkladığımda hangi sheet gideceğimi sorabilirmi yada böyle bir imkanım varmıdır.

 

[Ferhat Pazarçevirdi]

Sn.FilizCandan
Ekli dosyayı inceleyiniz. (Hata kontrolleri de ilave edildi)

 

[filizcandan]

Herhangi bir eşleşme sağlanamadı" MESAJINI ALIYORUM

HATAMI BULAMADIM BİR TÜRLÜ

 

[Ferhat Pazarçevirdi]

Herhangi bir eşleşme sağlanamadı" MESAJINI ALIYORUM

HATAMI BULAMADIM BİR TÜRLÜ

Sayın FilizCandan
Eşleşme sağlanamadı uyarısı; seçtiğiniz firmanının diğer tablolarda herhangi bir karşılığının olmamasından kaynaklanıyor. Çift tıklama ile seçtiğiniz firma, diğer tablolarda veri olarak varsa; bu uyarıyı almazsınız.