- Magga: PLEX: multimédia az egész lakásban
- droidic: A Coffee Lake titkos nyolcmagos processzora – CC150
- Luck Dragon: Asszociációs játék. :)
- MasterDeeJay: Natív 3Dfx Glide Windows11 alatt Voodoo1 és Voodoo2-vel.
- sziku69: Fűzzük össze a szavakat :)
- sziku69: Szólánc.
- Parci: Milyen mosógépet vegyek?
- ubyegon2: Airfryer XL XXL forrólevegős sütő gyakorlati tanácsok, ötletek, receptek
- weiss: Pant* rant
- PICO PSU kérdések
Új hozzászólás Aktív témák
-
kanyolajos
csendes tag
Sziasztok
Egy excelben írt maro-hoz kérnék némi segítséget.
Egy másik excel file-ból olvasok ki egy sheetet.
Két problémám lenne:
A kiolvasás működik,de csak az értékeket szeretném átmásolni, a fügvényeket nem,
valamint két jelszóval védett az excel: első az Encrypt a második a normál olvasás írás védelem.
Ugye hivatkozáskor megnyitás előtt be kell írni a két jelszót manuálisan.
Milyen utasítással lehetne ezt megoldani , hogy a futó macro maga nyissa meg ?
Segítséget előre is köszönömIme a kiolvasó macro:
' .......................................................................................................................................
'Hivatkozás az adat sheetre
Sheets("Datum").Visible = True
'Hivatkozás hova történjen a beírás
Sheets("01").Visible = True
'Hivatkozás aktuális idő lehívása
Sheets("Datum").Select
'Hivatkozás aaktuális idő lehívása
Range("H3").Select
sajatnev = ActiveCell
'Hivatkozás aaktuális idő lehívása
Range("D6").Select
fajlnev = ActiveCell'Hivatkozás honnan olvassa be a stop adatokat
fajlnevY0 = "C:\teszt\" + fajlnev
ChDir "C:\teszt"
'Hivatkozás melyik sheetből olvasson
Workbooks.Open Filename:=fajlnevY0
Sheets("1 data").Select
Columns("A:AZ").Select
Selection.Copy
Windows(sajatnev).Activate
'Hivatkozás melyik sheetbe írja ki
Sheets("01").Select
Columns("A").Select
ActiveSheet.Paste
Windows(fajlnev).Activate
Columns("L").Select
Selection.Copy
Windows(sajatnev).Activate
Columns("J").Select
ActiveSheet.PasteActiveWindow.SelectedSheets.Visible = False
Windows(fajlnev).Activate
Range("A1").Select
Selection.Copy
ActiveWindow.Close (False)Sheets("Datum").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("Mon").Select
ActiveWorkbook.Savethx
Luí
Új hozzászólás Aktív témák
- Házimozi belépő szinten
- Házimozi haladó szinten
- Akciós ingyen digitális tartalmak
- Magga: PLEX: multimédia az egész lakásban
- AMD Navi Radeon™ RX 6xxx sorozat
- The Division 2 (PC, XO, PS4)
- The Alters teszt
- TV antenna és jelerősítés
- Kormányok / autós szimulátorok topikja
- Vezetékes FEJhallgatók
- További aktív témák...
- AKCIÓ! HP Victus 16-R1002NF Gamer notebook - i7 14700HX 16GB RAM 1TB SSD RTX 4070 8GB WIN11
- Eladó ANDROID TV box 4/64GB tárhely / 12 hónap jótállás
- Bomba ár! Lenovo ThinkPad T480s - i7-8GEN I 16GB I 256GB I 14" WQHD I HDMI I Cam I W11 I Gari!
- Olcsó Laptop! Dell Latitude 7280. I5 7300U / 8GB DDR4 / 256GB SSD
- Telefon felvásárlás!! Samsung Galaxy S21/Samsung Galaxy S21+/Samsung Galaxy S21 Ultra
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest