-
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
-
Delila_1
Topikgazda
válasz repvez #16569 üzenetére
Használd a speciális rendezést más helyre. A kritérium táblában (nálam a W1:W2) add meg a feltételt a D oszlopra. Az új táblához add meg az oszlopok címsorát, amik a képletedben szerepelnek (Y1:AD1). Indítsd a speciális szűrést, ahogy a képen látod.
A következő oszlopba (AE) vidd be a képletet, és rendezd a tartományt az új oszlop szerint.
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
-
Delila_1
Topikgazda
válasz repvez #16573 üzenetére
Az Y-nal kezdődő oszlopodba másold be az A1:T1 tartományt, vagyis az összes címsorodat, és a speciális szűrés párbeszédablakában erre az új tartományra hivatkozz (Y1:AR1).
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
-
Delila_1
Topikgazda
válasz nimmy001 #16592 üzenetére
Ha a célfájlban több a hely, az nem gond, fordítva az lenne.
A forrásfájlban jelöld ki a másolandó tartományt, Ctrl+c-vel másold, lépj át a célfájlba, a feltöltendő terület bal felső cellájára, és Ctrl+v-vel illesztd 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.
-
Delila_1
Topikgazda
válasz nimmy001 #16596 üzenetére
Az összevont cellák alatt jelöld ki a célfájlban a másolás helyét. Csináld meg egyszer billentyűzetről, és mikor sikerült összehoznod, indíts egy makrórögzítést, és csináld meg újra.
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 #16598 üzenetére
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 Roley_05 #16621 üzenetére
Nézd meg, mi jelenik meg a csatolt cellában!
Űrlapvezérlő esetében, ha az elsőre kattintasz, a csatolás 1 lesz, a másodikra kattintáskor ugyanaz a cella a 2-es értéket veszi fel. Ezzel már biztosan tudsz valamit kezdeni.
ActiveX-nél a csatolt cella értéke IGAZ, vagy HAMIS a választástól függően 2 db OptionButton -nál.
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
Munka1 lapnak nevezem azt, amelyiken az eredeti adataid vannak, Munka2-nek azt, amelyikre másolok.
A Munka1 Y1, Z1, és AA1 celláiba írom be (vagy választom ki érvényesítés segítségével) a 3 adatot.
A Munka2 lapra előre átmásoltam a címsort.Sub Makro()
Dim sor As Integer, usor As Integer, sor1 As Integer
Dim WS1 As Worksheet, WS2 As Worksheet
Dim a$, b$, c$
Set WS1 = Sheets("Munka1") 'Itt változtathatsz
Set WS2 = Sheets("Munka2") 'Itt változtathatsz
usor = WS1.Cells(Rows.Count, "A").End(xlUp).Row
sor1 = 2
a$ = WS1.Range("Y1")
b$ = WS1.Range("Z1")
c$ = WS1.Range("AA1")
'Előző adatok törlése a Munka2 lapon
WS2.Rows("2:5000").Delete shift:=xlUp
For sor = 2 To usor
If WS1.Cells(sor, "U") = a$ And WS1.Cells(sor, "V") = b$ And _
WS1.Cells(sor, "W") = c$ Then
Rows(sor).Copy WS2.Cells(sor1, "A")
sor1 = sor1 + 1
End If
Next
End SubKözben befutott egy másik megoldás is, de ha már megírtam, elküldöm.
[ 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
-
Delila_1
Topikgazda
Szívesen.
Excelbarátét is próbáld ki, az is működik, csak más elképzelés alapján. Ő inputboxban kéri be a keresendő adatokat, és új lapot kreál hozzá, nem az előző adatok helyére íratja az új kigyűjtést, mint én.
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 atillaahun #16638 üzenetére
Ha pl. az A oszlopban keresed, és címsor is van, a
=DARABTELI($A$2:A2;A2)
függvényt végig másolva mindegyik adatod mellett megjelenik, hányadik alkalommal szerepel az oszlopban.Ügyelj a $ jelekre!
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 atillaahun #16646 üzenetére
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.
-
Delila_1
Topikgazda
válasz Wasquez #16666 üzenetére
=SZUMHA(Január!Q2:Q29;"3254 DMU 125T";Január!V2:V29)
Ha a keresendő szöveg egy bizonyos cellában van, akkor a függvény 2. paraméterébe ennek a cellának a címét írhatod 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.
-
Delila_1
Topikgazda
-
Delila_1
Topikgazda
válasz pero19910606 #16677 üzenetére
A hétfői nap étrendjét átmásoltam az "Alap számok" lapon egy üres helyre.
A szerkesztőlécen látod a képletet, amit jobbra- és le kell másolnod.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 Wasquez #16678 üzenetére
A felső táblázatodhoz vegyél fel még egy oszlopot (C), ahol a 2; 14 és 15. sorba DMU-t írsz, a 3-ba CAD-ot, a 6-ba CAM-ot, és így tovább. Tehát ebben az oszlopban az a név szerepeljen minden tételnél, ahogy az alsó táblázatban akarod összesíteni a B oszlop értékeit.
Így már a =SZUMHA($C$2:$C$15;B20;$B$2:$B$15) képlet a C20-ba írva és lemásolva jó értékeket ad.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 pero19910606 #16677 üzenetére
Azt nem írtam, hogy az L1:R11 tartománynak a Táblázat nevet adtam. Innen veszi az FKERES függvény az értékeket.
Az előző képen a Csirkemell a G17 cellában van.[ 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 Wasquez #16686 üzenetére
A D2 cella tartalma "DMU".
A "*" & D2 & "*" azt keresi az A oszlopban, ami tartalmazza a DMU szövegrészt. A csillag egy helyettesítő karakter. Jelen esetben azokat a cellákat találja meg, ahol mindegy, hogy a DMU szövegrész előtt-, vagy után van-e még más karakter. Ha a képletben csak "DMU" & "*" lenne, csakis a DMU-val kezdődőeket találná meg.
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 bozsozso #16711 üzenetére
Nézd meg itt a leírást.
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 Excelbarat #16715 üzenetére
Jó, hogy kérdezted. Eddig az emlékezetem szerinti címszót írtam be, de most kipróbáltam a opciók, részletes keresésnél a felhasználó szerinti szűrést.
Még gyorsabb a felhasználó, és a kifejezés együttes keresése.Köszi, hogy felhívtad rá a figyelmemet.
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 Excelbarat #16717 üzenetére
Több a füle, mint a foga.
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 m.zmrzlina #16755 üzenetére
A két OptionButton AfterUpdate eseményéhez kell kapcsolni a makrót, nem a kerethez, hiszen a beviteli textbox ezen belül van. A TextBox1 a "Hány db" textbox neve.
Private Sub OptionButton1_AfterUpdate()
If OptionButton2 = False Then
TextBox1.Enabled = True
Else
TextBox1.Enabled = False
End If
End Sub
Private Sub OptionButton2_AfterUpdate()
If OptionButton2 = True Then
TextBox1.Enabled = False
Else
TextBox1.Enabled = True
End If
End SubNem pontosan a kérdésedre válaszoltam, de az is fontos, hogy ha nincs kutyád, akkor nem adhatod meg a darabszámát.
Ennek a mintájára már le tudod tiltani a következő kérdésre történő válaszadást.[ 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 m.zmrzlina #16758 üzenetére
Remélem, a nevekből kitalálod, melyik mit takar.
A form indításánál a második blokk tagjainak az elérését letiltom, és csak akkor szabadítom fel, ha vagy nincs kutya, vagy van, és a darabszámot megadtad.Sub start()
UserForm1.VanM.Enabled = False
UserForm1.NincsM.Enabled = False
UserForm1.DbM.Enabled = False
UserForm1.Show False
End SubPrivate Sub Vankutya_AfterUpdate()
If VanKutya = True Then
DbKutya.Enabled = True
Else
DbKutya.Enabled = False
End If
End Sub
Private Sub NincsKutya_AfterUpdate()
If NincsKutya = True Then
DbKutya.Enabled = False
VanM.Enabled = True
NincsM.Enabled = True
DbM.Enabled = True
Else
DbKutya.Enabled = True
End If
End Sub
Private Sub DbKutya_AfterUpdate()
VanM.Enabled = True
NincsM.Enabled = True
DbM.Enabled = 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 m.zmrzlina #16757 üzenetére
A figyelmeztetést beírhatod egy labelbe is, szép pirossal, ahogy illik.
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 m.zmrzlina #16758 üzenetére
Kibővítettem arra az esetre, ha a felhasználó össze-vissza kattintgat. Megeshet, hogy először rákattint a nincskutyára – ezzel felszabadítja a macsekos részt –, utána rájön, hogy tegnap kapott egy ebet. Ekkor újra le kell tiltani a macskákat. A "Figy" egy címke, ide jön a figyelmeztetés.
A start marad, ahogy volt.
Private Sub Vankutya_AfterUpdate()
If VanKutya = True And DbKutya = "" Then
DbKutya.Enabled = True
VanM.Enabled = False
NincsM.Enabled = False
DbM.Enabled = False
Figy = "Írd be a darabszámot!"
Else
DbKutya.Enabled = False
Figy = ""
End If
End Sub
Private Sub NincsKutya_AfterUpdate()
If NincsKutya = True Then
DbKutya.Enabled = False
VanM.Enabled = True
NincsM.Enabled = True
DbM.Enabled = True
Figy = ""
Else
DbKutya.Enabled = True
Figy = "Írd be a darabszámot!"
End If
End Sub
Private Sub DbKutya_AfterUpdate()
If DbKutya > "" Then
VanM.Enabled = True
NincsM.Enabled = True
DbM.Enabled = True
Figy = ""
Else
VanM.Enabled = False
NincsM.Enabled = False
DbM.Enabled = False
Figy = "Írd be a darabszámot!"
End If
End Sub[ 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 m.zmrzlina #16762 üzenetére
Nagyon jó. nem ismertem. Köszi!
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 Bishop1 #16826 üzenetére
Kijelölöd az űrlapvezérlőt. A szálkereszttel megrajzolod. Ha álló téglalapot rajzolsz vele, függőleges elrendezésű lesz a léptető vagy a görgető sáv, fekvő téglalapnál vízszintes. Ennyi.
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 BenJoe80 #16831 üzenetére
A B1 cella képlete
=HA(A1=1;"EZ";HA(A1=2;"AZ";HA(A1=3;"AMAZ";"")))Hol vannak az összegzendő értékek? A SZUMHA függvénnyel tudod összegezni, a súgó megmondja, miként.
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 gurabli #16843 üzenetére
Ez egy tipikus Word körlevél funkció.
Wordben kell megrajzolnod a táblázatot, az lesz a körlevél. A hozzá tartozó adatokat tárolod az Excelben, egy-egy sorban a 3 másolandó adatot.
Egyszer kell összeállítanod, utána 1 kattintásra nyomja ki a sok táblázatodat.
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 atillaahun #16840 üzenetére
A darabteli függvény minden adatod mellé odaírja, hány db van belőle a kérdéses oszlopban. [=darabteli(A:A;A1)].
Erre az oszlopra teszel egy autoszűrőt, és kiszűröd az 1-nél nagyobbakat.Kijelölöd az összes látható sort, kitörlöd.
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 Excelbarat #16848 üzenetére
Szoktam én is jobb kézzel bal fület vakarni.
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 Bishop1 #16852 üzenetére
Az első kérdésre a makró:
Sub Gomb80_Kattintás()
Dim lap As Integer, szam, ujnev
Sheets(1).Select
lap = Worksheets.Count
If Left(Sheets(lap).Name, 10) = CDate(Date) And Len(Sheets(lap).Name) > 11 Then
szam = Right(Sheets(lap).Name, Len(Sheets(lap).Name) - 12)
ujnev = szam + 1
Sheets.Add After:=Sheets(lap)
ActiveSheet.Name = Date & "_" & ujnev
Else
Sheets.Add After:=Sheets(lap)
ActiveSheet.Name = Date & "_1"
End If
Sheets(1).Select
Range("A1").Select
Selection.CurrentRegion.Select
lap = Worksheets.Count
Selection.Copy Sheets(lap).Range("A1")
Sheets(lap).Select
Selection.AutoFilter
Columns("A:A").ColumnWidth = 24
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 Bishop1 #16852 üzenetére
Második kérdés. A Gyűjtő nevű lap C:D oszlopába gyűjti ki a 20-szal kezdődő nevű napok C1:D1 cellájának az adatait.
Sub C1D1()
Dim usor As Integer, lap As Integer
For lap = 1 To Worksheets.Count
If Left(Sheets(lap).Name, 2) = "20" Then
usor = Sheets("Gyűjtő").Cells(Rows.Count, "C").End(xlUp).Row + 1
Sheets(lap).Range("C1:D1").Copy Sheets("Gyűjtő").Range("C" & usor)
End If
Next
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.
Új hozzászólás Aktív témák
- Azonnali VGA-s kérdések órája
- Computex 2024: Itt az új ROG Ally
- Milyen TV-t vegyek?
- Autós topik látogatók beszélgetős, offolós topikja
- Mibe tegyem a megtakarításaimat?
- Hobby rádiós topik
- ASUS ROG PG32UCDM: OLED csúcsmonitor tesztje
- Multimédiás / PC-s hangfalszettek (2.0, 2.1, 5.1)
- Melyik tápegységet vegyem?
- Folyószámla, bankszámla, bankváltás, külföldi kártyahasználat
- További aktív témák...
- Windows 10/11 Home/Pro , Office OEM/Retail kulcsok
- Új, bontatlan World of Warcraft gyűjtői kiadások
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- Autómatricák a legjobb minőségben, több ezer minta! PH tagoknak 30% kedvezmény!
- Vírusirtó, Antivirus VPN kulcsok
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Alpha Laptopszerviz Kft.
Város: Pécs