Hirdetés
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- Luck Dragon: Asszociációs játék. :)
- sziku69: Fűzzük össze a szavakat :)
- sziku69: Szólánc.
- eBay-es kütyük kis pénzért
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Luck Dragon: Alza kuponok – aktuális kedvezmények, tippek és tapasztalatok (külön igényre)
- Brogyi: CTEK akkumulátor töltő és másolatai
- lezso6: Nemzetközi újév visszaszámlátor alkoholistáknak
- Kalandor: „Ha engedtem volna a lelkiismeretemnek, az üzlet kevésbé lett volna jövedelmező”
-
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
-
BoGyo[ME]
tag
válasz
matekmatika
#2086
üzenetére
Hááát, lehet, hogy elméletileg hiányzik, de a gyakorlatban tökéletesen működik...
Bár ahogy így kezdenek felelevenedni - rég elfeledett - ''programozói'' emlékeim (semmi komoly, csak Basic, TP), mondasz valamit...
-
BoGyo[ME]
tag
válasz
matekmatika
#2084
üzenetére
Azért köszönöm szépen! Eredetileg én is valami ilyesmit akartam - lehet, hogy át is alakítom ilyenre
-, de egyelőre csak ''favágó'' módszerel sikerült megoldani (mindegy így is roppant büszke vagyok rá, ez az első makróm... 
):
Sub Hiperhivatkozás()
Set leir = Worksheets(''leírás'')
a = 9
b = 31
c = 5
i = 1
j = 1
For k = a To b
Range(Cells(k, c), Cells(k, c)).Select
If Cells(k, c) = '''' Then Else ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:='''', SubAddress:= _
'''leírás'!A'' & i, TextToDisplay:=Selection.Value
Range(Cells(k, c + 1), Cells(k, c + 1)).Select
If Cells(k, c + 1) = '''' Then Else ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:='''', SubAddress:= _
'''leírás'!A'' & i, TextToDisplay:=Selection.Value
i = i + 1
Next k
End Sub -
BoGyo[ME]
tag
válasz
matekmatika
#2074
üzenetére
Szuperül működik, köszi szépen...
Egy dologgal azonban jó volna kiegészíteni (bonyolódott az alap-tábla 
):
Hogy lehet azt megcsinálni, hogy ha az ''E'' oszlopban nincs semmi, akkor az ''F'' oszlopra hajtsa végre a hiperhivatkozás beszúrását, vagy ami mégjobb lenne:
Minden egyes sorban nézze meg mindkét oszlopot, és amelyik nem üres, ahhoz rendelje hozzá az adott sort a ''leírás'' munkalapon (ha mindkét oszlopban van valami, akkor mindkettőhöz ugyanazt a cellát kellene hozzárendelni).
A gyakolatban:
alap munkalap
E F
9 alma
10 körte
11 narancs
12 szilva dinnye
leírás munkalap
A
1 piros
2 sárga
3 narancssárga
4 lila;zöld
[Szerkesztve]
[Szerkesztve] -
BoGyo[ME]
tag
válasz
matekmatika
#2074
üzenetére
Köszi szépen, holnap kipróbálom...
(így, mások által kidolgozva nem is tűnik olyan bonyolultnak...
) -
BoGyo[ME]
tag
válasz
matekmatika
#2068
üzenetére
Köszi!
Sajna felsőbb utasításra kell így csinálni (a másik munkalapon szereplő adatok külön is kellenek), úgyhogy ha valaki tudna segíteni makróval...
(roppant hálás lennék) -
BoGyo[ME]
tag
Hali!
Azt szeretném megtudakolni, hogy hogyan hiperhivatkozást ''automatikusan'' elhelyezni, konkrétan:
Az egyik munkalap (nevezzük alap-nak) bizonyos oszlopában szerepelnének különböző szövegek, amiket hiperhivatkozással össze kellene kötni egy másik munkalap (leírás) adott oszlopában szereplő szöveggel, úgy hogy a sorok folyamatosak.
A gyakorlatban:
alap;E9 -> leírás;A1
alap;E10 -> leírás;A2
alap;E11 -> leírás;A3
etc.
Ezt hogy lehetne automatizálni?
):
Sikerült magamtól! 
)
):
Új hozzászólás Aktív témák
Fferi50- Update 12.29. 13:00 - Bomba árak 2025-ben is! Üzleti - Consumer laptopok DELL FUJITSU HP LENOVO
- iPhone 14 128GB 100% (GARANCIÁBAN CSERÉLT)
- GYÖNYÖRŰ iPhone 12 64GB Blue -1 ÉV GARANCIA -Kártyafüggetlen, MS4121
- Razer Barracuda X Chroma Black gamer Fejhallgató
- BESZÁMÍTÁS! MSI B450M R5 5600X 32GB DDR4 512GB SSD RX 6700XT 12GB Zalman S2 TG GIGABYTE 750W
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Laptopszaki Kft.
Város: Budapest