Excel za vec funkcij

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

Excel za vec funkcij

Odgovor Napisal/-a cincin »

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
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: Excel za vec funkcij

Odgovor Napisal/-a admin »

Pozdravljeni,

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
cincin
Prispevkov: 10
Pridružen: Če Sep 11, 2014 8:21 pm

Re: Excel za vec funkcij

Odgovor Napisal/-a cincin »

Hvala!
Bom probal zdaj popravit.
cincin
Prispevkov: 10
Pridružen: Če Sep 11, 2014 8:21 pm

Re: Excel za vec funkcij

Odgovor Napisal/-a cincin »

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
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: Excel za vec funkcij

Odgovor Napisal/-a admin »

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.
lp,
Matjaž Prtenjak
Administrator
Odgovori