[VBA] Μεταφορά δεδομένων

[sotisanis]

Παιδια καλησπερα και παλι
Θελω λιγο την βοηθεια σας.
Εχω το επισυναπτομενο αρχειο,και θελω σε ενα νεο αρχειο να μου κανει μεταφορα των δεδομενων απο την Α12 εως Η29
Αυτη ειναι μια καρτελα ενος πελατη αλλα καθε φορα φτιαχνω νεα καρτελα για καθε πελατη.Δηλαδη θελω να εχω τον κωδικα σταθερα μεσα σε ενα excel και να τραβαω δεδομενα καθε φορα απο το αντιστοιχο βιβλιο (το βιβλιο παντα ονομαζεται φυλλο1 και η σελιδα παντα Καρτέλλα Πελάτη)

πως να το κανω ρε παιδια?

[sotisanis]

Βρηκα κατι παρομοιο αλλα θελει να του κανω καποιες αλλαγες
επισυναπτω το post
http://www.ms-office.gr/forum/10025-post5.html

Εγω θελω να επισυναπτει απο Α10 εως Η29 σε νεο βιβλιο εργασιας και να ξεκιναει απο την σειρα Α30

[sotisanis]

παιδια λιγο την βοηθεια σας
το εφτιαξα και σας το επισυνάπτω.
Το μονο που δεν καταφερα ειναι να κανω αντιγραφη με την ιδια ακριβως μορφοποιηση
Καποια βοηθεια ρε παιδια????

[sotisanis]

ρε παιδια μια τελευταια δυσκολια εχω και το εχω τελειωσει τελικα

πως θα το κανω να "τραβαει απο αρχειο με ελληνικό ονομα πχ φυλλο1 " και με ελληνικο ονομα καρτελα?

Sub GetData_Example2()
' It will not copy the Header row (the last two arguments are True, False)
' Change the last argument to True if you also want to copy the header row
    GetData ThisWorkbook.Path & "\1.xls", "Sheet1", _
            "A10:H67", Sheets("ÊáñôÝëëá ÐåëÜôç").Range("A25"), True, False
            GetData ThisWorkbook.Path & "\1.xls", "Sheet1", _
            "A3:A4", Sheets("ÊáñôÝëëá ÐåëÜôç").Range("A20"), True, False