Üretim Listesi Vbs Yardım

0nur38 · 5 Mayıs 2017

Selamun aleykum;
Arkadaşlar benim şöyle bir sorunum var . ekte vermiş oldugum listede Delik Büküm Pres Listesi sayfasında bulunan örnegin profil bükmeye bastıgım zaman ordaki 0 ve boş olanlar hariç filtre işlemi yapsın istiyorum boru bukmeye tıklayınca diger suzu kaldırıp boru bukmedekı 0 ve bos olanlar harıc suzme işlemini yapsın istiyorum tasmisyon bukume basıldıgında dier filtreleri kalrıdıp tasmısyondakı 0 ve bos olanları almayıp dıerlerını suzsuz istiyorum nasıl yapabılırım yardımcı olurmusunuz.
Şimdiden teşekkurler

0nur38 · 5 Mayıs 2017

Guncel yardım

Asri · 5 Mayıs 2017

0nur38' Alıntı:
Guncel yardım

Mesela, dosya.tc yada dosya.co dan yükleyip link verseniz. Bakabilecek başka kişiler çıkarmı

0nur38 · 6 Mayıs 2017

Olabilir hocam

askm · 6 Mayıs 2017

http://www.dosyaupload.com/ adresine örnek dosyanızı eklerseniz yardımcı olmaya çalışalım.

0nur38 · 6 Mayıs 2017

http://www.dosyaupload.com/8UtN

Asri · 6 Mayıs 2017

Kontrol ediniz.
A1..A5 arasındaki hücrelerin seçimi değiştiğinde aktif olur.

http://dosya.co/cjqo4ntikmwv/OZet_tablo_suz_otomatik_.xlsm.html

Delik Büküm Press Listesi sayfasının kod bölümüne yapıştırın.

Kod:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Application.ScreenUpdating = False
   If Target.Address(0, 0) = "A1" Then
      Call hepsini_goster
      With ActiveSheet.PivotTables("PivotTable1").PivotFields("PROFİL BÜKME (BLM)")
        .PivotItems("(blank)").Visible = False
        .PivotItems("0").Visible = False
      End With
   End If
    
   If Target.Address(0, 0) = "A2" Then
    Call hepsini_goster
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("BORU BÜKME")
        .PivotItems("(blank)").Visible = False
        .PivotItems("0").Visible = False
    End With
   End If
   
   If Target.Address(0, 0) = "A3" Then
    Call hepsini_goster
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("TANSMİSYON BÜKÜM")
        .PivotItems("(blank)").Visible = False
        .PivotItems("0").Visible = False
    End With
   End If
    
   If Target.Address(0, 0) = "A4" Then
    Call hepsini_goster
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("METAL DELİK DELME")
        .PivotItems("(blank)").Visible = False
        .PivotItems("0").Visible = False
    End With
   End If
   
   If Target.Address(0, 0) = "A5" Then
    Call hepsini_goster
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("EKSANTİRİK PRES")
        .PivotItems("(blank)").Visible = False
        .PivotItems("0").Visible = False
    End With
   End If
  Application.ScreenUpdating = True
    
End Sub

Sub hepsini_goster()
  ActiveSheet.PivotTables("PivotTable1").PivotFields("PROFİL BÜKME (BLM)"). _
        CurrentPage = "(All)"
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("PROFİL BÜKME (BLM)")
        .PivotItems("(blank)").Visible = True
        .PivotItems("0").Visible = True
    End With
    
    ActiveSheet.PivotTables("PivotTable1").PivotFields("BORU BÜKME").CurrentPage = _
        "(All)"
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("BORU BÜKME")
        .PivotItems("(blank)").Visible = True
        .PivotItems("0").Visible = True
    End With
    
    ActiveSheet.PivotTables("PivotTable1").PivotFields("TANSMİSYON BÜKÜM"). _
        CurrentPage = "(All)"
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("TANSMİSYON BÜKÜM")
        .PivotItems("(blank)").Visible = True
        .PivotItems("0").Visible = True
    End With
    
    ActiveSheet.PivotTables("PivotTable1").PivotFields("METAL DELİK DELME"). _
        CurrentPage = "(All)"
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("METAL DELİK DELME")
        .PivotItems("(blank)").Visible = True
        .PivotItems("0").Visible = True
    End With
    
    ActiveSheet.PivotTables("PivotTable1").PivotFields("EKSANTİRİK PRES"). _
        CurrentPage = "(All)"
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("EKSANTİRİK PRES")
        .PivotItems("(blank)").Visible = True
        .PivotItems("0").Visible = True
    End With

End Sub

0nur38 · 6 Mayıs 2017

asri' Alıntı:

Kontrol ediniz.
A1..A5 arasındaki hücrelerin seçimi değiştiğinde aktif olur.

http://dosya.co/cjqo4ntikmwv/OZet_tablo_suz_otomatik_.xlsm.html

Delik Büküm Press Listesi sayfasının kod bölümüne yapıştırın.

