- Bemutatkozott a Moto G32 4G
- Nothing Phone 2a - semmi nem drága
- Xiaomi 13T és 13T Pro - nincs tétlenkedés
- Poco X6 Pro - ötös alá
- Véroxigénszintet is mér a Honor Band 5
- Vodafone-ra áttért Digi Mobilosok
- Google szolgáltatás (GMS) Huawei telefonokra
- Alcor e-Pad - van még remény
- Ennyibe kerülnek a Huawei Pura modellek Európában
- Telekom mobilszolgáltatások
Hirdetés
-
Alacsony fogyasztású, 128 GB-os szervermemóriát kínál a Micron
ph Az új RDIMM TSV technológia alkalmazása nélkül éri el a címben említett tárkapacitást.
-
Mindent megtudtunk az új Nokia 3210-ről
ma Részletes képek, specifikációk és euróban megadott ár is van a legendás modell újraélesztett verziójához.
-
Toyota Corolla Touring Sport 2.0 teszt és az autóipar
lo Némi autóipari kitekintés után egy középkategóriás autót mutatok be, ami az észszerűség műhelyében készül.
-
Mobilarena
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
-
Delila_1
Topikgazda
válasz Apollo17hu #22300 üzenetére
Képek, rajzelemek?
Egy új füzetbe minden lapnak csak azt a részét másold át, amelyik adatokat tartalmaz, és úgy nézd meg a méretet.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Apollo17hu
őstag
-
Delila_1
Topikgazda
válasz Apollo17hu #22302 üzenetére
A képletekre nyilván szükséged van. Azt teheted meg, hogy azokat a képleteket, amik már megadták az eredményt, felülírod az értékükkel (másolás, irányított beillesztés). Csak néhány utolsó sorban maradjanak meg a képletek, hogy az adatsorok bővülésekor legyen mit másolni.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
bepken
veterán
szűréskor hogyan tudok a leggyorsabban intervallumra keresni? (pl.: adott oszlopban 100 és 150 között értékre)
╔═══════ "Csak egy visszatérés létezik és az nem a királyé...hanem a JEDIÉ!" ═════╗ ╚════════════════ Xiaomi Mi A1 ═════ Huawei Nova 5T ═════════════╝
-
DasBoot
aktív tag
Sziasztok! Szeretném megjeleníteni a "Fejlesztőeszközök" szalagot. Az Active-X vezérlőkre volna szükségem. Hogyan tudom ezt megtenni? Köszönöm a válaszokat. Üdv.: Yoe
LEGO-ból bármit megépíteni, csak idő kérdése.
-
DasBoot
aktív tag
-
DasBoot
aktív tag
válasz Apollo17hu #22309 üzenetére
Akkor nem kell válaszolni. Pffff. Gondolom, hogy egy normális kérdésre, nem ez a felelet. Szóismétlés. Erre a hozzászólásra nem szükséges válaszolni.
[ Szerkesztve ]
LEGO-ból bármit megépíteni, csak idő kérdése.
-
slashing
senior tag
válasz bepken #22304 üzenetére
excel 2013-ban van olyan hogy adatok/szűrők
ha ez megvan akkor az adott oszlopnál van olyan hogy számszűrők/két érték között
(#22305) DasBoot
szintén 2013-ban beállítások menüszalag testreszabása a jobb oldali oszlopban(fő lapok) Fejlesztőeszközök elé Pipa...
[ Szerkesztve ]
-
bepken
veterán
válasz slashing #22311 üzenetére
áháá megvan! köszi szépen
az volt a gond, hogy az oszlop, ahol ezt meg akartam csinálni, szöveget is tartalmazott, (gondolom) ezért csak a szövegszűrő jött fel.
╔═══════ "Csak egy visszatérés létezik és az nem a királyé...hanem a JEDIÉ!" ═════╗ ╚════════════════ Xiaomi Mi A1 ═════ Huawei Nova 5T ═════════════╝
-
gaben86
csendes tag
Sziasztok!
Segítségeteket szeretném kérni.
Excellel szerkesztett kérdőívben vannak bármilyen értékkel kitölthető cellák és legördülő választéklistát tartalmazó cellák.
A kitöltők számára szeretném kötelezően kitöltendővé tenni a cellákat.
A bármilyen értékkel tölthető cellák esetében egy régebbi fórumban találtam egy makrót ami nagyon jól működik, viszont a legördülő választéklistás cellák esetében ez nem működik.A kérdésem az lenne, hogy a legördülő választéklistát tartalmazó cellák kötelezővé tételére létezik valami megoldás?
Előre is köszönöm!
Üdv.
Gaben -
gaben86
csendes tag
lappy
Így remekül működik, thx.
-
gaben86
csendes tag
Ez csak természetes
2 variáció van, vagy mentés előtt reklamál, vagy a munkafüzet bezárása előtt:Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Cells(1, 1).Value = "" Then
MsgBox ("Mentés elott az A1 cellát ki kell tölteni.")
Cancel = True
End If
End SubPrivate Sub Workbook_BeforeClose(Cancel As Boolean)
If Cells(1, 1).Value = "" Then
MsgBox ("Kilépés elõtt az A1 cellát ki kell tölteni.")
Cancel = True
End If
End SubHa esetleg abban tudnál(tok) még segíteni, hogy lehet azt beállítani, hogy nekem ne kelljen kitölteni, üresen el tudjam menteni?
Mert a makró használatával nekem is előírja a cellák kitöltését. -
gaben86
csendes tag
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Cells(1, 1).Value = "" Then
MsgBox ("Mentés elott az A1 cellát ki kell tölteni.")
Cancel = True
End If
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Cells(1, 1).Value = "" Then
MsgBox ("Kilépés elõtt az A1 cellát ki kell tölteni.")
Cancel = True
End If
End Sub[ Szerkesztve ]
-
Apollo17hu
őstag
válasz DasBoot #22310 üzenetére
De válaszolok, nehogy legközelebb is miattam puffogj. A "Magyarul?" nálam meg sem közelíti a normális kategóriát.
Légy szíves? Vagy: megtennéd, hogy magyarul is leírod? Számos lehetőség van, én úgy válaszoltam, ahogy a kérdésed feltetted.Azon meg konkrétan beszarok, hogy még arra is vetted a fáradságot - ahelyett, hogy ideiglenesen angolra állítottad volna az Excel-ed -, hogy privát üzenetben személyeskedj.
-
madrol
csendes tag
Sziasztok! Egy kis segítséget szeretnék kérni.
Milyen függvénnyel tudom megoldani azt, hogy egy cella tartalma betű és szám meg kötőjel, vegyesen, és csak szám legyen?PL:
14805301FR
202590-8100023
33S13730110tehát össze vissza.
Köszi előre is!
MaDRoL -
madrol
csendes tag
-
Delila_1
Topikgazda
válasz madrol #22322 üzenetére
Írtam rá egy függvényt, a neve CsakSzam.
Ha az adatod az A1 cellában van, akkor az =csakszam(A1) függvény megoldja a problémádat.
Function CsakSzam(adat As String)
Dim b As Integer
For b = 1 To Len(adat)
If Mid(adat, b, 1) Like "[0-9]" Then _
CsakSzam = CsakSzam & Mid(adat, b, 1)
Next
CsakSzam = CsakSzam * 1
End FunctionProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz madrol #22328 üzenetére
A 2013-as Excel a Lappy által belinkelt oldal szerint alapból ad megoldást.
Ha alacsonyabb verziót használsz, alkalmazhatod az idézett oldal makróját, vagy ha megadod, hogy melyik oszlopban, honnan kezdve vannak az adataid, én is megírhatom a makrót, ami függvények nélkül írja be az eredményt (hova? esetleg a vegyesen használt számok és betűk eredeti helyére?).
[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz madrol #22330 üzenetére
Azzal csak annyi a baj, hogy bent maradnak a képletek (erőmű), hacsak nem írod felül őket egy irányított beillesztéssel.
Azért megírtam a makrót, az A oszlopban lévő vegyes adatokat írja felül. 16000 sorral 1 mp alatt végez.Sub CsakSzam()
Dim sor As Long, usor As Long, b As Integer
Dim adat As String, szoveg As String
Application.ScreenUpdating = False
usor = Range("A" & Rows.Count).End(xlUp).Row
For sor = 1 To usor
szoveg = ""
adat = Cells(sor, "A")
For b = 1 To Len(adat)
If Mid(adat, b, 1) Like "[0-9]" Then _
szoveg = szoveg & Mid(adat, b, 1)
Next
Cells(sor, "A") = szoveg * 1 '*****************
Next
Application.ScreenUpdating = True
End SubA csillaggal jelzett sort Cells(sor, "B") = szoveg * 1-re átírva a B oszlopba írja a kigyomlált részt.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
madrol
csendes tag
válasz Delila_1 #22331 üzenetére
ez nekem valamiért hibát dob, gondolom azért, mert amit tisztítani kell adat az egy másik munkalapról átvett adat.
De a másik makró így is kitisztította, igaz a laptop elkezdett emelkedni az asztalon, a klímát 14 fokra kellett kapcsolni, de megcsinálta. Naponta egyszer kibírja
-
madrol
csendes tag
válasz madrol #22332 üzenetére
igazából lehet, hogy valaki tudna jobb tippet adni arra, amivel szenvedek.
Termék ID-t kellene létrehoznom, cikkszám alapján.
Minden termékből több sor van, és valahogy be kellene számoznom őket.Igazából már a cikkszám verzióról kezdek letenni, mert valamiért most a 350 termékből csak 160-at importált be a webshop, valószínűleg nem tetszik neki hogy túl hosszúak a számok.
Ha lerövidítem, akkor meg egyezések lehetnek, és na mind1...Valaki tud arra megoldást ajánlani, hogy be sorszámozzam úgy a táblázatot, hogy több sorszám is megegyezik?
Köszi előre is
MaDRoL
-
Delila_1
Topikgazda
válasz madrol #22332 üzenetére
A lenti sor elé be kell írnod annak a lapnak a nevét, ahova írjon.
Cells(sor, "A") = szoveg * 1
helyett
Sheets("Ideírjon").Cells(sor, "A") = szoveg * 1
Ehhez maradhat a 35°C a helyiségben.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Brutis
újonc
Sziasztok!
Nekem olyan problémám lenne, hogy ndb *.xls fájlt kellene beolvasnom egy mappából, a fájlokban szereplő munkalapokon(ezek változóak 2-20 között) táblázatoknak meghatározott részeit kellene átmásolni egy nagy táblázatba úgy ,hogy a munkalapok nevei az A oszlopba kerüljenek a meghatározott adatok pedig ugyanabba a sorba , szintén az előre lefixált helyükre.
Ha valakinek van ötlete azt nagy örömmel fogadom.
A segítséget előre is köszönömA beolvasást eddig kétféleképpen próbáltam de nem igazán kristályosodott még ki.
Sub talloz()'mappa ki tallózása
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
If .Show = -1 ThenFile_name = .SelectedItems(1)
End If
End With' Call main(File_name)
End Sub
2. próbálkozás:
Sub megnyitás() ' tallózás
Dim fileName As String
fileName = Application.GetOpenFilename("Comma Separated Values (*.xls),*.xls")
If fileName <> "False" Then
Workbooks.Open fileName, Format:=2
End If
End Sub -
gaben86
csendes tag
Sziasztok!
Segítségeteket szeretném kérni, hogy lehet azt megoldani, az alábbi auto load makró esetén:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Cells(1, 1).Value = "" Then
MsgBox ("Kilépés elõtt az A1 cellát ki kell tölteni.")
Cancel = True
End If
End Subhogy én üresen tudjam bezárni az adott munkafüzetet, anélkül hogy a hivatkozott cellát ki kellene töltenem, viszont akinek elküldöm kitöltésre, annak kötelező legyen az adott cella kitöltése.
Előre is köszönöm!
Gaben
[ Szerkesztve ]
-
Delila_1
Topikgazda
válasz gaben86 #22336 üzenetére
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Application.UserName <> "gaben86" Then
If Cells(1, 1).Value = "" Then
MsgBox ("Kilépés elott az A1 cellát ki kell tölteni.")
Cancel = True
End If
End If
End SubA gaben86 helyett a saját felhasználói nevedet írd be.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Louro
őstag
Sziasztok!
Az előző timeline-os kérdésem most implementálnám az egyik táblámba, de ott elhasaltam, hogy a dátumokat egy formátumra hoznám. (Az ok: Rengeteg forrás van )
Ha a dátumot konkatenálva rakom össze (concatenate(year(A1);".";month(A1);".";day(A1)) ), akkor a dátum formátuma március 1-e esetén: 2014.3.1 . Ha a timeline vízszintes tengelyén dátumokat rakok be, akkor a formátum mindig 2014.03.01 lesz. A megjelenítést át tudnám állítani, hogy 2014.3.1-et írjon, de a mögöttes tartalom 2014.03.01 . Próbáltam azt is, hogy a dátumokat is konkatenálom ugyanígy. Akkor talán egyforma lesz, de akkor egy olyan extrém esetbe bonyolódtam, hogy a 2014.3.2 > 2014.3.10 . Olyan, mintha nem dátumként kezelné.Esetleg javaslat, ötlet? Most még a TEXT függvénnyel megnézem, de kis reményt látok.
Mess with the best / Die like the rest
-
Brutis
újonc
Más szemszögből és újult erővel.
Egyszerűsödött a feladat:Adott mappából beolvassuk a fájlokat:
Sub talloz()'mappa ki tallózása
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
If .Show = -1 ThenFile_name = .SelectedItems(1)
End If
End With'Call main(File_name)
End Sub
és ezután szeretném én azt a segítséget kérni ,hogy
egy olyan for ciklus kellene amivel a beolvasott fájlokból az összes munkafüzet munkalapját át tudjam másolni abba a munkafüzetbe amiből meghívtam a makrót. -
gaben86
csendes tag
-
Delila_1
Topikgazda
-
Brutis
újonc
válasz Brutis #22340 üzenetére
Ennyire jutottam , de még mindig hibás.
És sajnos nem boldogulok vele
Sub talloz()'mappa ki tallózása
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
If .Show = -1 ThenFile_name = .SelectedItems(1)
End If
End WithCall main(File_name)
End Sub
Sub main(File_name)
'ForReading Megnyitás csak olvasásra 1
'ForWriting 'Megnyitás csak írásra 2
'ForAppending Megnyitás, hogy a fájl végére való íráshoz 8Set fso = CreateObject("Scripting.FileSystemObject")
Set Könyvtár = fso.GetFolder(File_name)
Set Fájlok = Könyvtár.FilesSet munka = Workbooks()
'a mappában lévő fájlok bejárása
For Each Fájl In Fájlok
'akt beállítás és megnyitás
Set akt = Workbooks.Open(fileName:=Fájl)munka.Worksheets.Add.Name = akt.Worksheets(i).Name
For i = 1 To munka.Worksheets.Countakt.Name ("Aktuális")
akt.Worksheets(i).Range("A1:L43").Copy Destination:=munka.Worksheets().Rows(1).Columns("a")
'For i = 1 To munka.Worksheets.Count
'akt.name a munkafüzet neve akt.worksheets(i).name munkalap neve
Next i
'akt. bezárásakt.Close
Next Fájl
'Call vege
End Sub
-
Delila_1
Topikgazda
válasz Brutis #22345 üzenetére
Szükség van az Application.FileDialog-ra, Nem mindig azonos könyvtárból hívod be a fájlokat? Mi a könyvtár útvonala?
Minden füzet összes lapjáról az A1:L43 tartományt kell bemásolnod? Vannak a másolandóban képletek? Azokkal együtt kell másolni, vagy az értéküket?
A gyűjtő füzetben az egyes tartományok egymás alá kerüljenek? Egy előző hsz-ben azt írtad, hogy a munkalapok nevei az A oszlopban legyenek. Ebből az következik, hogy a bemásolt tartományok a B-ben kezdődjenek.
Ha a sok kérdésre válaszolsz, holnap összehozom, feltéve, hogy valaki közben meg nem oldja.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
madrol
csendes tag
válasz Delila_1 #22348 üzenetére
Bocsi, hogy csak most reagálok, de elfogyott itthon az internet...
Itt az egész xls, nincs benne semmi hadititok
Annyi a lényeg, hogy az export lapon az első oszlopba kellene beszámozni a termékeket, aztán kiexportálom csv-be.
Azért van így megoldva, hogy csak az első lapon kelljen cserélgetnem a tartalmat, és tudjak exportálni.
A második lap az egy kellékes, ott elég sok függvény van együtt...Előre is köszönök szépen minden értékes információt
-
botond187
csendes tag
Új hozzászólás Aktív témák
- Érkezik Magyarországa az LG szuper dizájnos hordozható projektora
- World of Tanks - MMO
- Otthoni hálózat és internet megosztás
- Ukrajnai háború
- Stellar Blade
- AMD off topik: VGA, CPU, APU és minden, ami AMD
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Így építsd a billentyűzeted!
- Linux felhasználók OFF topikja
- Bemutatkozott a Moto G32 4G
- További aktív témák...
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Bontatlan - BATTLEFIELD 1 Collectors Edition - Játékszoftver nélkül
- Eladó Steam kulcsok kedvező áron!
- Adobe Creative Cloud - 2024. 04. 05 - 2025. 04. 05-ig
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Promenade Publishing House Kft.
Város: Budapest