Hirdetés
- Luck Dragon: Asszociációs játék. :)
- Gurulunk, WAZE?!
- Graphics: Telefonvásárlási kálváriám....avagy clickbait cím: Horror a hardveraprón
- ricsi99: 6. Genes alaplap tündöklése kontra MS/Zintel korlátozásai
- f(x)=exp(x): A laposföld elmebaj: Vissza a jövőbe!
- Doky586: SecureBoot kulcsok frissítése (2026 nyara)
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- sziku69: Fűzzük össze a szavakat :)
- Parci: Milyen mosógépet vegyek?
- Luck Dragon: Alza kuponok – aktuális kedvezmények, tippek és tapasztalatok (külön igényre)
-
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
-
ny.janos
tag
válasz
Exportlaptop
#41092
üzenetére
Egy új oszlopban megkapod az eredményt, ha összefűzöd az előbbi két oszlopot (ha A és B oszlopokat akarod összefűzni, akkor C oszlop képlete a 2. sorban):
=A2&B2 -
Delila_1
veterán
válasz
Exportlaptop
#41089
üzenetére
Szívesen.

-
Delila_1
veterán
válasz
Exportlaptop
#41085
üzenetére
SZÖVEG.KERES a barátod.
-
Fferi50
Topikgazda
válasz
Exportlaptop
#37846
üzenetére
Szia!
Ha pontosan másoltad be a modul tartalmát, akkor az a gond, hogy hiányzik a végéről az utolsó sor:
End Sub.Valószínűleg véletlenül törölted.
Ha mégsem így lenne, akkor kérlek, másold ide pontosan.Üdv.
-
Delila_1
veterán
válasz
Exportlaptop
#31356
üzenetére
Örülök, hogy sikerült.

