-
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
-
[w]
őstag
válasz
Delila_1
#46894
üzenetére
ha félre tudod tenni az eredendő dühödet és türelmetlenségedet, akkor könnyen be fogod látni, hogy nem tudunk egymás fejével gondolkodni, ezért előfordulhatnak félreértések, nem egyedül az egyik fél hibája.
ha most figyelmesen visszaolvasol, akkor látod azt is, hogy sehol nem írtam, hogy növekvő számozásra van szükség. az megvan, nem is kell bántani.
azt írtam "cég/sorszám/valami" van és "cég/sorszám/más"-ra kellene módosítanom.nem értek hozzá, segítségért jöttem ide, tőled ez a sokadik leereszkedő stílusú megnyilvánulás, amire ilyen helyzetben senkinek nincs szüksége.
-
[w]
őstag
válasz
Delila_1
#46892
üzenetére
nagyszerű, akkor még néhány kérdés:
kell lennie egy útvonalak.txt-nek - ez a "megnyitando.txt"
az utvonal kétszer is van definiálva, ha szándékos, akkor a második miben tér el az elsőtől?
mi az a cserék a B oszlopban? cellára nem lehet megadni?
egy sorszámozást kellene átalakítanom (ez az az egy módosítandó cella), ami elejétől fogva rossz volt és a "cég/sorszám/valami" struktúrát kellene átírni "cég/sorszám/valamimás" kinézetre, tehát igazából a szövegnek csak egy részét kellene cserélni -
[w]
őstag
válasz
Delila_1
#46884
üzenetére
még egy eszembe jutott:
lehet-e a sMappa változónak megadni pl. egy txt állományt, amelynek minden sorában a megnyitandó mappák vannak felsorolva és onnan magától olvassa be azokat?
(még 900 mappa, 1900 db táblája áll előttem...)+bónusz: nem újraírni a meglévő cella tartalmát, hanem hozzáfűzni lehet?
-
[w]
őstag
válasz
Delila_1
#46871
üzenetére
rendesen? rendesen az eredeti kódban volt, gondoltam nem terhelem feleslegesen a motort:
Sub xx()
Dim sMappa As String
Dim s As String
Dim wb As Workbook
sMappa = "C:\Dokumentumok\___TEMP\"
s = Dir(sMappa & "*.xls*")
Do While s <> ""
Set wb = Workbooks.Open(sMappa & s)
If IsEmpty(wb.Worksheets("Ellenőrzendő").Range("B25")) Then
wb.Worksheets("Ellenőrzendő").Range("B25") = "Készítő neve"
wb.Save
End If
wb.Close
s = Dir
Loop
End Sub -
-
[w]
őstag
válasz
Pakliman
#46601
üzenetére
köszi, próbálkozom...
mi az ellenőrzendő, a lapfül neve?most így hirtelen "subscript out of range"ok, elírás volt a lapfül nevében...
annyiban bonyolult a helyzet, hogy az egyes munkafüzetek saját, külön könyvtárakban vannak legyűjtve, tehát nem egy mappából kell őket megnyitni (sMappa), hanem rengetegből
ezzel így megoldható?
-
[w]
őstag
olyat lehet csinálni, hogy ha sok (több száz) munkafüzetben kitöltetlen maradt ugyanaz az 1 cella (pl. végéről a készítő neve), akkor azt valamiféle automatizálással kitölteni, majd elmenteni, bezárni és jöhet a következő?
-
[w]
őstag
segítséget szeretnék kérni annak megoldásához, hogy szűrő használata esetén ne szűrje ki a tábla legalján található összesen sort is
nem tudom mi okozza, de van erre megoldás?
-
[w]
őstag
ok, rájöttem mi volt a gond, de most egy másik adódott...
a B-C oszlop dátumai ugyanis úgy keletkeznek, hogy máshonnan a 2017.01.01-2017.01.31 formában beírt időszakot BAL és JOBB függvénnyel bontom kezdete és végére, de így nem dátumként érzékeli
ha a bontott értékek szerkesztésekor az érték végén nyomok egy del-t és utána enter, akkor azonnal dátumformátumra állítja és a MIN-MAX képletek is jól lefutnakcsakhogy 6000 soron nem tudom ezt az értékkorrekciót végigcsinálni kézzel
Új hozzászólás Aktív témák
- CES 2026: A tévékben is okosabb lesz a Gemini
- Gaming notebook topik
- Elemlámpa, zseblámpa
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Honor Magic5 Pro - kamerák bűvöletében
- Milyen TV-t vegyek?
- Elfelejtettem a film címét
- Huawei Watch GT 6 és GT 6 Pro duplateszt
- PlayStation 5
- Energiaital topic
- További aktív témák...
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Antivírus szoftverek, VPN
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem, Most Újévi áron! :)
- Humble szökevények 500-2500Ft
- BESZÁMÍTÁS! ASROCK H510M i5 11400F 16GB DDR4 1TB SSD RX 7600 8GB Zalman S2 TG Cooler Master 650W
- BESZÁMÍTÁS! Asus VG27AQL3A 27 180Hz IPS QHD 1ms monitor garanciával hibátlan működéssel
- Utángyártott 90W töltő 7,4x5.0mm
- Bomba ár! Lenovo ThinkPad L480 - i5-8GEN I 8GB I 256SSD I 14" FHD I HDMI I Cam I W11 I Gari!
- GYÖNYÖRŰ iPhone 14 Pro 128GB Space Black-1 ÉV GARANCIA - Kártyafüggetlen, MS3781
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Laptopszaki Kft.
Város: Budapest
(még 900 mappa, 1900 db táblája áll előttem...)



Fferi50
