makro v excelu

Poizkusi z sledečim makrojem:
Opombe: Na določen list se lahko sklicuješ z imenom (pri meni v prvi zanki "List2") ali pa z zaporedno števiko lista(pri meni v vseh ostalih sklicih).
Prva prazna celica v prvi koloni pomeni konec podatkov.
procedura na koncu prepiše tudi vrstico, v kateri v prvi vrstici ni podatka, vendar upam da to ni moteče, če pa je se doda še en if.

Sub kopiraj()
Dim VhVrstica, IzhVrstica, KonecPrepisovanja, NaselZaPrepis
VhVrstica = 1
IzhVrstica = 1
Do Until IsEmpty(Worksheets("List2").Cells(IzhVrstica, 1).Value) 'povečujem IzhVrstica dokler ne najdem praznega podatka
IzhVrstica = IzhVrstica + 1
Loop
KonecPrepisovanja = False
Do Until KonecPrepisovanja ' Delam dokler imam kaj za prepisat
NaselZaPrepis = False
Do Until NaselZaPrepis
If IsEmpty(Worksheets(1).Cells(VhVrstica, 1).Value) Then
KonecPrepisovanja = True
NaselZaPrepis = True
ElseIf Worksheets(1).Cells(VhVrstica, 2).Value = 0 Then
VhVrstica = VhVrstica + 1
Else
NaselZaPrepis = True
End If
Loop
Worksheets(2).Cells(IzhVrstica, 1).Value = Worksheets(1).Cells(VhVrstica, 1).Value
Worksheets(2).Cells(IzhVrstica, 2).Value = Worksheets(1).Cells(VhVrstica, 2).Value
IzhVrstica = IzhVrstica + 1
VhVrstica = VhVrstica + 1
Loop
End Sub

Orodja/Možnosti/zavihek "Varnost"/spodaj klik na "Varnostna nastavitev za makre"/ in izberi ustrezno stopnjo varnosti.
Po vsej verjetnosti imaš nastavljeno na "Srednjo" in te vedno sprašuje ali boš omogočil ali ne. Prestavi recimo na "Visoka" in načeloma ne bo več spraševal.

Če nič drugega vam probleme povzroča VSAJ ta koda, ki ste jo zapisali. Problem rešite na ta način:

1. Odprete urejevalnik za VBA (ALT+F11) ali (Orodja /Makro /Urejevalnik za...)


2. Odpre se novo okno, ki je namenjeno urejanju VBA kode


3. Na levi strani imate okno 'Project' in tam je seznam vseh odprtih projektov - torej datotek


4. Poiščite tisto, ki vam dela probleme in jo dvokliknite s čimer se razpre, da lahko vidite iz česa je sestavljena.


5. Sestavljajo jo lahko: Microsoft Excel Objects, Forms, Modules in Calss Modules


6. V kolikor immate karkoli razne Microsoft Excel Modules - VSE pobrišite - to naredite tako da element razprete in vse podelemente pobrišete - File / Remove


7. Sedaj vam je ostala samo opcija Microsoft Excel Objects, pod katero je označen delovni zvezek in VSI listi v njem


8. Dvokliknite vsakega med njimi in na levi strani v velikem oknu se bo prikazala koda, ki je tam zapisana... POBRIŠITE VSE. Desno okno za vnos kode mora biti prazno na VSEH listih in na delovnem zbvezku.


9. Shranite

To je zelo podroben postopek, sicer je stvar zelo preprosta in hitra