-
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
-
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 -
#41090
Delila_1
veterán
Exportlaptop
#41089
Delila_1
veterán
válasz
Exportlaptop
#41089
üzenetére
Szívesen.
-
#41087
Delila_1
veterán
Exportlaptop
#41085
Delila_1
veterán
válasz
Exportlaptop
#41085
üzenetére
SZÖVEG.KERES a barátod.
-
#37848
Fferi50
Topikgazda
Exportlaptop
#37846
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.
-
#31357
Delila_1
veterán
Exportlaptop
#31356
Delila_1
veterán
válasz
Exportlaptop
#31356
üzenetére
Örülök, hogy sikerült.
-
#31352
Delila_1
veterán
Exportlaptop
#31351
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.
-
#31350
Delila_1
veterán
Exportlaptop
#31347
Delila_1
veterán
válasz
Exportlaptop
#31347
üzenetére
Mi az, hogy másik excel? Másik lap, vagy másik füzet?
-
#31266
Delila_1
veterán
Exportlaptop
#31265
Delila_1
veterán
válasz
Exportlaptop
#31265
üzenetére
Nézd meg az FKERES függvényt, ilyen feladatokra találták ki.
-
#30948
Fferi50
Topikgazda
Exportlaptop
#30942
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.
-
#30944
igort
újonc
Exportlaptop
#30943
igort
újonc
válasz
Exportlaptop
#30943
üzenetére
Köszönöm !
-
#30940
Fferi50
Topikgazda
Exportlaptop
#30938
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.
-
#30933
Delila_1
veterán
Exportlaptop
#30931
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 -
#30930
Delila_1
veterán
Exportlaptop
#30929
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 -
#30928
Delila_1
veterán
Exportlaptop
#30927
Delila_1
veterán
válasz
Exportlaptop
#30927
üzenetére
-
#30926
Delila_1
veterán
Exportlaptop
#30925
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. -
#30924
Delila_1
veterán
Exportlaptop
#30923
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.
-
#30922
Delila_1
veterán
Exportlaptop
#30921
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
Fferi50- Xbox / Microsoft Store feltöltőkártya kód (digitális, HU) több címlet, több db, azonnal, olcsón
- Vírusirtó, Antivirus, VPN kulcsok GARANCIÁVAL!
- PC Game Pass előfizetés
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap - 15% AKCIÓ
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Telefon felvásárlás!! Samsung Galaxy A13/Samsung Galaxy A33/Samsung Galaxy A53
- Licencek + laptopok + dokkolók
- Tablet felvásárlás!! Apple iPad, iPad Mini, iPad Air, iPad Pro
- ÁRGARANCIA!Épített KomPhone i9 14900KF 32/64GB RAM RTX 5070 Ti 16GB GAMER PC termékbeszámítással
- AKCIÓ! szinte RAM áron adom! MSI Vector GP78 HX13V i7-13700HX RTX4080 32GB DDR5 1TB QHD240 1 év gari
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest