Udostępnij za pośrednictwem

Błąd Micrsoft Visual Basic run-time error '1004' Metoda PasteSpecjal z klasy Range nie powiodła się

Anonimowe
2016-10-05T20:57:28+00:00

Witam, przerabiałam dzisiaj poniższy film (dot. excela 2013):

https://www.youtube.com/watch?v=dD8z333NpqE

niestety pojawił mi się błąd tak jak opisał:

Paweł Rosołowski tj.

„Przerabiając tą lekcję w przykładzie nr 2 pojawił się u mnie błąd przy uruchamianiu makra: run-time error'1004' Metoda pastespecial z klasy range nie powiodła się. Wszystko robione było kalka w kalkę zgodnie z lekcją. Podglądałem w kodzie i tam debuguje całość formuły. Problem znika jak zaznaczę konkretnie komórki rejestrując makro, ale to nie o to przecież chodzi w tym narzędziu. Jakieś sugestie gdzie może być przyczyna?”

Proszę o pomoc

Z góry bardzo dziękuję

Pozdrawiam

Microsoft 365 i Office | Excel | Do użytku domowego | Windows

Pytanie zablokowane. To pytanie zostało zmigrowane ze społeczności pomocy technicznej firmy Microsoft. Możesz zagłosować, czy pytanie jest pomocne, ale nie możesz dodawać komentarzy ani odpowiedzi, ani też śledzić pytania.

Komentarze: 0

Odpowiedzi: 11

Sortuj według: Najbardziej pomocne
Najbardziej pomocne Najnowsze Najstarsze
  1. Oskar Shon 49,301 Punkty reputacji Moderator wolontariuszy
    2016-10-06T06:59:54+00:00

    Nie pokazuj nam filmy autora z którego bierzesz przykład, ale kod.

    Nr 1004 to zwykle błąd obliczeń lub deklaracji zamiennych.

    Jeśli tylko nagrywasz to oczywiście o deklaracjach nie ma mowy, a te są niekiedy konieczne aby kod wykonał się szybko i bezbłędnie.

    1 osoba uznała tę odpowiedź za pomocną.
    Komentarze: 0
  2. Anonimowe
    2016-10-06T08:47:03+00:00

    Film jest po to aby pokazywał jakie czynności były wykonywane po kolei (nie był tu pisany kod, tylko posłużono się opcją Zarejestruj makro)

    Kod nagranego makra wygląd tak:

    Sub war_transpozycja()

    '

    ' war_transpozycja Makro

    '

    '

        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

            :=False, Transpose:=True

        Application.CutCopyMode = False

    End Sub

    Nagrane makro zostało uruchomione przez wybranie z karty: ‘DEWELOPER’ polecenia ‘Makra’,

    wówczas wtedy pojawia się komunikat o błędzie '1004' o którym mowa powyżej.

    Stąd moje pytanie czym jest spowodowane wyświetlanie ww. błędu przy rejestracji makra?

    Komentarze: 0
  3. Oskar Shon 49,301 Punkty reputacji Moderator wolontariuszy
    2016-10-06T11:55:28+00:00

    Z tego co widzę to cześć nagrania ma polecenie wklejenia danych w zaznaczony obszar.

    Nie posiada linijki odpowiedzialnej ani za zaznaczenie obszaru (a więc nie znamy adresu źródła danych)

    ani nie posiada linijki odpowiedzialnej za kopię danych tego zakresu do pamięci

    Dalej nie ma zakresu docelowego (aby wkleić transponowane wartości z tego zakresu).

    Jeśli kod miał tylko wklejać, (a nie kopiować aby wkleić) to błąd pochodzi z tego ze w pamięci nie ma nic, co by można było wkleić.

    1 osoba uznała tę odpowiedź za pomocną.
    Komentarze: 0
  4. Anonimowe
    2016-10-06T14:27:19+00:00

    Wykonywał Pan krok po kroku te czynności które są w filmie (przykład nr 2)?

    Jeżeli tak, to wyskoczył Panu ten sam błąd, czy też nie?

    Jeżeli nie to jak go Pan ominął?

    1 osoba uznała tę odpowiedź za pomocną.
    Komentarze: 0
  5. Oskar Shon 49,301 Punkty reputacji Moderator wolontariuszy
    2016-10-07T09:07:52+00:00

    Nie jestem autorem tego filmu i nie będę komentował jego poprawność. Proszę zwrócić się do jego autora.

    Natomiast oglądam kod jaki został pow. przestawiony, (dość proste 2 instrukcje z nagrywania) i na jego podstawie wysuwam wnioski. Proszę wziąć z nich przykład i się zastosować do podanych instrukcji, w tedy błąd nie wystąpi.

    Dosłownie tłumacząc to co wkleiłaś/nagrałaś:

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks*:=False, Transpose:=True*

    Application.CutCopyMode = False

    Na polski:

    W_zaznaczony_obszar.wklej_specjalnie Wklej:=wartości, Operacje:=brak, PomińPuste*:=nie, Transponuj:=Tak*            

    Wskaż_obszar_wklejania = Nie

    Komentarze: 0