Kod:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Application.ScreenUpdating = False
   If Target.Address(0, 0) = "A1" Then
      Call hepsini_goster
      With ActiveSheet.PivotTables("PivotTable1").PivotFields("PROFİL BÜKME (BLM)")
        .PivotItems("(blank)").Visible = False
        .PivotItems("0").Visible = False
      End With
   End If
    
   If Target.Address(0, 0) = "A2" Then
    Call hepsini_goster
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("BORU BÜKME")
        .PivotItems("(blank)").Visible = False
        .PivotItems("0").Visible = False
    End With
   End If
   
   If Target.Address(0, 0) = "A3" Then
    Call hepsini_goster
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("TANSMİSYON BÜKÜM")
        .PivotItems("(blank)").Visible = False
        .PivotItems("0").Visible = False
    End With
   End If
    
   If Target.Address(0, 0) = "A4" Then
    Call hepsini_goster
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("METAL DELİK DELME")
        .PivotItems("(blank)").Visible = False
        .PivotItems("0").Visible = False
    End With
   End If
   
   If Target.Address(0, 0) = "A5" Then
    Call hepsini_goster
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("EKSANTİRİK PRES")
        .PivotItems("(blank)").Visible = False
        .PivotItems("0").Visible = False
    End With
   End If
  Application.ScreenUpdating = True
    
End Sub

Sub hepsini_goster()
  ActiveSheet.PivotTables("PivotTable1").PivotFields("PROFİL BÜKME (BLM)"). _
        CurrentPage = "(All)"
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("PROFİL BÜKME (BLM)")
        .PivotItems("(blank)").Visible = True
        .PivotItems("0").Visible = True
    End With
    
    ActiveSheet.PivotTables("PivotTable1").PivotFields("BORU BÜKME").CurrentPage = _
        "(All)"
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("BORU BÜKME")
        .PivotItems("(blank)").Visible = True
        .PivotItems("0").Visible = True
    End With
    
    ActiveSheet.PivotTables("PivotTable1").PivotFields("TANSMİSYON BÜKÜM"). _
        CurrentPage = "(All)"
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("TANSMİSYON BÜKÜM")
        .PivotItems("(blank)").Visible = True
        .PivotItems("0").Visible = True
    End With
    
    ActiveSheet.PivotTables("PivotTable1").PivotFields("METAL DELİK DELME"). _
        CurrentPage = "(All)"
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("METAL DELİK DELME")
        .PivotItems("(blank)").Visible = True
        .PivotItems("0").Visible = True
    End With
    
    ActiveSheet.PivotTables("PivotTable1").PivotFields("EKSANTİRİK PRES"). _
        CurrentPage = "(All)"
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("EKSANTİRİK PRES")
        .PivotItems("(blank)").Visible = True
        .PivotItems("0").Visible = True
    End With

End Sub

Çok teşekkür ederim hocam
lakın soyle bır sıkıntı var ornegın eksantrık pres te hıc bır verı olmayınca hata mesajı alıyorum onu nasıl cozebılırım

0nur38 · 6 Mayıs 2017

Çok teşekkür ederim hocam
lakın soyle bır sıkıntı var ornegın eksantrık pres te hıc bır verı olmayınca hata mesajı alıyorum onu nasıl cozebılırım

Asri · 6 Mayıs 2017

0nur38' Alıntı:
Çok teşekkür ederim hocam
lakın soyle bır sıkıntı var ornegın eksantrık pres te hıc bır verı olmayınca hata mesajı alıyorum onu nasıl cozebılırım

Metal iş emri listesinde eksantrık pres e ait tüm verileri sildikten sonra özet tabloyu güncelledim. tıklayınca boş liste verdi.

Bir sorun göremedim.

0nur38 · 6 Mayıs 2017

asri' Alıntı:
Metal iş emri listesinde eksantrık pres e ait tüm verileri sildikten sonra özet tabloyu güncelledim. tıklayınca boş liste verdi.

Bir sorun göremedim.

Hosam metal iş emri listesindeki kodları sildigim zaman ozet tabloyu yenılıyorum tıklayınca hata verıyor k bakmayın sızıde yordum maksadım ogrenmek cok sagolun cok tesekkur ederım

Asri · 6 Mayıs 2017

Dosyanızı dosya.co dan yüklermisiniz.
Aynı dosya üzerinden hiç birşey değiştirmeden deneyeyim.

0nur38 · 6 Mayıs 2017

asri' Alıntı:
Dosyanızı dosya.co dan yüklermisiniz.
Aynı dosya üzerinden hiç birşey değiştirmeden deneyeyim.

buyrun hocam

http://www.dosyaupload.com/4Iol

Asri · 6 Mayıs 2017

0nur38' Alıntı:
buyrun hocam

http://www.dosyaupload.com/4Iol

"Delik Büküm Pres Listesi" sayfasında A1 ile A5 arasındaki hücreleri tıklıyorsunuz değil mi?

5 hücreyi de tıkladım. Herhangi bir sorun çıkmadı.

hizliresim.com da hata ile ilgili ekran görüntüsü ekler misiniz?

0nur38 · 6 Mayıs 2017

asri' Alıntı:
"Delik Büküm Pres Listesi" sayfasında A1 ile A5 arasındaki hücreleri tıklıyorsunuz değil mi?

5 hücreyi de tıkladım. Herhangi bir sorun çıkmadı.

hizliresim.com da hata ile ilgili ekran görüntüsü ekler misiniz?

evet hocam

https://i.hizliresim.com/Jay04J.png

0nur38 · 6 Mayıs 2017

Cok sagolun Hocam Zaten o hatanın bır onermı yok .. hatayı yoksay dedım gectım ellerınıze saglık

On error resume next bu kodu ekledım.

Üretim Listesi Vbs Yardım

0nur38

Ekli dosyalar

0nur38

Asri

0nur38

askm

Destek Ekibi

0nur38

Asri

0nur38

0nur38

Asri

0nur38

Asri

0nur38

Asri

0nur38

0nur38