Καλημέρα φίλε Θανάση.
Υπερευχαριστώ για την βοήθεια. Έφτιαξα τον παραπάνω κώδικα με μια μικρή αλλαγή.
Ένωσα τις εντολές σε μία, επίσης πρόσθεσα απο άλλον κώδικα που βρήκα εδώ, το (MsgBox "Data saved.")........
Sub copy_to_dst()
Dim Dst
Dst = WorksheetFunction.Max(Sheets("ΠΩΛΗΣΕΙΣ").R ange("A:A")) + 2
Range("Πίνακας6").Copy
Sheets("ΠΩΛΗΣΕΙΣ").Range("C" & Dst).PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Dst = WorksheetFunction.Max(Sheets("ΕΠΙΣΚΕΨΕΙΣ ").Range("A:A")) + 2
Range("Πίνακας4").Copy
Sheets("ΕΠΙΣΚΕΨΕΙΣ").Range("C" & Dst).PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("Πίνακας6").SpecialCells(xlCellTypeCo nstants, 23).ClearContents
Range("Πίνακας4").SpecialCells(xlCellTypeCo nstants, 23).ClearContents
MsgBox "Data saved."
End Sub
.....ελπίζω να είναι σωστές οι αλλαγές που έκανα,, λογικά είναι, γιατι δούλεψε μιά χαρά !!!
Οι ημερομηνίες δουλεύουν σωστά,, ακολούθησα τις παρακάτω οδηγίες...
http://www.ms-office.gr/forum/excel-...sto-excel.html
Βρήκα πως φτιάχνετε και το κουμπί !! Ευχαριστώ πολύ