Hirdetés
- sziku69: Fűzzük össze a szavakat :)
- Luck Dragon: Asszociációs játék. :)
- Brogyi: CTEK akkumulátor töltő és másolatai
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- bb0t: Ikea PAX gardrób és a pokol logisztikája
- GoodSpeed: A RAM-válság és annak lehetséges hatásai
- bambano: Bambanő háza tája
- sziku69: Szólánc.
- potyautas: A Magyar Néphadsereg emlékére
-
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
-
[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
- Telefon felvásárlás!! iPhone 14/iPhone 14 Plus/iPhone 14 Pro/iPhone 14 Pro Max
- Samsung Galaxy A32 5G 128GB, Kártyafüggetlen, 1 Év Garanciával
- BESZÁMÍTÁS! MSI B450 R5 5600X 32GB DDR4 512GB SSD RTX 3080 10GB RAMPAGE Shiva Cooler Master 750W
- ÁRGARANCIA!Épített KomPhone Ryzen 5 7500F 32/64GB DDR5 RTX 5060 8GB GAMER PC termékbeszámítással
- BESZÁMÍTÁS! ASRock B450 R5 5500 16GB DDR4 250GB SSD 1TB HDD GTX 1050Ti 4GB GameMax STORM ADATA 600W
Állásajánlatok
Cég: ATW Internet Kft.
Város: Budapest
Cég: BroadBit Hungary Kft.
Város: Budakeszi
(még 900 mappa, 1900 db táblája áll előttem...)



Fferi50
