X
ďťż

Mefisto...diabeł czy anioł?

Witam,

mam problem z wyświetlaniem danych w wykresie przestawnych za pomocą makra. Chcę aby w jednym arkuszu klikając dwukrotnie na komórkę, wartość została zapamiętana i w osobnym arkuszu dana wartość znalazła się na wykresie przestawnym w kolumnach.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Dim szukaj As String
Dim Wiersz As Integer
   
    Wiersz = ActiveCell.Row
    If Target.Address = "$E$" & Wiersz And Target.Value <> "" And Target.Address <> "$E$2" And Target.Address <> "$E$4" Then
        szukaj = Target.Value
        Sheets("Wykresu").Visible = True
         Sheets("Wykresu").Select
           With ActiveSheet.PivotTables("Tabela przestawna1").PivotFields("SKU")
        .PivotItems("Brandy Metaxa 3* 38% 0,7L b.").Visible = True
        .PivotItems("Brandy Słoneczny Brzeg 36% 0,5L b.").Visible = False
   
End With   
    Else
   
    Cancel = True
   
    Exit Sub
       
    End If

End Sub

Mój problem polega na tym, że makro dołącza kolejną daną do wyświetlania na kolumnie. Czy ktoś wie jak zrobić aby, przed każdym zaznaczeniem odznaczał wszystkie poprzednie wartosci (aby wyświetlała się tylko jedna jedyna kliknięta dwukrotnie)?

Z góry dziekuję za pomoc.
Łukasz
  • zanotowane.pl
  • doc.pisz.pl
  • pdf.pisz.pl
  • katkaras.opx.pl

    • Drogi uzytkowniku!

    W trosce o komfort korzystania z naszego serwisu chcemy dostarczac Ci coraz lepsze uslugi. By moc to robic prosimy, abys wyrazil zgode na dopasowanie tresci marketingowych do Twoich zachowan w serwisie. Zgoda ta pozwoli nam czesciowo finansowac rozwoj swiadczonych uslug.

    Pamietaj, ze dbamy o Twoja prywatnosc. Nie zwiekszamy zakresu naszych uprawnien bez Twojej zgody. Zadbamy rowniez o bezpieczenstwo Twoich danych. Wyrazona zgode mozesz cofnac w kazdej chwili.

     Tak, zgadzam sie na nadanie mi "cookie" i korzystanie z danych przez Administratora Serwisu i jego partnerow w celu dopasowania tresci do moich potrzeb. Przeczytalem(am) Polityke prywatnosci. Rozumiem ja i akceptuje.

     Tak, zgadzam sie na przetwarzanie moich danych osobowych przez Administratora Serwisu i jego partnerow w celu personalizowania wyswietlanych mi reklam i dostosowania do mnie prezentowanych tresci marketingowych. Przeczytalem(am) Polityke prywatnosci. Rozumiem ja i akceptuje.

    Wyrazenie powyzszych zgod jest dobrowolne i mozesz je w dowolnym momencie wycofac poprzez opcje: "Twoje zgody", dostepnej w prawym, dolnym rogu strony lub poprzez usuniecie "cookies" w swojej przegladarce dla powyzej strony, z tym, ze wycofanie zgody nie bedzie mialo wplywu na zgodnosc z prawem przetwarzania na podstawie zgody, przed jej wycofaniem.