cod vba

Închis
astanaia
Mesaje: 9
Membru din: Joi Apr 06, 2017 10:54 am

cod vba

Mesaj de astanaia » Vin Oct 27, 2017 9:04 am

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!

IPP
Moderator
Moderator
Mesaje: 4196
Membru din: Mie Iul 29, 2009 7:26 am
Localitate: Cluj-Napoca

Re: cod vba

Mesaj de IPP » Vin Oct 27, 2017 9:40 am

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

astanaia
Mesaje: 9
Membru din: Joi Apr 06, 2017 10:54 am

Re: cod vba

Mesaj de astanaia » Vin Oct 27, 2017 9:44 am

Am atasat si codul pentru import.
Nu aveţi permisiunea de a vizualiza fişierele ataşate acestui mesaj.

IPP
Moderator
Moderator
Mesaje: 4196
Membru din: Mie Iul 29, 2009 7:26 am
Localitate: Cluj-Napoca

Re: cod vba

Mesaj de IPP » Vin Oct 27, 2017 10:50 am

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

astanaia
Mesaje: 9
Membru din: Joi Apr 06, 2017 10:54 am

Re: cod vba

Mesaj de astanaia » Vin Oct 27, 2017 11:51 am

Am uitat sa mentionez ca trebuie molosit in modImportPVCS

astanaia
Mesaje: 9
Membru din: Joi Apr 06, 2017 10:54 am

Re: cod vba

Mesaj de astanaia » Vin Oct 27, 2017 1:00 pm

nu mi se intampla nimic daca adaug acele doua linii in cod

Nills
Mesaje: 211
Membru din: Sâm Ian 23, 2016 11:24 am

Re: cod vba

Mesaj de Nills » Vin Oct 27, 2017 3:01 pm

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.
I don't care what you think of me! Unless you think I'm awesome – in which case, you're right! Carry on :D

astanaia
Mesaje: 9
Membru din: Joi Apr 06, 2017 10:54 am

Re: cod vba

Mesaj de astanaia » Lun Oct 30, 2017 8:43 am

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
Nu aveţi permisiunea de a vizualiza fişierele ataşate acestui mesaj.

astanaia
Mesaje: 9
Membru din: Joi Apr 06, 2017 10:54 am

Re: cod vba

Mesaj de astanaia » Lun Oct 30, 2017 12:58 pm

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?

Închis

Înapoi la “Visual Basic for Application (VBA) cu Excel - Intrebari tehnice”