Mnoge stvari nisu jasne:
Kako si realizovala kopiranje?
Koji je to
odredjeni list ?
Da li je odredišna tabela otvorena ili ne?
Da li je odaredišna tablea uvek ista?
Uz neminovne pretpostavke, evo kako sam ja to zamislio:
Napravi makro koji prepisuje vrednost ćelije A5 u tabelu MyBook, prvi list, prva prazna ćelija kolone A.
Code:
Sub Prenesi()
' Kopiranje sadrzaja celije u prvu praznu celiju
' u drugoj tabeli
'
' P.Jovanovic 17/10/2006
Dim Dest As Range
Dim Source As Range
Dim wbk As Workbook
Set Source = ActiveSheet.Range("A5") ' Ovde se moze promeniti odakle se kopira
Set wbk = Workbooks.Open("C:\MyBook.xls")
'Nalazi prvu praznu celiju u koloni A
rw = wbk.Sheets(1).Range("A65536").End(xlUp).Row + 1
' Ovde se moze promeniti gde se kopira
Set Dest = wbk.Sheets(1).Cells(rw, 1)
Dest.Value = Source.Text
wbk.Close SaveChanges:=True ' Zatvara tabelu bez snimanja
End Sub
Sad makrou možeš da dodeliš prečicu sa tastature, pa nakon izmene ćelije startuješ makro. Veći stepen automatike (ali uz neminovne rizike) dobija se ako na presretneš događaj Change na listu na kome se unosi vrednost i startuješ ovo prepisivanje kod svake promene ćelije A5
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
' Pokrece prepisivanje automatski kod izmene celije A5
'
On Error Resume Next
' Opseg u kome funkcioniše unos
Set unos = Range("A5")
Set isect = Application.Intersect(Target, unos)
If Not (isect Is Nothing) Then
Prenesi
End If
End Sub
[Ovu poruku je menjao Jpeca dana 27.10.2006. u 14:27 GMT+1]
Nije to loše Rembrante, samo što ne bi dodao još malo boje?