-
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
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
(még 900 mappa, 1900 db táblája áll előttem...)
Új hozzászólás Aktív témák
Fferi50- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Windows 10/11 Home/Pro , Office 2024 kulcsok
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Antivírus szoftverek, VPN
- magyar billentyűzet - 136 - Lenovo Legion Pro 7 (16IRX9H) - i9-14900HX, RTX 4080 - 4 ÉV GARANCIA!
- Új, Aktiválatlan, iPhone 15 (128 GB) (rendelhető)
- BESZÁMÍTÁS! Samsung S27D850T 27 75Hz PLS QHD 5ms monitor garanciával hibátlan működéssel
- Microsoft Surface Laptop 3 13.5" fekete i5-1035G7 16GB 512GB 1 év garancia
- LG 34GS95UE - 34" Ívelt OLED / QHD 2K / 240Hz & 0.03ms / 1300 Nits / NVIDIA G-Sync / AMD FreeSync
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Laptopszaki Kft.
Város: Budapest