[ qukle @ 15.10.2007. 21:09 ] @
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.
[ Jpeca @ 16.10.2007. 11:28 ] @
Kod bi mogao da bude sledeći
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


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
[ qukle @ 16.10.2007. 21:05 ] @
I nadao sam se ovakvom odgovoru. Molio bih neki dobar priučnik za početnike. Hvala, Jpeca.