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] Jak pominąć arkusz w makrze

Mike3129 09 Wrz 2008 08:39 2453 15
  • #1 09 Wrz 2008 08:39
    Mike3129
    Poziom 9  

    Witam mam następujący problem. Stworzyłem makro które kopiuje zawartośc komórek np d21 do h30 i wszystko działało dobrze do póki nie stworzyłem dodatkowego arkusza w którym wprowadzam wszystkie dane wypełniające pozostałe arkusze.
    Jak np ukryć ten arkusz żeby wszystko działało dobrze ?

    0 15
  • #3 09 Wrz 2008 12:05
    Mike3129
    Poziom 9  

    Proszę jaśniej, gdyż nie jestem za dobry w programowaniu. Dodam jeszcze iż to się dzieje na niektorych komputerach i wyskakuje wówczas komunikat w visualu w nowym module

    ActiveSheet.Shapes("Line1").Select
    Selcetion.copy
    sheets("Arkusz2").Select
    ActiveSheet.Paste

    O ile to w czymś pomoże

    0
  • #5 09 Wrz 2008 13:32
    Mike3129
    Poziom 9  

    Przepraszam że tak nakręciłem.

    Oto kod makra

    Sub kopiowanie()
    Range("DV2:HB21").Select
    Selection.copy
    Sheets("KARTA (2)").Select
    Range("DV2").Select
    ActiveSheet.Paste

    Range("DV2:HB21").Select
    Selection.copy
    Sheets("KARTA (3)").Select
    Range("DV2").Select
    ActiveSheet.Paste

    Range("DV2:HB21").Select
    Selection.copy
    Sheets("KARTA (4)").Select
    Range("DV2").Select
    ActiveSheet.Paste

    Range("DV2:HB21").Select
    Selection.copy
    Sheets("KARTA (5)").Select
    Range("DV2").Select
    ActiveSheet.Paste

    Range("DV2:HB21").Select
    Selection.copy
    Sheets("KARTA (6)").Select
    Range("DV2").Select
    ActiveSheet.Paste

    Range("DV2:HB21").Select
    Selection.copy
    Sheets("KARTA (7)").Select
    Range("DV2").Select
    ActiveSheet.Paste

    Range("DV2:HB21").Select
    Selection.copy
    Sheets("KARTA (8)").Select
    Range("DV2").Select
    ActiveSheet.Paste
    End Sub


    I problem polega na tym że po stworzeniu makra dla 8 arkuszy, stworzyłem jeszcze jeden arkusz i przez to na niektórych kompach wyskakuje mi taki komunikat jak w poście wyżej napisałem. Jak usunę ten dodatkowy arkusz to wówczas wszystko działa jak należy.

    Mam nadzieje że teraz juz wiadomo o co chodzi.

    0
  • #7 10 Wrz 2008 06:53
    Mike3129
    Poziom 9  

    Nowo utworzony arkusz nazywa się "Wprowadź danę"

    0
  • #9 11 Wrz 2008 07:14
    Mike3129
    Poziom 9  

    Niestety nie bo to jest własnością firmy w której pracuje :(
    Jedyne co ,ogę jeszcze zrobić to wrzucić screen z Visuala.

    http://www.box.net/shared/epbykcxsps

    To jest zrzut z ekranu kiedy prubuję włączyć makro wówczas wyskakuje mi okienko z tym kodem


    ActiveSheet.Shapes("Line 1").Select
    Selection.copy
    Sheets("Arkusz2").Select
    ActiveSheet.Paste

    0
  • #15 11 Wrz 2008 23:26
    bobo
    Poziom 29  

    Na wstępie mała uwaga. Pisanie makr z pomocą rejestratora, to katastrofa, takimi metodami nigdy nie pojmiesz VBA. A teraz krótko:
    1. nazwy nadawane - definiowane, to rzecz święta w pracy z Excelem
    2. skoro arkusz2 nosi nazwę "Karta" to dlaczego jej nie stosujesz w kodzie tylko pakujesz "Arkusz2"
    3. nie bardzo rozumiem do czego jest Ci potrzebne kopiowanie kształtu "Line 1" , patrząc na kod nie zauważyłem aby gdzieś miał zaistnieć.
    Jeżeli juz kopiujesz w ten sposób kształ to za każdym wywołaniem makra będzie on się pojawiał w miejscu położenia kursora na arkuszu docelowym, kompletny bezsens działania.
    4. kod jaki zrobiłeś do kopiowania komórek z jednego arkusza do x następnych jest kompletnie bez sensu. Taką operację można wykonać albo pisząc kod w module i wołać go np. przyciskiem na arkuszu1 lub po każdym dopisaniu danej do kolejnej komórki, będzie następowało kopiowanie, ale tylko tej komórki, do innych arkuszy dokładnie w to samo miejsce.
    Odpowiedz sobie na pytanie: jaki musiałby być kod gdyby tak trzeba było skopiować dane do np. 30 arkuszy?
    Pozdrówka

    0
  • #16 12 Wrz 2008 10:04
    Mike3129
    Poziom 9  

    Problem został rozwiązany, napisałem kod od nowa ;) A co do aktywnego okna z kodem na zrzucie to on pojawiał się sam gdy odpalałem makro w skoroszycie. Po odpaleniu pojawiał mi się edytor VSB i wyskakiwało właśnie to okno.

    Dzięki za pomoc

    Sprawa zamknięta.

    0