Potrebna mi je veza između radnog lista dnevno te radnog lista mjesecno. Recimo ako upišem u datum 13.10.2007, da se to ispiše u mjesečno izvještaju u prvi red i da ispiše sve ostale podatke, a recimo 14.10.2007 da ide u drugi red i tako do kraja mjeseca. Nakon popunjavanja sva četiri polja u radnom listu dnevno prebacuje ih u mjesecno i svaki sprema za određeni datum, te briše sve unesene vrijednosti u dnevnom izvještaju. Bilo koje rješenje je dobro došlo. Hvala.
[Excel] formula za dva radna lista?
Zaključano
Zakačeno
Kod bi mogao da bude sledeći
Kod podrazumeva da si podatke uneo u susedne kolone - proširi kolne umesto što si ostavljamo prazne kolone između - i na prvom i na drugom listu imaš taj problem
Lako ćeš napraviti dugme i povezati ga sa makrom - vidi u top temi. Tu ćeš naći i dodatna uputstva vezano za ubacivanje i editovanje makroa.
Već postoje veoma slična rešenja uz pomoć VBA koda na forumu vidi:
http://www.elitesecurity.org/t...-podataka-pamcenje-unosa-reset
Code:
Sub Prepisi()
' Prepisuje unete podatke
' na kraj drugog lista
' 16/10/2007
' P.Jovanovic za elitesecurity.org
Dim shDest As Worksheet
Dim shSource As Worksheet
Dim rw As Long
Set shSource = ThisWorkbook.Sheets(1)
Set shDest = ThisWorkbook.Sheets(2)
' Nadji prvi prazan red
rw = shDest.Range("A65536").End(xlUp).Row + 1
' Prepis
shDest.Cells(rw, 1).Value = shSource.Cells(6, 1).Value
shDest.Cells(rw, 2).Value = shSource.Cells(6, 2).Value
shDest.Cells(rw, 3).Value = shSource.Cells(6, 3).Value
shDest.Cells(rw, 4).Value = shSource.Cells(6, 4).Value
' Ocisti
shSource.Rows(6).ClearContents
End Sub
Sub Prepisi()
' Prepisuje unete podatke
' na kraj drugog lista
' 16/10/2007
' P.Jovanovic za elitesecurity.org
Dim shDest As Worksheet
Dim shSource As Worksheet
Dim rw As Long
Set shSource = ThisWorkbook.Sheets(1)
Set shDest = ThisWorkbook.Sheets(2)
' Nadji prvi prazan red
rw = shDest.Range("A65536").End(xlUp).Row + 1
' Prepis
shDest.Cells(rw, 1).Value = shSource.Cells(6, 1).Value
shDest.Cells(rw, 2).Value = shSource.Cells(6, 2).Value
shDest.Cells(rw, 3).Value = shSource.Cells(6, 3).Value
shDest.Cells(rw, 4).Value = shSource.Cells(6, 4).Value
' Ocisti
shSource.Rows(6).ClearContents
End Sub
Kod podrazumeva da si podatke uneo u susedne kolone - proširi kolne umesto što si ostavljamo prazne kolone između - i na prvom i na drugom listu imaš taj problem
Lako ćeš napraviti dugme i povezati ga sa makrom - vidi u top temi. Tu ćeš naći i dodatna uputstva vezano za ubacivanje i editovanje makroa.
Već postoje veoma slična rešenja uz pomoć VBA koda na forumu vidi:
http://www.elitesecurity.org/t...-podataka-pamcenje-unosa-reset
Potpis
Nije to loše Rembrante, samo što ne bi dodao još malo boje?
I nadao sam se ovakvom odgovoru. Molio bih neki dobar priučnik za početnike. Hvala, Jpeca.