Prosim !
Katera dodatna funkcija za prenos vrstic iz Up u kronologijo
Zdaj lanko samo eno vrstico, primer vrstico 4 , katera funkija za prenos vrstice 5, 6 , 7
hvala za pomoc.
Option Explicit
Sub Prenesi()
' Kopiranje sadrzaja celija sa up obojanih zuto
' u prvi prazan red
' na drugom listu - kronologija
Dim rw As Long
Dim cl As Integer
Dim Dest As Range
'Postavlja prvu kolonu za upis
cl = 2 ' B kolona
'Nalazi prvi prazni red u koloni 1
rw = ActiveWorkbook.Sheets("kronologija").Cells(65535, cl).End(xlUp).Row + 1
' Ovde se moze promeniti gde se kopira
Set Dest = ActiveWorkbook.Sheets("kronologija").Cells(rw, cl) ' Gde je Dest x
Dest.Value = ActiveWorkbook.Sheets("Up").Range("B4") ' Upis prve vrednosti
Set Dest = ActiveWorkbook.Sheets("kronologija").Cells(rw, cl + 1) ' Gde je Dest2
Dest.Value = ActiveWorkbook.Sheets("Up").Range("C4") ' Upis druge vrednosti
Set Dest = ActiveWorkbook.Sheets("kronologija").Cells(rw, cl + 2) ' Gde je Dest3
Dest.Value = ActiveWorkbook.Sheets("Up").Range("D4") ' Upis trece vrednosti
Set Dest = ActiveWorkbook.Sheets("kronologija").Cells(rw, cl + 3) ' Gde je Dest4
End Sub
Excel za vec funkcij
Re: Excel za vec funkcij
Pozdravljeni,
Za prenos pete vrstice morate popraviti v kodi iz B4 v B5 in C4 v C5 ter D4 v D5, torej:
Za prenos pete vrstice morate popraviti v kodi iz B4 v B5 in C4 v C5 ter D4 v D5, torej:
Koda: Izberi vse
Set Dest = ActiveWorkbook.Sheets("kronologija").Cells(rw, cl) ' Gde je Dest x
Dest.Value = ActiveWorkbook.Sheets("Up").Range("B5") ' Upis prve vrednosti <--- tu je potrebno popraviti
Set Dest = ActiveWorkbook.Sheets("kronologija").Cells(rw, cl + 1) ' Gde je Dest2
Dest.Value = ActiveWorkbook.Sheets("Up").Range("C5") ' Upis druge vrednosti <--- in tu
Set Dest = ActiveWorkbook.Sheets("kronologija").Cells(rw, cl + 2) ' Gde je Dest3
Dest.Value = ActiveWorkbook.Sheets("Up").Range("D5") ' Upis trece vrednosti <--- in tu
Set Dest = ActiveWorkbook.Sheets("kronologija").Cells(rw, cl + 3) ' Gde je Dest4
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator
Re: Excel za vec funkcij
Hvala!
Bom probal zdaj popravit.
Bom probal zdaj popravit.
Re: Excel za vec funkcij
Je to vredu , jaz bi funkcijo za prenos novi vrstic katere dodam in da mi stare vrstice u kronologije ne brise .
(ce dodam cca 5 vrstic da ih prekopira u kronologiju spodaj pod tisti ki so ze u kronologiji.)
Lep pozdrav
(ce dodam cca 5 vrstic da ih prekopira u kronologiju spodaj pod tisti ki so ze u kronologiji.)
Lep pozdrav
Re: Excel za vec funkcij
Pozdravljeni,
Saj tako kot je funkcija napisana vam nove vrstice na listu "Kronologija" vedno dodaja na konec. Torej dela tako kot vi želite.
Funkcija, ki ste jo priložili ne briše vrstic.
Saj tako kot je funkcija napisana vam nove vrstice na listu "Kronologija" vedno dodaja na konec. Torej dela tako kot vi želite.
Funkcija, ki ste jo priložili ne briše vrstic.
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator