..|| Blog || Produkti/Storitve || MExcel || MDodatki || 300 nasvetov ||..

Excel za vec funkcij

Pomoč pri delu z MS Excelom

Excel za vec funkcij

OdgovorNapisal/-a cincin » To feb 24, 2015 6:26 pm

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



Matjazev.NET
 

Re: Excel za vec funkcij

OdgovorNapisal/-a admin » To feb 24, 2015 7:11 pm

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

Re: Excel za vec funkcij

OdgovorNapisal/-a cincin » To feb 24, 2015 7:20 pm

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

Re: Excel za vec funkcij

OdgovorNapisal/-a cincin » To feb 24, 2015 7:49 pm

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

Re: Excel za vec funkcij

OdgovorNapisal/-a admin » To feb 24, 2015 10:18 pm

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


Vrni se na Excel

Kdo je prisoten

Po forumu brska: 0 registriranih uporabnikov in 2 gostov

cron