excel 2013 Macro Kode pomoc

Pomoč pri delu z MS Excelom
Odgovori
cincin
Prispevkov: 10
Pridružen: Če Sep 11, 2014 8:21 pm

excel 2013 Macro Kode pomoc

Odgovor Napisal/-a cincin »

Spoštovani!
Napisal sem macro za lazje delo v Excelu in nekaj funkcij me moti pri delu.
Prosim: če bi mi Vi macro malo uredili da dela kako Bog zapoveda.

kadar mu ukazem Run on prenese podatke iz "Poloznica v ARHIV, ali mi potem ostano oba lista sive barve obelezan in na listu Poloznice se Filter prikaze samo tiste katere so po ukazom. "i" ..
Če je možno da v macro brisete code katere to delajo.

Na ove tri slike se vide moje tezave.

Hvala za Vsako pomoc in nasvet.

Macro.
Bližnjica: Ctrl+i
'
Sheets("ARHIV").Select
Range("B4:L30").Select
Selection.ClearContents
Range("A1").Select
Sheets("Poloznice").Select
Range("B4").Select
ActiveWindow.SmallScroll Down:=-13
Range("M4").Select
Selection.AutoFilter
ActiveWindow.SmallScroll ToRight:=-13
Selection.AutoFilter Field:=13, Criteria1:="i"
Range("B4:L30").Select
Selection.Copy
Sheets("ARHIV").Select
Range("B4").Select
Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False

End Sub
Slika

Slika

Slika
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: excel 2013 Macro Kode pomoc

Odgovor Napisal/-a admin »

Pozdravljeni,

Na konec makra dodajte naslednje ukaze:

Koda: Izberi vse

  '... vaša koda ....
 Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

  '.. to dodajte ..
  Sheets("Poloznice").Select
  ActiveSheet.ShowAllData
  Range("A1").Select

  Sheets("ARHIV").Select
  Range("A1").Select
end sub
lp,
Matjaž Prtenjak
Administrator
cincin
Prispevkov: 10
Pridružen: Če Sep 11, 2014 8:21 pm

Re: excel 2013 Macro Kode pomoc

Odgovor Napisal/-a cincin »

Gospod!
Hvala za pomoč, zdaj delo vredu.

Hvala in Lep pozdrav
Odgovori