Prenos vsebine vrstice iz enega del.lista v drugega

Pomoč pri delu z MS Excelom
Odgovori
Vikmar
Prispevkov: 22
Pridružen: Pe Jun 10, 2016 8:36 pm

Prenos vsebine vrstice iz enega del.lista v drugega

Odgovor Napisal/-a Vikmar »

Pozdravljeni.
Na kakšen način lahko dosežem, da vsebino pojubne vrstice iz enega del.lista ( preko makra ali kako drugače) prenesem v naslednjo prazno vrstico na drugem del.listu
( varianta copy-paste mi je poznana :) ) . Hvala za odgovor.
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: Prenos vsebine vrstice iz enega del.lista v drugega

Odgovor Napisal/-a admin »

Pozdravljeni,

Sem vam napisal makro in tudi razložil kaj in kako natančno deluje:

Koda: Izberi vse

Sub kopirajNaDrugList(imeIzvornegaLista As String, stevilkaVrstice As Long, imePonornegaLista As String)
  ' izberemo oma lista
  Dim ws1 As Worksheet: Set ws1 = Worksheets(imeIzvornegaLista)
  Dim ws2 As Worksheet: Set ws2 = Worksheets(imePonornegaLista)
  
  ' na drugem listu najdemo prvo prazno vrstico
  Dim praznaVrstica As Long
  praznaVrstica = ws2.Range("A1000000").End(xlUp).Row
  If (Trim(ws2.Cells(praznaVrstica, 1)) <> "") Then praznaVrstica = praznaVrstica + 1
  
  ' skopiramo celotno vrstico iz izvornega lista na ponorni list
  ws2.Rows(praznaVrstica).Value = ws1.Rows(stevilkaVrstice).Value
End Sub
Izvedba pa je preprosta:

Če želite kopirati vrstioc 15 in lista 1 na list 2, boste poklicali:

Koda: Izberi vse

kopirajNaDrugList "List1", 15, "List2"
Če pa želite recimo kopirati 23 vrstico iz lista "naloge" na list "arhiva_2019", pa

Koda: Izberi vse

kopirajNaDrugList "naloge", 23, "arhiva_2019"
lp,
Matjaž Prtenjak
Administrator
Vikmar
Prispevkov: 22
Pridružen: Pe Jun 10, 2016 8:36 pm

Re: Prenos vsebine vrstice iz enega del.lista v drugega

Odgovor Napisal/-a Vikmar »

Hvala za trud in dobro voljo...res!
Če zapisano pravilno razumem bi mi ta makro prišel prav, če bi želel kopirati točno določeno vrstico iz lista A v prvo prazno vrstico na listu B.
Nisem pa razumel, ali je makro, ki ste ga napisali namenjen tudi kopiranju poljubne vrstice, ki jo označim v listu A in jo želim kopirati v prvo prazno vrstico na listu B?
Okej.Poskusim in javim.
Odgovori