Forum

Forum (https://www.ms-office.gr/forum/)
-   Excel - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/)
-   -   [VBA] Μεταφορά δεδομένων (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/3357-metafora-dedomenon.html)

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

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

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

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

sotisanis 16-10-14 00:14
2 Συνημμένο(α)
παιδια λιγο την βοηθεια σας
το εφτιαξα και σας το επισυνάπτω.
Το μονο που δεν καταφερα ειναι να κανω αντιγραφη με την ιδια ακριβως μορφοποιηση
Καποια βοηθεια ρε παιδια????

sotisanis 16-10-14 23:40
ρε παιδια μια τελευταια δυσκολια εχω και το εχω τελειωσει τελικα

πως θα το κανω να "τραβαει απο αρχειο με ελληνικό ονομα πχ φυλλο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


Η ώρα είναι 10:42.

Ms-Office.gr - ©2000 - 2026, Jelsoft Enterprises Ltd.


Search Engine Optimization by vBSEO 3.3.2