Hirdetés
- Graphics: Telefonvásárlási kálváriám....avagy clickbait cím: Horror a hardveraprón
- Luck Dragon: Asszociációs játék. :)
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- sziku69: Fűzzük össze a szavakat :)
- Ketogén étrend
- f(x)=exp(x): A laposföld elmebaj: Vissza a jövőbe!
- gerner1
- sziku69: Szólánc.
- MasterDeeJay: Egy nem átlagos Asus videókártya (GTX950M 2GB GDDR3)
- Meggyi001: Áram nélkül....méltóság nélkül.....
-
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
-
GoZoL
senior tag
Sziasztok!
A következő makrót szeretném módosítani:
Sub Osszevon_()
Const utvonal = "adat"
Dim FN As String, WB As Workbook, WBGy As Workbook
Dim lap As Integer, oszlop As Integer, oszlop_gy As IntegerApplication.ScreenUpdating = False
oszlop_gy = 3
Set WBGy = Workbooks("adat.xlsm")
ChDir utvonal
FN = Dir(utvonal & "*.xls", vbNormal)
Do
If FN <> "." And FN <> ".." Then
Workbooks.Open Filename:=FNFor lap = 1 To Worksheets.Count
Sheets(lap).Select
Range("G27:G197").Copy
ActiveWindow.ActivatePrevious
Cells(9, oszlop_gy).Select
Selection.PasteSpecial Paste:=xlPasteValues
ActiveWindow.ActivateNext
oszlop_gy = oszlop_gy + 1
Next
ActiveWindow.Close
End If
FN = Dir()
Loop Until FN = ""Application.ScreenUpdating = True
End SubPlusz tartományt kellene másolni (E9:E26) ami a 9-14 sorba illesztené be és utána jönne a fent látható tartomány de a 15. sortól illesztené be. Egy kijelöléssel és egy másolással nemigen lehetséges.
Köszönöm a segítséget!
-
GoZoL
senior tag
Üdv!
A probléma az FKERES függvény alkalmazásánál jön elő, hiányzik értékkel de csak ritka esetben.
A képlet: =FKERES(F10;Géplista_teszt.xls!gépek;5;HAMIS)
működése: ebben a munkafüzetben az F10-es cella értékét megkeresi egy másik fájlban a gépek nevű munkafüzet 5. oszlopában. Ha megtalálta akkor beírja az értéket.
95 %-ban működik kb 1400 sor van de bizonyos értékeket nem talál meg. Már a formátumától kezdve a cellának a tulajdonságait mindent megnéztem, de nem találtam különbséget. Ha IGAZ értékre átírom akkor működik de úgy olvastam, hogy nem a pontos értéket adja vissza hanem a hozzá legközelebbit. Még annyit, hogy 1000 alatti számokat 4 jegyűre egészítettem ki, egy darab 0-val. A hiba csak az 1000 feletti számoknál jön elő de ott sem mindenhol. Köszi! -
GoZoL
senior tag
-
GoZoL
senior tag
-
GoZoL
senior tag
Sziasztok!
Lehetséges e olyan makrót készíteni amely megnyitja egy mappában az összes xls fájlt, majd az excelben lévő össze lapot megnézve egy adott oszlopot(mindig az utolsót) átmásolna egy másik excel táblázatba? Minden munkalap utolsó oszlopát egymás mellé másolgatná.
Köszi előre is a segítséget!
Makrós könyvből érdemes tanulni?
Nagyon szépen köszönöm, több kívánságom nem lesz!
Új hozzászólás Aktív témák
Hirdetés
Fferi50- Háztartási gépek
- Analóg fényképezés
- Graphics: Telefonvásárlási kálváriám....avagy clickbait cím: Horror a hardveraprón
- AMD vs. INTEL vs. NVIDIA
- Kerékpárosok, bringások ide!
- Battlefield 6
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Forza sorozat (Horizon/Motorsport)
- Milyen autót vegyek?
- Apple MacBook
- További aktív témák...
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Game Pass Ultimate előfizetések 3 - 36 hónapig azonnali kézbesítéssel! 13 hónap ultimate - 50.000 ft
- Vírusirtó, Antivirus, VPN kulcsok GARANCIÁVAL!
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Utolsó darab! MacBook Pro 16" M1 32GB RAM 27% ÁFA - Garancia - (0437AB)
- Samsung Galaxy S21 FE 5G 128GB, Kártyafüggetlen, 1 Év Garanciával
- Lenovo Thinkpad P15 Gen 2 - 82 akkuciklus - 27% ÁFA- Garancia - 0373BE
- BESZÁMÍTÁS! ASUS B550M R7 5700 32GB DDR4 512GB SSD RTX 3070 Ti 8GB Lian Li Vector V100R Corsair 650W
- LG UltraGear 38GN950P-B Monitor! 38" 3840x1600 / 1ms / 160Hz / G-Sync / FreeSync! BeszámítOK
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest