- Redmi Note 12 Pro - nem tolták túl
- Ennyibe kerülnek a Huawei Pura modellek Európában
- MIUI / HyperOS topik
- Android alkalmazások - szoftver kibeszélő topik
- Xiaomi Mi 11 Ultra - Circus Maximus
- Nemzetközi piacra érkezik az Amazfit Helio Ring
- Apple Watch Sport - ez is csak egy okosóra
- Google Pixel 6/7/8 topik
- OnePlus 7 - magabiztos folytatás
- Új Beats fej- és fülhallgatók jelentek meg
Hirdetés
-
Ennyibe kerülnek a Huawei Pura modellek Európában
ma Megérkezett az újrabrandelt Pura széria, kivéve a Pura 70 Pro+-t, mert az marad Kínában.
-
Jövő hónapban érkezik Apple eszközökre az Assassin's Creed: Mirage
gp Az előzetes információk szerint a játék első 90 perce ingyen elérhető lesz bárki számára, a teljes verzióért természetesen fizetni kell.
-
Csatába küldte Magyarországon idei csúcs hangprojektoros szettjét a Samsung
ph A HW-Q990D/EN 11.1.4 csatornás, külön mélynyomóval megtámogatott termék.
-
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
A D:\valami\ könyvtárban található *.xls fájlokat nyitja meg, és az indító füzet (ebbe írd be a makrót) lapjai mögé másolja a behívott fájlok aktuális lapját, végül az indító fájlt lementi az eredeti helyére. Ez a fájl NE legyen azonos könyvtárban a behívandókkal.
Sub Osszevon()
Const utvonal = "D:\valami\"
Dim FN As String, WBN As String, lsz As Integer
Application.DisplayAlerts = False
WBN = ActiveWorkbook.Name
ChDir utvonal
FN = Dir(utvonal & "*.xls", vbNormal)
Do
lsz = Sheets.Count
If FN <> "." And FN <> ".." Then
Workbooks.Open Filename:=FN
ActiveSheet.Copy After:=Workbooks(WBN).Sheets(lsz)
Windows(FN).Activate
ActiveWindow.Close 'bezárás
End If
FN = Dir()
Loop Until FN = ""
ActiveWorkbook.Save
Application.DisplayAlerts = True
End SubProgramozó: 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 marchello1 #14797 üzenetére
Nézd meg a linken a cellák formátumát is.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
lappy
őstag
Erre valakinek vmi ötlete?
[link]Bámulatos hol tart már a tudomány!
-
veterán
sziasztok!
két excel táblában keresem a duplikációkat. ha egymás alá másolom őket, akkor conditional formattin-gal a nagy részét meg is találja. viszont az egyik táblázatom ékezetes, a másik pedig ékezet nélküli, ezért néhány duplázódott elem kimarad, aminek a nevében ékezet van. hogyan lehet megoldani, beállítani, hogy ezeket is kiszűrje? köszönöm!"a jövötsajnos nemlehet tudni csakhamárotvagy deakormegmár azajelen"
-
dellfanboy
senior tag
Van két cellám a1-ben Nok500 szerepel b1-ben ennek a nok500-nak x ft-os ára míg z43-ban Nokai 500/sl szerepel . Egy olyan fv-t keresek ami.
Ahol a b1-ben lévő árat z 43 mellé tudnám tenni.eladó dolgok:mondd az árát és vidd http://hardverapro.hu/tag/dellfanboy#aprohirdetesei
-
lappy
őstag
válasz dellfanboy #14812 üzenetére
Szia!
Ha csak az ár kell mellé egy cellába akkor =b1!Bámulatos hol tart már a tudomány!
-
dellfanboy
senior tag
-
veterán
válasz dellfanboy #14814 üzenetére
akkor szerintem fkeres fv. kell neked.
"a jövötsajnos nemlehet tudni csakhamárotvagy deakormegmár azajelen"
-
Delila_1
Topikgazda
válasz marchello1 #14810 üzenetére
Megcsináltam az első 6 lapot. A technika:
- nyomva tartott Ctrl mellett a 06-os lapfület jobbra húzod
- felengeded az egér, gombját, majd a Ctrl billentyűt
- átnevezed a lapot 07-re
- a C5 cellában a 05-ös füzetre való hivatkozást átírod 06-ra.Jöhet a következő lap.
Jövőre 1 adatot kell átírni a 01-es lapon a C5-ös cellában, ott is csak az évszámot.
Nem olyan nagy munka!Szerk.: egyszerre több kijelölt lapot is másolhatsz, de úgy könnyebb eltéveszteni.
[ 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 #45553408 #14816 üzenetére
Az A oszlopba másolod a neveket, B-be a számokat. A C2 képlete (címsort feltételezve)
=A2 & " " & B2 (szóköz van a két idézőjel között).
Ezt lemásolod az adataid utolsó soráig.
D2-be: =darabteli(B:B,A2), ezt is másold le. Minden sorban megmutatja, hogy az adott előadó ezzel a számával hányszor szerepel a listában. Ha 5-ször, akkor mind az 5 helyen kiírja.[ 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
Így más a leányzó fekvése.
Sub Osszevon()
Const utvonal = "D:\valami\"
Dim FN As String, WB As Workbook, lsz As Integer
Application.DisplayAlerts = False
Set WB = ActiveWorkbook
ChDir utvonal
FN = Dir(utvonal & "*.xls", vbNormal)
Do
If FN <> "." And FN <> ".." Then
Workbooks.Open Filename:=FN
lsz = Sheets.Count
WB.Activate
ActiveSheet.Copy After:=Workbooks(FN).Sheets(lsz)
ActiveWorkbook.Save
ActiveWindow.Close
End If
FN = Dir()
Loop Until FN = ""
Application.DisplayAlerts = True
End SubProgramozó: 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 #45553408 #14821 üzenetére
Rosszul adtam meg a képletet, bocsi. Kárpótlásul mellékelek egy képet, amin 2 féle módon jelenítem meg a darabszámot. A C oszlopba jön az összefűzős képlet, a D és E erre hivatkozik.
D2: =DARABTELI(C:C;C2)
E2: =DARABTELI(C$2:C2;C2)Látod a különbséget, hogy a D oszlopban minden előfordulás mellé kiírja az összes előfordulás darabszámát, az E oszlopban pedig sorszámozza az előfordulásokat. Ezt a $ jellel lehet elérni.
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 dellfanboy #14814 üzenetére
Ezt így nem tudod megoldani. Honnan tudja a gép, hogy a NOK és a Nokia azonos termékre vonatkozik?
Neked kell gondoskodnod arról, hogy jó adatokat vigyél be, akkor segít a gép.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
lappy
őstag
Szia Delila_1!
Ebben tudnál nekem segíteni!
Az alábbi macrót kellene 2007 ben használnom, de nem vagyok toppon a macróban hogy hogyan tudom átalakítani.
A cél az hogy egy gombot megnyomva könyvtárból lehessen kiválasztani egy .xls kiterjesztésű fájlt és azt betölti majd a munkalapra.!
Ez a macro viszont csak 2003 ban megy az Application.FileSearch miatt.Private Sub UserForm_Initialize()
Dim KERES As Object
Dim FILEOK() As StringSet KERES = Application.FileSearch
KERES.LookIn = "C:\TRS\Munka"
KERES.Filename = "*.xls"
If KERES.Execute > 0 Then
DARABSZAM = KERES.FoundFiles.Count
ReDim FILEOK(DARABSZAM)
For I = 1 To DARABSZAM
FILEOK(I) = KERES.FoundFiles(I)
Next I
File_lista.List = FILEOK
End IfFile_lista.SetFocus
End Sub
Bámulatos hol tart már a tudomány!
-
Traxx
őstag
Sziasztok!
Újból szeretnék egy kis segítséget kérni. Van 2 táblázatom, az egyiken kb. 70, a másikon kb. 40 munkalappal. A munkalapok azonos felépítésűek, de teljesen más a tartalmuk. Mindegyik munkalap 2 oldal nyomtatva, és itt van a probléma: az egyik oldal álló lenne, a másik fekvő helyzetű, legalábbis a felépítésük miatt így férnének rá a papírra. Hogyan tudnám ezt megoldani, hogy ne kelljen mindig átállítani az oldalbeállítást az első oldal után? Magyarán rámennék egy munkalapra, és kinyomtatná, az elsőt álló helyzetben, a másodikat fektetve...word-nél OK, hogy szakasztöréssel, de itt (2003-as excelem van) nem találtam ilyet.
Köszönöm a segítséget
"Amúgy a lekvár leszedésre jobb módszer is van: le kell nyalni... elképzelem, ahogy egy nagy PH!-s procitesztben fLeSsék nyalogatják a procikat" by Male (Hűtőpaszta vs. lekvár 2. rész)
-
-
Delila_1
Topikgazda
A fájlok nevét az aktuális lap A oszlopába vittem fel, innen veszi a FileLista névre hallgató ListBox az adatokat. A kigyűjtést a CommandButton1 gombra bíztam.
Private Sub CommandButton1_Click()
Const utvonal = "E:\Eadat\" 'Írd át az útvonalat!
Dim FN As String, sor%
ChDir utvonal
FN = Dir(utvonal & "*.xls", vbNormal)
sor% = 1
Do
If FN <> "." And FN <> ".." Then
Cells(sor%, "A") = FN
sor% = sor% + 1
End If
FN = Dir()
Loop Until FN = ""
Set Rng = Range("A1")
Set Rng = Range(Rng, Rng.End(xlDown))
Me.FileLista.List = Rng.Value
FileLista.SetFocus
End SubProgramozó: 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
A Dim sorba írd be az Rng-t is, As Range.
Újra kellett telepítenem a gépet, és még nem vittem be a kötelező deklarációt (Option Explicit). Most, hogy észrevettem, beviszem.
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 marchello1 #14834 üzenetére
Gondoltam, hogy nem ismered, azért ijedtél meg a feladat "nagyságától".
Szívesen.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Gandalf80
csendes tag
Sziasztok!
Mi a megoldása a következőnek
Van egy Excelem (Posta oldaláról).
Azt szeretném, ha a felhasználó beír egy irányítószámot, akkor csak a kerülethez tartozó utcanevek szerepeljen a mellette lévő legördülő listában, a többi pesti utcanév ne szerepeljen.
Azért szeretném, hogy ne kelljen fél óráig görgetni a listát[ Szerkesztve ]
"Az élet pókerjátszmájában a nőket elviszi a bank." http://mikrolimitpoker.blog.hu
-
Delila_1
Topikgazda
válasz Gandalf80 #14837 üzenetére
Egy lap első sorába felviszed a kerületeket. Mindegyik alá az ott található utcákat beírod.
Kijelölöd a tartományt az utolsó sorig. Képletek | Definiált nevek | Kijelölésből új. A párbeszéd ablakban a 'Felső sorból' mellett maradjon pipa, OK. Kaptál 23 névvel ellátott tartományt.Az első érvényesítés lista forrása A1:W1. Legyen pl. ez a másik lap A1 cellájában. A B1 is érvényesítés lesz, szintén lista. Ennél a forrás: =INDIREKT(A1)
Szerk.: figyelmesebben olvasva a kérdésedet nem az egyes kerületek, hanem az irányítószámok szerinti utcákat akarod listázni. A felső sorba az irányítószámokat írd, de itt cselezni kell, mert nem szereti névadásnál a számokat. Mindegyik elé tegyél egy alsó kötjelet, pl. _1027.
[ 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.
-
Gandalf80
csendes tag
válasz Delila_1 #14838 üzenetére
Szia!
Az első kérdés, ez működni fog 2003-as Excelben is? A munkahelyen szeretnék egy olyan Excel-sablont szerkeszteni, amely a szerződések rögzítését könnyítené meg.
Az elejét értem. A továbbit részletesebben kellene leírnod, mert ott már nem tiszta teljesen.
Az irányítószámokkal nem tudok cselezni, mert arra szükségünk van a kísérőlevél megírásához. DE mi van, ha egy cellába egy függvénnyel az irányítószámból adjuk meg a kerületet, és ezt használja tovább a program a legördülő listához.
Melyik függvényt lehetne használni?És így mennénk tovább.
"Az élet pókerjátszmájában a nőket elviszi a bank." http://mikrolimitpoker.blog.hu
-
Delila_1
Topikgazda
válasz #05304832 #14839 üzenetére
Megoldható, csak egy kicsit macerás. Egy üres oszlopban össze kell fűznöd az A2:K2 tartomány adatait, célszerűen 1-1 szóközzel közöttük. Legyen ez az L oszlop. Ezt lemásolod a 226. sorig. Eszerint rendezed a teljes tartományt, utána a DARABTELI függvény megadja a darabszámot az M oszlopban.
Az egyszeri összefűzés kicsit türelemjáték.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
-
lappy
őstag
válasz Delila_1 #14831 üzenetére
Szia!
Köszönöm hogy segíteni próbálsz, de nem értem mit is kellene csinálnom!
Az értem, hogy egy gombhoz kell azt a macrot rendelni amit írtál!
De ezt nem értem "A fájlok nevét az aktuális lap A oszlopába vittem fel"
A Dim sor kiegészítést azt értem!Bámulatos hol tart már a tudomány!
-
lappy
őstag
Új hozzászólás Aktív témák
- Napelem
- A legtöbb amerikai szerint a TikTok egy őket befolyásoló eszköz
- Az USA vizsgálja a RISC-V kínai terjedésének kockázatát
- Milyen TV-t vegyek?
- Redmi Note 12 Pro - nem tolták túl
- Futás, futópályák
- Mini-ITX
- Ennyibe kerülnek a Huawei Pura modellek Európában
- Raspberry Pi
- Fujifilm X
- További aktív témák...
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Bitdefender Total Security 3év/3eszköz! - "Tökéletes védelem most kedvező áron..."
- Warhammer Online - Age of Reckoning (DE) Collectors Box (Figurával!)
- Vírusirtó, Antivirus VPN kulcsok
- Steames kulcsok jó áron eladóak!