cod vba

cod vba

Mesajde 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!
astanaia
 
Mesaje: 9
Membru din: Joi Apr 06, 2017 10:54 am

Re: cod vba

Mesajde 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
IPP
Moderator
Moderator
 
Mesaje: 3711
Membru din: Mie Iul 29, 2009 7:26 am
Localitate: Cluj-Napoca

Re: cod vba

Mesajde 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.
astanaia
 
Mesaje: 9
Membru din: Joi Apr 06, 2017 10:54 am

Re: cod vba

Mesajde 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
IPP
Moderator
Moderator
 
Mesaje: 3711
Membru din: Mie Iul 29, 2009 7:26 am
Localitate: Cluj-Napoca

Re: cod vba

Mesajde 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

Mesajde astanaia » Vin Oct 27, 2017 1:00 pm

nu mi se intampla nimic daca adaug acele doua linii in cod
astanaia
 
Mesaje: 9
Membru din: Joi Apr 06, 2017 10:54 am

Re: cod vba

Mesajde 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
Nills
 
Mesaje: 211
Membru din: Sâm Ian 23, 2016 11:24 am

Re: cod vba

Mesajde 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

Mesajde 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?
astanaia
 
Mesaje: 9
Membru din: Joi Apr 06, 2017 10:54 am


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

Cine este conectat

Utilizatorii ce navighează pe acest forum: Niciun utilizator înregistrat şi 5 vizitatori