Kopiraj v naslednjo prazno vrstico

[tjazma]

Pozdravljeni,
Sem začetnik pri snemanju makrojev.
Posnel sem makro : prekopiraj celice (obseg celic) iz lista 1 v list 2 vrstica A9. Do tu vse bp .
Rad bi priredil makro tako, da pri naslednjem zagonu tega makroja ponovi kopiranje vendar v naslednjo vrstico 2. lista A10 (ali naslednja prazna)
Hvala za odgovor in veliko pomoč.

[Stenly]

Pozdravljeni

Najbolje, da prilepite svojo kodo, nekdo jo bo pa dopolnil

Lp

[tjazma]

Prilagam makro


Sub KOPIRAJ()
'
' KOPIRAJ Makro
'
' Bližnjica na tipkovnici: Ctrl+b
'
ActiveWindow.SmallScroll Down:=3
Sheets("PRENOVA").Select
ActiveWindow.SmallScroll Down:=27
Range("D51:E51").Select
Selection.Copy
Sheets("OBPRENOVA").Select
ActiveWindow.SmallScroll Down:=-9
Range("B9:C9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("PRENOVA").Select
Range("F51:P51").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("OBPRENOVA").Select
Range("F9:P9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("PRENOVA").Select
Range("R51:AA51").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("OBPRENOVA").Select
Range("R9:AA9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B10").Select
End Sub
[/code]

[kljuka13]

Potem si pač VBA mora zapomniti zadnjo kopirano vrstico. Priredite makro tako, da bo na začetku pogledal v celico IV1 naprimer in potem prilepil v ustrezno vrstico. Na koncu pa bo vrstico zapisal še v le-to (IV1) celico.

[tjazma]

Hvala za odgovor vendar mi dela probleme tisti del odgovora kjer piše "priredi makro tako da bo pogledal" sem namreč začetnik in ne vem kako naj VB- ju dopovem da pogleda kje je nazadnje kopiral

[kljuka13]

Koda: Izberi vse

Sub KOPIRAJ()
'
' KOPIRAJ Makro
'
' Bližnjica na tipkovnici: Ctrl+b
'
Dim i
Sheets("PRENOVA").Select
i = Range("IV1").Value 'tukaj pogleda v celico (vrednost) in si to zapomni

ActiveWindow.SmallScroll Down:=3
Sheets("PRENOVA").Select
ActiveWindow.SmallScroll Down:=27
Range("D51:E51").Select
Selection.Copy
Sheets("OBPRENOVA").Select
ActiveWindow.SmallScroll Down:=-9
Range("B" & i & ":C" & i).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("PRENOVA").Select
Range("F51:P51").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("OBPRENOVA").Select
Range("F" & i & ":P" & i).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("PRENOVA").Select
Range("R51:AA51").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("OBPRENOVA").Select
Range("R" & i & ":AA" & i).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B10").Select

Sheets("PRENOVA").Select
Range("IV1").Value = i + 1
End Sub

POZOR!!! Pred tem v listu PRENOVA v celico IV1 zapišite številko 9 !!!

[Stenly]

Pozdravljeni

Jaz sem si vašo rešitev zamislil nekako tako

Koda: Izberi vse

Sub KOPIRAJ_P()
'
' KOPIRAJ Makro
'
' Bližnjica na tipkovnici: Ctrl+b

If Sheets("OBPRENOVA").Range("B9").Value = "" Then    'pogleda. če je B9 prost
 Sheets("OBPRENOVA").Range("B9:C9").Value = Sheets("PRENOVA").Range("D51:E51").Value     'v kolikor je b9 prost kopira vašo vrednost
Else
 Sheets("OBPRENOVA").Range("B65536").End(xlUp).Range(Cells(2, 1), Cells(2, 2)).Value = Sheets("PRENOVA").Range("D51:E51").Value     'v kolikor je b9 zaseden kopira vašo vrednost v prvo naslednjo prosto vrstico spodaj
End If

End Sub

S snemanjem, si boste sicer nekoliko pomagali, vendar je posneto preveč nepotrebnih klikov.

Lp

[tjazma]

Do zdaj sem testiral rešitev 1 vendar javlja napako.
Zdaj se bom pa lotil rešitve 2

Hvala za vaš trud rezultate bom javil

[DamijanF]

Zdravo,

A mi lahko kdo pomaga..da bi namesto naslednje prazne vrstice, gledal naslednji prazen stolpec.

Sedaj ce uporabim to kodo, mi dodaja vedno v novo vrstico.. (torej moram "skrolat" dol ... namesto desno

Hvala za odgovor!