cod vba
cod vba
ceau,
Am si eu nevoie de un mic ajutor....trebuie sa fac import din mai multe workbook-uri cu mai multe sheeturi intr-un alt workbook( overview.xlsm) si as vrea ca in momentul cand se face importul sa imi apara in coloana L numele workbook-ului de unde s-a facut importul si in coloana M numele sheetului de unde s-a facut importul.
Multumesc anticipat!
Am si eu nevoie de un mic ajutor....trebuie sa fac import din mai multe workbook-uri cu mai multe sheeturi intr-un alt workbook( overview.xlsm) si as vrea ca in momentul cand se face importul sa imi apara in coloana L numele workbook-ului de unde s-a facut importul si in coloana M numele sheetului de unde s-a facut importul.
Multumesc anticipat!
Re: cod vba
Buna ziua
Problema dvs. e prea putin documentata.
Daca aveti deja un cod care face importul dar nu stiti cum sa-l modificati pentru a afisa si informatia respectiva, atunci trebuie sa vedem cum arata codul dvs.
Daca nu aveti niciun cod, exista pe acest forum cateva exemple pe care le puteti adapta, de exemplu Reunire date din 200 fisiere excel
Daca nu va incadrati in cele doua situatii, trebuie sa stiti ca nimeni nu poate crea un macro fara sa stie de la ce porneste (organizarea informatiei in fisierele sursa, in acest sens vedeti si ce am spus in subiectul Adunarea datelor din mai multe registre intr-o foaie) si exact la ce trebuie sa ajunga.
IP
Problema dvs. e prea putin documentata.
Daca aveti deja un cod care face importul dar nu stiti cum sa-l modificati pentru a afisa si informatia respectiva, atunci trebuie sa vedem cum arata codul dvs.
Daca nu aveti niciun cod, exista pe acest forum cateva exemple pe care le puteti adapta, de exemplu Reunire date din 200 fisiere excel
Daca nu va incadrati in cele doua situatii, trebuie sa stiti ca nimeni nu poate crea un macro fara sa stie de la ce porneste (organizarea informatiei in fisierele sursa, in acest sens vedeti si ce am spus in subiectul Adunarea datelor din mai multe registre intr-o foaie) si exact la ce trebuie sa ajunga.
IP
Re: cod vba
Am atasat si codul pentru import.
Nu aveţi permisiunea de a vizualiza fişierele ataşate acestui mesaj.
Re: cod vba
Buna ziua
Aveti mai multe coduri in care apare cuvantul "import". La care va referiti?
De exemplu, la macro numit IMPORT numele foii pare ca este acelasi. In acest caz, ar mai trebui adaugate doua linii de cod:
....
Workbooks(xlsxName).Activate
Sheets("without defect").Select
Range(Cells(i, 2), Cells(i, 3), Cells(i, 4), Cells(i, 5), Cells(i, 6), Cells(i, 7), Cells(i, 8), Cells(i, 9), Cells(i, 10), Cells(i, 11)).Select
Selection.Copy
Workbooks("overview_TSR.xlsm").Activate
Sheets("Sheet1").Select
Cells(j, 2).Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Cells(j, 12).Value = Workbooks(xlsxName).Name
Cells(j, 13).Value = "without defect"
Next j
Next i
...
Pe de alta parte, eu evit sa propun coduri macro fara sa pot face o testare in conditii reale, asadar va rog sa faceti eventuale teste OBLIGATORIU pe copii ale fisierelor original
IP
Aveti mai multe coduri in care apare cuvantul "import". La care va referiti?
De exemplu, la macro numit IMPORT numele foii pare ca este acelasi. In acest caz, ar mai trebui adaugate doua linii de cod:
....
Workbooks(xlsxName).Activate
Sheets("without defect").Select
Range(Cells(i, 2), Cells(i, 3), Cells(i, 4), Cells(i, 5), Cells(i, 6), Cells(i, 7), Cells(i, 8), Cells(i, 9), Cells(i, 10), Cells(i, 11)).Select
Selection.Copy
Workbooks("overview_TSR.xlsm").Activate
Sheets("Sheet1").Select
Cells(j, 2).Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Cells(j, 12).Value = Workbooks(xlsxName).Name
Cells(j, 13).Value = "without defect"
Next j
Next i
...
Pe de alta parte, eu evit sa propun coduri macro fara sa pot face o testare in conditii reale, asadar va rog sa faceti eventuale teste OBLIGATORIU pe copii ale fisierelor original
IP
Re: cod vba
Am uitat sa mentionez ca trebuie molosit in modImportPVCS
Re: cod vba
nu mi se intampla nimic daca adaug acele doua linii in cod
Re: cod vba
Desi ti-am solicitat sa dai detalii la ce doresti, la postarile tale anterioare, nu ai binevoit sa imi raspunzi, si nu cred ca as putea sa te ajut, deoarece nu doresc sa presupun ce ai vrea.
Un sfat pentru un posibil cod.
Probabil ar fi fost mai usor sa:
- alegi fisierele prin selectarea celor dorite (multiselect);
sau sa:
- scrii numele fisierelor (si al foilor de interes) intr-o foaie separata;
- scrii zona de interes pe care vrei sa o copiezi;
afisate gen tabel.
Un sfat pentru un posibil cod.
Probabil ar fi fost mai usor sa:
- alegi fisierele prin selectarea celor dorite (multiselect);
sau sa:
- scrii numele fisierelor (si al foilor de interes) intr-o foaie separata;
- scrii zona de interes pe care vrei sa o copiezi;
afisate gen tabel.
I don't care what you think of me! Unless you think I'm awesome – in which case, you're right! Carry on
Re: cod vba
Am atasat si un exemplu dintre fisierele care trebuie importate. Dupa ce se face importul fisierului vreau sa imi apara pe coloana L numele xlsx de unde s-a facut importarea si pe coloama M numele sheetului de unde s-a facut importul...
Multumesc
Multumesc
Nu aveţi permisiunea de a vizualiza fişierele ataşate acestui mesaj.
Re: cod vba
Am rezolvat ... multumesc mult de tot pentru ajutor.
As mai avea o intrebare ..... se poate scrie un cod pentru copierea unor poze dintr-un excel si sa fie transferate in alt sheet dintr-un alt excel si sa se redimensioneze automat in celula unde va fi copiata?
As mai avea o intrebare ..... se poate scrie un cod pentru copierea unor poze dintr-un excel si sa fie transferate in alt sheet dintr-un alt excel si sa se redimensioneze automat in celula unde va fi copiata?