Elektroda.pl
Elektroda.pl
X
Proszę, dodaj wyjątek www.elektroda.pl do Adblock.
Dzięki temu, że oglądasz reklamy, wspierasz portal i użytkowników.

[Excel, Vba] Pozbycie się auto filtra za pomocą przycisku

-Tomi- 12 Lip 2010 18:48 4460 7
  • #1 12 Lip 2010 18:48
    -Tomi-
    Poziom 13  

    Witam

    Mam problem tego typu. Posiadam Plik exela "zeszyt" z arkuszem "osoby" w którym mam dane i jest autofiltr. Z Filtra nazwisko wybiram nazwisko Cieślak i stosuję filtr. Teraz chcę zrobić tak żeby dane które są odfiltrowane po naciśnięciu przycisku skopiowało mi arkusz "osoby" i przeniosło do nowego pliku lecz żeby w nowym pliku były same dane bez autofiltra i bez przyciku. W załączyniku dołączam plik.

    Dzięki za pomoc

    0 7
  • #3 12 Lip 2010 19:35
    -Tomi-
    Poziom 13  

    Załącznik mi nie odpowie bo sam go zrobiłem przycisk nie ma podpisanego kodu

    0
  • #4 12 Lip 2010 20:03
    marcinj12
    Poziom 40  

    deejaytomekk napisał:
    Załącznik mi nie odpowie bo sam go zrobiłem przycisk nie ma podpisanego kodu
    Nie pisałem o załączniku z Twojego tematu, tylko o tym do którego prowadzi link: https://www.elektroda.pl/rtvforum/topic1713549.html
    Ściągnij, ALT+F11 i podejrzyj kod pod przyciskiem.

    0
  • #5 12 Lip 2010 22:20
    -Tomi-
    Poziom 13  

    No niestety to nie jest to o co mi chodzi.

    0
  • #6 13 Lip 2010 09:26
    walek33
    Poziom 28  

    Wydaje mi się, że najprostszym osiągnięciem celu jest zaznaczenie obszaru po odfiltrowaniu i proste copy - paste.

    0
  • #7 13 Lip 2010 09:41
    dariodon
    Poziom 13  

    Ja stosuje taki łopatologiczny sposób na zamykanie filtrów trzeba by dodać jeszcze kod za pomocą którego przed zamknięciem filtru skopiuje dane i zapisze je do osobnego pliku.

    Code:

    Private Sub zamknijfiltry_Click()

    Application.ScreenUpdating = False  ' żeby nie było widać
    Range("a10:ae10").Select ' kolumny które są objęte autofiltrem
    Selection.AutoFilter ' autofiltr

    Range("a10:ae10").Select
    Selection.AutoFilter
    Range("a11").Select ' ustawienie na początku listy
    Application.ScreenUpdating = True
    end sub

    0
  • #8 19 Lip 2010 19:58
    -Tomi-
    Poziom 13  

    Czy może ktoś jest mi w stanie doradzić jak rozwiązać ten problem???? Bardzo proszę o pomoc.

    0