-
Delila_1
veterán
válasz
Exportlaptop
#31351
üzenetére
Az egyszerűség kedvéért vegyük, hogy azonos füzetben van a két lap. Nevük Egyik és Másik.
Az Egyik lapon az M oszlopig vannak adataid. Itt felveszünk egy segédoszlopot, legyen ez az N.
Címsort feltételezve az N2-be írjuk be az első képletet:=HAHIBA(HOL.VAN(I2;Másik!A:A;0);0)
Ezt végig lemásolod az adataid mellé. Autoszűrőt teszel az első sorba, és szűröd az N oszlopot nullára. A látható sorokat törölheted.
-
Delila_1
veterán
válasz
Exportlaptop
#31347
üzenetére
Mi az, hogy másik excel? Másik lap, vagy másik füzet?
-
Delila_1
veterán
válasz
Exportlaptop
#31265
üzenetére
Nézd meg az FKERES függvényt, ilyen feladatokra találták ki.
-
Fferi50
Topikgazda
válasz
Exportlaptop
#30942
üzenetére
Szia!
Semmi akadálya annak, hogy a képeket egy külön munkalapra betedd (Beszúrás - kép), majd erre állítsd be a hivatkozást, viszont azt tudni kell, hogy ekkor a fájlod mérete "rettenetesen" megnő, hiszen fizikailag tartalmazza a képek adatait, ami nem kevés. Ez pedig a megnyitásnál hosszadalmas.
Ha viszont ugyanabban a mappában vannak a képek is, mint az excel fájl maga, akkor gyors a megnyitás és meg is találja, ha nem abszolut hivatkozást használsz. Ekkor az egész mappát kell átadni a másik félnek.Üdv.
-
igort
csendes tag
válasz
Exportlaptop
#30943
üzenetére
Köszönöm !
-
Fferi50
Topikgazda
válasz
Exportlaptop
#30938
üzenetére
Szia!
Szerintem az a probléma, hogy a képek nincsenek benne magában az excel fájlban, csak a rájuk mutató hivatkozás - ami viszont nyilván a te gépedre mutat. Ezért a külön képfájlt is el kellene küldeni az excel mellé ugyanabba a könyvtárba, továbbá a hivatkozást úgy lenne jó megcsinálni, hogy azonos könyvtárban van a két fájl, akkor nem kell a teljes név, elég a rövid név hozzá.
Üdv.
-
Delila_1
veterán
válasz
Exportlaptop
#30931
üzenetére
Vagy üres sor volt ott, vagy olyan képnév, amit nem talált az adott mappában.
A .Height = Rows(sor).Height
sor végére írd be: *4 -
Delila_1
veterán
válasz
Exportlaptop
#30929
üzenetére
Nem sokat kell változtatni.
Sub Kepek()
Dim Kepneve As String, utvonal As String, sor As Long
utvonal = "G:\MUNKA kicsinyitett2\BC adatbazis\Képek összes logos\"
sor = 2
Do While Cells(sor, "H") <> ""
Kepneve = Cells(sor, "H")
With ActiveSheet.Pictures.Insert(utvonal & Kepneve)
.Left = Columns(9).Left
.Top = Rows(sor).Top
.Height = Rows(sor).Height
End With
sor = sor + 1
Loop
End Sub -
Delila_1
veterán
válasz
Exportlaptop
#30927
üzenetére
-
Delila_1
veterán
válasz
Exportlaptop
#30925
üzenetére
Másold be modulba a lenti makrót (lásd Téma összefoglaló).
Sub Kepek()
Dim Kepneve As String, utvonal As String, sor As Long
utvonal = "D:\Képek\Almappa\" '***
sor = 2
Do While Cells(sor, "I") <> ""
Kepneve = Cells(sor, "I") & ".jpg" '*****
With ActiveSheet.Pictures.Insert(utvonal & Kepneve)
.Left = Columns(8).Left
.Top = Rows(sor).Top
.Height = Rows(sor).Height
End With
sor = sor + 1
Loop
End SubA ***-os soba a saját útvonalad kerüljön.
A *****-os sornál nem kell az & ".jpg", ha a kiterjesztést tartalmazzák a képnevek. Ha más a kiterjesztés, azt írd a jpg helyére. -
Delila_1
veterán
válasz
Exportlaptop
#30923
üzenetére
A két füzetet azonos mappába tettem, Az elsőt angol.xlsx, a másodikat (ez az érdekes, mert innen veszi az angol az adatokat) magyar.xlsx néven mentettem. A kérdéses lapok neve is Angol és Magyar.
Az angol.xlsx Angol lapján a B2 képlete:
=INDEX('[magyar.xls]Magyar'!A:C;HOL.VAN(C2;'[magyar.xls]Magyar'!C:C;0);2)Ha nem azonos mappában vannak, akkor az útvonalat is be kell írnod.
-
Delila_1
veterán
válasz
Exportlaptop
#30921
üzenetére
Címsort feltételezve az első lap B2 cellája
=INDEX(Magyar!A:C;HOL.VAN(C2;Magyar!C:C;0);2)
Ezt másold le a többi adatod mellé.
Új hozzászólás Aktív témák
Hirdetés
- Játékkulcsok olcsón: Steam, Uplay, GoG, EA, Xbox stb.
- MS SQL Server 2016, 2017, 2019
- Eladó jogtiszta, Windows 11/10, Office 2019/2021/2024, Fizikai és Digitális licencek, Számlával.
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem.
- 226 - Lenovo LOQ (15IRX10) - Intel Core i7-13650HX, RTX 5060
- ÁRGARANCIA!Épített KomPhone i7 14700KF 32/64GB RAM RTX 5070 Ti 16GB GAMER PC termékbeszámítással
- ÁRGARANCIA!Épített KomPhone i5 12400F 16/32/64GB RAM RTX 5070 12GB GAMER PC termékbeszámítással
- 27% - ASUS VivoBook S15 OLED! Snapdragon X Elite / 16GB DDR5 / 1TB NVMe Notebook!
- iPhone 17 256 GB Black - Bontatlan !! www.stylebolt.hu - Apple eszközök és tartozékok - Számlás
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest

Fferi50