- sziku69: Fűzzük össze a szavakat :)
- sellerbuyer: Milyen laptopot vegyek? Segítek: semmilyet!
- Luck Dragon: Asszociációs játék. :)
- gban: Ingyen kellene, de tegnapra
- ubyegon2: Airfryer XL XXL forrólevegős sütő gyakorlati tanácsok, ötletek, receptek
- sh4d0w: Árnyékos sarok
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Magga: PLEX: multimédia az egész lakásban
- sziku69: Szólánc.
- Lalikiraly: Sencor SMC BS30 aktív hangfalszett bemutató
-
LOGOUT
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
13128814
tag
Sziasztok!
A segítségetekre van szükségem, mert elakadtam. Hogy ne érje szó a ház elejét, reggel óta küzdök vele, már a Chat GPT-t is izzasztottam, meg mindent amit tudtam. De csak egy egyszerű multis rabszolga vagyok aki szeretne automatizálni ezt-azt, szóval ne vegyétek le a fejemet kérlek.
A háttere az, hogy hetente készülnek riportok aminek az alapját 1 SAP lekérdezés és egy belsős adatbázis adja. Az aktuális excel mindig visszahivatkozik az előzőhetire, és ebből van a problémám.
A fájlok ilyen struktúrában vannak elmentve:
2023_07_29_valami
2023_07_22_valami
stb.
A problémám egy (számomra) komplexebb FKERES-el kezdődött. Ez így néz ki (és 3 van belőle!):
=HAHIBA(FKERES(A3;'\\win2012-adc\WORK\Termelés\SAP\2023\[2023_07_27_Össze_kártyaLekérdezés.xlsx]2023_07_27'!$A$3:$S$400000;8;HAMIS);2)
Mivel ez mindig az előzőheti excelre mutat rá, kitaláltam, hogy csinálok egy archivum fület a sablon fájlomban. Ami azt csinálja, hogy mindig beírja az aktuálisan generált excelt adatait, amiből ha visszaugrok egy cellát akkor automatikusan tudni fogom hogy hogyan hivatkozzak az előző excelre. Elméletben nagyon jól is hangzott!
Ezért azt csináltam, hogy a sablon excelem képleteket tartalmazó lapján összefűztem ezeket a függvényeket, mert igazából mindig csak a dátum tér el, pl. itt az I3:
Mert a makró megtudja határozni az archivumból a korábbi dátumot (nem mindig ugyanakkor készül az előző).
Ez amúgy tök jó is lett, de az istenért nem másolja be nekem függvényként, és itt vagyok meglőve:
ThisWorkbook.Worksheets("K").Range("I6").Value = elozoDatum
ThisWorkbook.Worksheets("K").Range("I8").Value = elozoDatum
ThisWorkbook.Worksheets("K").Range("I4").Copy
ujExcelDatum.Range("I3").PasteSpecial xlPasteValues
Próbáltam formulaként is beszúrni, de object hibát kaptam.
Ha F2-t nyomok, és kilépek belőle akkor tök jó, csak makróval nem tudtam megcsinálni, mert idézőjelekbe kell tennem az eredetit, de nem tudom előre definiálni, mert változik.
Akkor kitaláltam, hogy változóba olvasom, és azt használom fel, de mindig object errort kaptam vissza.
Aztán próbáltam ilyet is, de szintén object errort kaptam:
'Dim G1 As String
'Dim G2 As String
'Dim I3 As String
'Dim M3 As String
'Dim P3 As String
'G1 = "=HAHIBA(FKERES($A3,'\\win2012-adc\WORK\Termelés\SAP\2023\["
'G2 = "_Össze_kártyaLekérdezés.xlsx]"
'I3 = "'!$A$3:$S$400000,8,HAMIS),2)"
'M3 = "'!$A$3:$O$400000;15;HAMIS);""X"")"
'P3 = "'!$A$3:$B$400000;2;HAMIS);""X"")"
'Dim iKeplet As String
'iKeplet = G1 & elozoDatum & G2 & elozoDatum & I3
'Debug.Print iKeplet
'ujExcelDatum.Range("I3").Value = iKeplet
Igazából én már kezdek kifogyni az ötletekből, csak egy FKERES-re van szükségem. Plusz minden egyes hibánál végig futtattam a Chat GPT-n a kódokat, de csomó esetben azt írta vissza hogy működnie kéne.
Ja igen, ez magyar nyelvű 2307-es verziójú office365.
Előre is köszönöm!
Új hozzászólás Aktív témák
- Mobil flották
- Az Apple bemutatta az iPhone 17-et
- LEGO klub
- Projektor topic
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Bibliai bőség a Tesla negyedik mestertervében
- iPhone topik
- Kézbe fogható paradoxon lett az iPhone Air
- Merész dizájn és új teleobjektív az iPhone 17 Pro mobilokban
- Star Wars: The Old Republic - MMORPG
- További aktív témák...
- HIBÁTLAN iPhone 13 Pro Max 128GB Graphite -1 ÉV GARANCIA - Kártyafüggetlen, MS3391
- Vállalom Xianomi Okos kamerák, szoftveres javíttását
- Új és régi konzolok Okosítása/Softmodoloása, és Szoftveres szintű javítása - RÉSZLETEK A LEÍRÁSBAN
- Legjobb kijelzős! ThinkPad T14s Gen 2 i5-1135G7 16GB 1000GB FHD 1 év garancia
- Telefon felvásárlás!! Xiaomi Redmi Note 10, Xiaomi Redmi Note 10s, Xiaomi Redmi Note 10 Pro
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: CAMERA-PRO Hungary Kft.
Város: Budapest