Run-time erorr 1004

Pomoč pri izdelavi makrov
Odgovori
BJ
Prispevkov: 170
Pridružen: Sr Okt 26, 2005 5:46 pm

Run-time erorr 1004

Odgovor Napisal/-a BJ »

Lep pozdrav vsem skupaj!
Makro, katerega sem posnel, me ne uboga in se "zatika".
Kje bi lahko bila napaka? Pri vrstici "Range("K1").Select" se zadeva ustavi in javi napako "Metoda Select razreda Range je spodletela"
Lepa hvala za pomoč BJ

Koda: Izberi vse

Private Sub cmdKuverta_Click()
ActiveSheet.Unprotect
    Range("B2").Select
    Selection.Copy
    Sheets("Ovojnice").Select
    Range("K1").Select
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Odgovor Napisal/-a admin »

Pozdravljeni,

Napaka 1004 je v VBA dokaj splošna in lahko pomeni mnogo stvari. Če pa pogledam tisti majhen fragment makra, pa bi rekel, da list "Ovojnice" ne obstaja ali pa je z njim kaj narobe.
lp,
Matjaž Prtenjak
Administrator
BJ
Prispevkov: 170
Pridružen: Sr Okt 26, 2005 5:46 pm

Odgovor Napisal/-a BJ »

Pozdravljeni!
Izdelal sem popolnoma nov list (ne skopiral), pa se zadeva ustavi na istem mestu.
Tukaj je celoten makro
Hvala! B

Koda: Izberi vse

Private Sub cmdKuverta_Click()
ActiveSheet.Unprotect
    Range("B2").Select
    Selection.Copy
    Sheets("Ovojnice").Select
    Range("K1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Sheets("Vnosni list").Select
    Range("G18").Select
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Odgovor Napisal/-a admin »

Glede na to, da aktivni list najprej list odščitite... Ali imate mogoče list Ovojnice zaščiten?
lp,
Matjaž Prtenjak
Administrator
BJ
Prispevkov: 170
Pridružen: Sr Okt 26, 2005 5:46 pm

Odgovor Napisal/-a BJ »

Ne! List "ovojnice" ni zaščiten. Če celoten postopek izvedem ročno, potem vse deluje.
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Odgovor Napisal/-a admin »

Pozdravljeni,

V prvih štirih vrsticah kode ni nič narobe in zaradi tega vam napake ne more javiti. Mora biti nekje še kaj, kar posredno povzroči napako, a ne vem kaj. Ali imate zadaj še kakšne makre, ki se sprožajo glede na spremembe v celicah? Kakšne odzive na dogodke ali kaj podobnega?
lp,
Matjaž Prtenjak
Administrator
Stenly
Prispevkov: 223
Pridružen: Sr Jul 27, 2005 11:29 pm

Odgovor Napisal/-a Stenly »

Pozdravljen BJ

Vi, kar želite, da vam makro naredi, to posnamete. OK, sam tu se posname tudi nepotrebne korake "okoli vogala".

poskusite to kodo:

Koda: Izberi vse

Private Sub cmdKuverta_Click() 
'
    Range("Ovojnice!K1").Value = Range("B2").Value
    Range("Ovojnice!A1:M10").PrintOut Copies:=1, Collate:=True 'Tu ornačite polja, katera naj izpiše

End Sub
Lp
BJ
Prispevkov: 170
Pridružen: Sr Okt 26, 2005 5:46 pm

Odgovor Napisal/-a BJ »

Našel približno rešitev.
V celico K1 sem vpisal " ='Vnosni list'!B2"
Lep pozdrav in hvala za pomoč
BJ
Odgovori