- Mr Dini: Mindent a StreamSharkról!
- Magga: PLEX: multimédia az egész lakásban
- gban: Ingyen kellene, de tegnapra
- Klaus Duran: 2025 dude
- kraftxld: Untappd lista
- chopin42: A (netes) társkeresés labirintusában #3:avagy... :(
- Luck Dragon: Asszociációs játék. :)
- sziku69: Fűzzük össze a szavakat :)
- btz: Internet fejlesztés országosan!
- laskr99: Újrakezdem a processzor és videókártya szilícium magok fotózását
Ú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
- Samsung Galaxy Watch Ultra + Trail Band
- BESZÁMÍTÁS! SAPPHIRE Pulse OC RX 9060 XT 16GB GDDR6 videokártya 27% áfa 3 év garancia
- PNY EPIC-X RGB RTX 5060Ti 16GB / Gigabyte EAGLE OC RTX 5070 12GB videokárty 3 év garancia 27% áfa
- Samsung Galaxy A35 5G 128 GB, Kártyafüggetlen, 1 Év Garanciával
- BESZÁMÍTÁS! 850W ASUS ROG STRIX 80 PLUS Gold White Edition (90YE00A4-B0NA00) 3 év garancia 27% áfa
- Azonnali készpénzes Microsoft XBOX Series S és Series X felvásárlás személyesen/csomagküldéssel
- Külföldi csomagszállítás Packeta csomagpontokon keresztül!
- AKCIÓ! ASRock H310CM i3 9100F 8GB DDR4 240GB SSD 1TB HDD GTX 1060 3GB AeroCool Strike-X 500W
- ÁRGARANCIA!Épített KomPhone Ryzen 7 9800X3D 32/64GB RAM RX 9070 XT 16GB GAMER PC termékbeszámítással
- BESZÁMÍTÁS! NZXT Kraken Elite 360 RGB vízhűtés garanciával hibátlan működéssel
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Promenade Publishing House Kft.
Város: Budapest