• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Köprü yaptığımız sayfa açılırken filtre yapmak

S.Yiğit

S.Yiğit

Destek Ekibi
Destek Ekibi
Katılım
1 Temmuz 2008
Mesajlar
1,748
Excel Vers. ve Dili
2019 TR
Merhaba,

Yapmak istediğimiz işlem bir nevi köprü oluşturma ama köprü yaptığımız çalışma açılırken filtrede uygulamamız lazım. Ekte sorunumu anlattım. Yardımcı olacaklara şimdiden teşekkürler.
 

Ekli dosyalar

Merhaba,

Aşağıdaki kodu "PLAN" isimli sayfanızın kod bölümüne uygulayıp denermisiniz.

Kod: 
Option Explicit
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim Veri As Variant
    If Intersect(Target, Range("D3:D" & Rows.Count)) Is Nothing Then Exit Sub
    Cancel = True
    Veri = Target.Value
    Workbooks.Open Filename:="Z:\PLANLAMA\FAYDALI BİLGİLER\SEVKİYAT TAKİBİ\Sevkiyat Takvimi 2011.xlsx"
    Range("A3").AutoFilter Field:=8, Criteria1:=Veri
End Sub
 
Korhan bey merhaba,

Ağ bağlantılarında bir sorun var. Yarın sabah deneyip sonucu bildireceğim. Teşekkürler.
 
Korhan bey merhaba,

Kodu denediğimde Filtreleme işlemi proje takip çalışmasında oluyor. Köprü kurduğumuz Sevkiyat Takvimi 2011 sayfasında H sütununda olmalı. birde sayfa açılırken bütün filtreler kaldırılıp filtre öyle uygulanmalı. Tekrar teşekkürler.

Not: proje takip çalışması 2007, sevkiyat takvimi 2011 2003 formatındadır. kodda xlsx olan yeri xls olarak değiştirdim. Bundan sorun olmaz sanırım.
 
Herkese günaydın,

Yukarıdaki konuda yardıma ihtiyacım var.
 
Merhaba,

Aşağıdaki kodu deneyiniz.

Kod: 
Option Explicit
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim Veri As Variant
    If Intersect(Target, Range("D3:D" & Rows.Count)) Is Nothing Then Exit Sub
    Cancel = True
    Veri = Target.Value
    Workbooks.Open Filename:="Z:\PLANLAMA\FAYDALI BİLGİLER\SEVKİYAT TAKİBİ\Sevkiyat Takvimi 2011.xls"
    ActiveWorkbook.Sheets("DETAY").Select
    If ActiveWorkbook.ActiveSheet.AutoFilterMode Then
        ActiveWorkbook.ActiveSheet.ShowAllData
    Else
        ActiveWorkbook.ActiveSheet.Range("A3:AU3").AutoFilter
    End If
    ActiveWorkbook.ActiveSheet.Range("A3:AU3").AutoFilter Field:=8, Criteria1:=Veri
End Sub
 
Hocam merhaba,

Denemelerimde sorun yok, çok güzel oldu. Elinize sağlık. Tekrar teşekkürler.
 
Korhan bey merhaba,

Aşağıdaki kodda bir değişiklik yapmamız mümkün müdür?

Makro çalışırken "Z:\PLANLAMA\FAYDALI BİLGİLER\SEVKİYAT TAKİBİ\Sevkiyat Takvimi 2011 uzantısındaki çalışma açılırken filtre varsa kaldırıyor ya eğer filtre yoksa hata veriyor. Kodu düzenlemek için yardımcı olur musunuz? Teşekkürler.


Korhan Ayhan' Alıntı:
Merhaba,

Aşağıdaki kodu deneyiniz.

Kod: 
Option Explicit
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim Veri As Variant
    If Intersect(Target, Range("D3:D" & Rows.Count)) Is Nothing Then Exit Sub
    Cancel = True
    Veri = Target.Value
    Workbooks.Open Filename:="Z:\PLANLAMA\FAYDALI BİLGİLER\SEVKİYAT TAKİBİ\Sevkiyat Takvimi 2011.xls"
    ActiveWorkbook.Sheets("DETAY").Select
    If ActiveWorkbook.ActiveSheet.AutoFilterMode Then
        ActiveWorkbook.ActiveSheet.ShowAllData
    Else
        ActiveWorkbook.ActiveSheet.Range("A3:AU3").AutoFilter
    End If
    ActiveWorkbook.ActiveSheet.Range("A3:AU3").AutoFilter Field:=8, Criteria1:=Veri
End Sub
Genişletmek için tıkla ...
 
Merhaba,

Aşağıdaki şekilde denermisiniz.

Kod: 
Option Explicit
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim Veri As Variant
    If Intersect(Target, Range("D3:D" & Rows.Count)) Is Nothing Then Exit Sub
    Cancel = True
    Veri = Target.Value
    Workbooks.Open Filename:="Z:\PLANLAMA\FAYDALI BİLGİLER\SEVKİYAT TAKİBİ\Sevkiyat Takvimi 2011.xls"
    ActiveWorkbook.Sheets("DETAY").Select
    If ActiveWorkbook.ActiveSheet.AutoFilterMode Then
        On Error Resume Next
        ActiveWorkbook.ActiveSheet.ShowAllData
        On Error GoTo 0
    Else
        ActiveWorkbook.ActiveSheet.Range("A3:AU3").AutoFilter
    End If
    ActiveWorkbook.ActiveSheet.Range("A3:AU3").AutoFilter Field:=8, Criteria1:=Veri
End Sub
 
Korhan bey merhaba,

Revize için teşekkür ederim, elinize sağlık..
 
Merhabalar,

Korhan beyin 9. mesjındaki koda aynı koddan bir ilave yapmam lazım. Direk altına eklediğimde olmuyor. olması gereken kod aşağıdaki gibidir.




Kod: 
[COLOR="Red"]Korhan beyin verdiği kod.[/COLOR]

Option Explicit
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim Veri As Variant
    If Intersect(Target, Range("[COLOR="red"][B]B3:B[/B][/COLOR]" & Rows.Count)) Is Nothing Then Exit Sub
    Cancel = True
    Veri = Target.Value
    Workbooks.Open Filename:="Z:\PLANLAMA\FAYDALI BİLGİLER\SEVKİYAT TAKİBİ\Sevkiyat Takvimi [COLOR="red"][B]2011[/B][/COLOR].xls"
    ActiveWorkbook.Sheets("DETAY").Select
    If ActiveWorkbook.ActiveSheet.AutoFilterMode Then
        On Error Resume Next
        ActiveWorkbook.ActiveSheet.ShowAllData
        On Error GoTo 0
    Else
        ActiveWorkbook.ActiveSheet.Range("A3:AU3").AutoFilter
    End If
    ActiveWorkbook.ActiveSheet.Range("A3:AU3").AutoFilter Field:=8, Criteria1:=Veri
End Sub


[COLOR="red"]Buradan aşağısını ben ekledim(Değişiklikler kırmızı renkliler)[/COLOR]

Option Explicit
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim Veri As Variant
    If Intersect(Target, Range("[COLOR="Red"][B]C3:C[/B][/COLOR]" & Rows.Count)) Is Nothing Then Exit Sub
    Cancel = True
    Veri = Target.Value
    Workbooks.Open Filename:="Z:\PLANLAMA\FAYDALI BİLGİLER\SEVKİYAT TAKİBİ\Sevkiyat Takvimi [COLOR="red"][B]2012[/B][/COLOR].xls"
    ActiveWorkbook.Sheets("DETAY").Select
    If ActiveWorkbook.ActiveSheet.AutoFilterMode Then
        On Error Resume Next
        ActiveWorkbook.ActiveSheet.ShowAllData
        On Error GoTo 0
    Else
        ActiveWorkbook.ActiveSheet.Range("A3:AU3").AutoFilter
    End If
    ActiveWorkbook.ActiveSheet.Range("A3:AU3").AutoFilter Field:=8, Criteria1:=Veri
End Sub
 
Yardım

Korhan Ayhan' Alıntı:
Merhaba,

Aşağıdaki kodu "PLAN" isimli sayfanızın kod bölümüne uygulayıp denermisiniz.

Kod: 
Option Explicit
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim Veri As Variant
    If Intersect(Target, Range("D3:D" & Rows.Count)) Is Nothing Then Exit Sub
    Cancel = True
    Veri = Target.Value
    Workbooks.Open Filename:="Z:\PLANLAMA\FAYDALI BİLGİLER\SEVKİYAT TAKİBİ\Sevkiyat Takvimi 2011.xlsx"
    Range("A3").AutoFilter Field:=8, Criteria1:=Veri
End Sub
Genişletmek için tıkla ...

Korhan Bey Kolay Gelsin, ekte bulunan dosyada bütün veriler DEFAULT adlı dosyada bulunmakta ve ANASAYFA da formüller bulunmaktadır. Şimdi istediğim EYÜLÜ sayfasında bulunan 310.677,32 tutarını tıkladığımızda DEFAULT sayfasına gidip orada ATÖLYE ve 20.09.2013 ile 28.09.2013 vadesine gelen çekleri listeme yapsın. Böyle bir şeyi yapmam mümkün mü?
 

Ekli dosyalar

Son düzenleme:
Filtreleyerek link verme

Merhaba. 1-2 senelik konuyu hortlarttığım için öncelikle özür dilerim.
Bana da buna benzer bir şey lazım. Ama yapamadım.

Ekte 2 tane dosyayı ve yapmak istediğimi belirtmeye çalıştım.
Yardımcı olabilirseniz çok sevinirim.

Amacımı burada da yazayım ;

İki ayrı dosyam var. Bir tanesi icmal. Bu sayfada rakamlar var.
Diğeri ise "OcakDetay.xlsx" dosyası. OcakDetay.xlsx dosyasında "Sonuç" diye bir sütun var. Bu sütundaki değerlere göre, İcmal sayfasından link göndermek istiyorum.
 

Ekli dosyalar

Kimse yardımcı olmayacak sanırım ?
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst