-
Fototrend
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
-
Erre esetleg valaki?
Leírom példával, hátha csak túl sokat kértem korábban. A munkalap A1-es cellájától XYZ1-es celláig tartalmazza az év összes napját. B1-es cellától kezdődően minden nap be kellene kerülnie a C1 cella értékének, tehát a mai érték B1-be, a holnapi a B2-be, azután a B3-ba, így tovább. A C1 cella értéke SQL script által frissül, az excel megnyitásával egyidőben. Hogy a C1 cella értékének másolása gombnyomásra, vagy excel megnyitásra történik-e, már mellékes kérdés.
Köszönöm a segítséget előre is!
-
Sziasztok!
Belefutottam egy kemény problémába, amihez egyszerűen nincs elég tudásom, Nektek viszont biztos menni fog (legalábbis nagyon remélem
.Az alap feladat, hogy egy adott Excel fájl adott cellájában lévő tartalmat minden egyes nap délben át kellene másolni ugyanezen fájl egy másik cellájába, de úgy, hogy a cél cella minden nap más és más. Tulajdonképpen arról van szó, hogy van egy SQL lekérdezés, amely eredménye bekerül egy adott cellába, és ezt az eredményt kellene napi szinten megőrizni, nyilvántartás szerűen, dátum szerint.
Egy nap egyetlen értékre van szükség, így az már csak hab lenne a tortán, ha egy adott nap a makró csak egyszer futna le, akárhányszor is próbálják meg lefuttatni, mert például ellenőrzi, hogy ha az adott napra már történt értékrögzítés, akkor nem írja felül a cél cella tartalmát.
A legszebb pedig az lenne, ha a makró úgy futna le, hogy az Excel fájlt meg sem kellene nyitni hozzá, hanem időzítve, megnyitás nélkül is aktualizálná az értékeket, és mentené a változtatásokat.
Megoldható mindez egyáltalán Excelben, vagy ez már inkább programozási kérdés?
-
válasz
Fferi50
#31883
üzenetére
Szia!
Még mindig ugyanaz a makró van napirenden, de adódott két újabb kérdésem vele kapcsolatban:
- Megoldható-e, hogy az Excel dokumentum megnyitásakor a kurzor már alapból a szövegbeviteli cellán legyen? Jelenleg bele kell kattintani a mezőbe az adat beviteléhez, pontosabban, ha ezen a cellán áll, mentéskor az Excel megőrzi a pozíciót, de ha esetleg félrekattintva ment, akkor ez már nem igaz. Jó lenne kikényszeríteni ezt valahogy a programból.
- Megoldható-e, hogy két keresési ciklus között (tehát amikor bevisz egy cikkszámot, amihez kapcsolódóan a makró megnyitja a hálózaton lévő fájlt, de újabb cikkszám bevitel még nem történt meg) ne az előzőleg bevitt cikkszám legyen, hanem mondjuk egy nulla, vagy egy "Olvassa be a vonalkódot!" felirat?
Köszönöm a válaszaidat előre is!
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C2")) Is Nothing Then
Application.EnableEvents = False
ActiveWorkbook.FollowHyperlink Address:=Sheets("DATA").Range("$A$2:$A$1000").Find(What:=Target.Value, LookIn:=xlValues, lookat:=xlWhole).Offset(0, 1).Value
Application.EnableEvents = True
Range("C2").Select
End If
End Sub -
válasz
Fferi50
#31853
üzenetére
Szia Fferi50!
Bocs, hogy megint zargatlak, de elakadtam...
A tegnapi szkripted teljesen jól működik, de egy dolgot sehogyan sem tudok benne megoldani, pedig fél nap ezzel foglalkoztam. Az lenne a jó, ha a kereső mező egy "GUI" nevű excel fájlban lenne, míg az adatok egy másik, mondjuk DATA nevű excel fájlban kapnának helyet. Ha ez így túl összetett, tulajdonképpen az is rendben lenne, ha egy fájlban lenne a felület és a forrás is, két külön munkalapon.
Alapvetően az oszlopok / sorok elrejtése is opció lenne, de attól meg kidől a szkript.
Köszönöm a segítséget előre is!
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B2")) Is Nothing Then
Application.EnableEvents = False
ActiveWorkbook.FollowHyperlink Address:=Range("$A$7:$A$1000").Find(What:=Target.Value, LookIn:=xlValues, lookat:=xlWhole).Offset(0, 1).Value
Application.EnableEvents = True
Range("B2").Select
End If
End Sub -
válasz
Fferi50
#31849
üzenetére
Szia!
Nagyon szépen köszönöm, sokat segítettél ezzel! Még egy kis probléma van vele, de az én hibám, rosszul írtam le: nem minden esetben azonos a filenév a keresési feltétellel, és ez okozhat jelen állapotban hibát. A link és a keresési feltétel viszont minden esetben össze van rendelve. A gond az, hogy jelen állapotban beírom kézzel a keresési mezőbe, hogy (teszem azt) 11, akkor olyan linket próbál megnyitni, hogy \\VALID_URL\osszerendelt_filenev.akarmi\11, és erre nyilván hibát dob. Persze, az is lehet, hogy a két dolognak semmi köze egymáshoz.
SZERK.: Kivettem a " & Target.Value" részt a szkriptedből, így már nem dob hibát, viszont a fájlt Excel-ben szeretné megnyitni. Ez nem lenne gond, de ez egy .pdf
-
válasz
d@minator
#31847
üzenetére
Sziasztok!
Makróban kérném a segítségeteket, mert nem vagyok a téma szakértője. Ezért is kezdtem makró rögzítéssel, de az eredmény nem tökéletes, sőt.
A probléma: adott egy cella, amibe az érték egy FKERES függvény révén kerül be. A konkrét érték egy URL hivatkozás. Ezt a hivatkozást kellene (és nem magát az FKERES-t, ugye) átmásolnom egy másik cellába, amelybe már jó lenne, ha linkelt hivatkozásként kerülne be. Ha ez megtörtént, ugyanezen cellán kellene ütnie a makrónak egy entert, majd a kurzort egy másik cellába (az FKERES érték mezőjébe) ugratnia, majd törölni a már benne lévő értéket.
A feladat, amire szánom: adott fájlok nevére keresve kolléga beüti a fájl nevét az FKERES keresőmezőjébe, ami kikeresi egy rejtett lapfülről (vagy még inkább jobb lenne, ha egy másik táblázatból az adott fájlnévhez tartozó hálózati elérési utat, amelyről automatikusan megnyílik az adott fájl.
A felvétellel már ott gondba kerültem, hogy a rögzítés során a cellában lévő adatot másolja át és illeszti be egy másik cellába, tehát nem veszi figyelembe, hogy az FKERES eredménye már régen lecserélte az adott cella értékét.
Ha tudnátok segíteni, hálás lennék! Köszi előre is!
.
Új hozzászólás Aktív témák
- Apple iPhone 14 Pro 128GB,Újszerű,Dobozával,12 hónap garanciával
- GYÁRI TÖLTŐK DELL LENOVO HP FUJITSU TOSHIBA Macbook---------- Budapest,/MPL/Foxpost
- GYÖNYÖRŰ iPhone 12 mini 64GB Purple -1 ÉV GARANCIA - Kártyafüggetlen, MS3851
- BESZÁMÍTÁS! ASUS TUF B550 R7 5700X 32GB DDR4 1TB SSD RX 6900XT 16GB Zalman Z10 Plus EVGA 850W
- HIBÁTLAN iPhone 13 Pro 128GB Alphine Green -1 ÉV GARANCIA - Kártyafüggetlen, MS3024
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Laptopszaki Kft.
Város: Budapest