- D1Rect: Nagy "hülyétkapokazapróktól" topik
- total90: SSD és HDD árak 2026-ban – most kell vásárolni, vagy várni 2028-ig?
- bambano: Bambanő háza tája
- Luck Dragon: Asszociációs játék. :)
- sziku69: Fűzzük össze a szavakat :)
- KISDUCK: Diétás kaja tipp
- kreténtehén: Első lengyel túra
- mefistofeles: Az elhízás nem akaratgyengeség!
- eBay-es kütyük kis pénzért
- gban: Ingyen kellene, de tegnapra
Új hozzászólás Aktív témák
-
Delila_1
veterán
El lehet kerülni a cellák összevonását, mert bár megengedi az Excel, sokszor váratlan hibákat okoz.
Az A1:A3 összevonása helyett ezt tedd:
• Beírod az A1-be a címet,
• Kijelölöd az A1:A3 tartományt,
• Cellaformázás, igazítás fül,
• A szöveg igazítása vízszintesen legördülőből "A kijelölés közepére" opciót válaszd ki.Látszólag középre kerül a cím, és itt a látszat az, ami számít. Ha szegélyeket alkalmazol, azok is megfelelnek majd a kívánt kinézetnek.
Szerk.: a teljes tartományban megszünteted az összevonásokat, majd végrehajtod az első szöveg középre helyezését. Ezután már csak ki kell jelölnöd a következőt, az F4 gyorsbillentyű ezt is középre teszi. Az F4 az utolsó műveletet ismétli. Kijelölsz - F4, kijelölsz - F4.
-
bundli
tag
Arra rájöttem, hogy az Interior.Color-t is másolni kell. Csak azt másolni tudom, de a contentet vele már nem.
A belső színt ezzel a paranccsal lehet másolni:
rngPaste.Interior.Color = rngCopy.DisplayFormat.Interior.ColorMost már csak arra kéne rájönni, hogy a tartalmat hogyan másoljam mellé.
-
Delila_1
veterán
Összeállítottam, de nem sok értelmét látom.
Ha pl. 3 táblázatod van kitöltve, és a G2-be 5-öt írsz, akkor csak adatok nélküli táblázatot hoz be az A2-es kiválasztásnál.Még azt teheted meg ezzel az új felállással, hogy nem sorban állítod ki a táblázatokat, hanem pl. a 3-as után jön a hatodik.
-
Delila_1
veterán
Örülök, hogy tetszik.
A-tól G-ig nem lehet rejteni, csak teljes sorokat.
A feltételeidnél átfedések vannak. A 2 is kisebb, mint 6.Jobb lett volna így a meghatározás:
<2 (ez negatív szám, vagy 0 és 1,9999 közötti érték)
>=2 és <3 (ez 2-től 2,9999 közötti érték)
... és így tovább.Egyébként nem kell hozzá makró, autoszűrővel szín szerinti szűrést is végre tudsz hajtani.
-
Delila_1
veterán
Azért leírom, de szigorúan próba nélkül. A laphoz kell rendelni a makrót.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim sor As Long
If Target.Address = "$B$1" And IsNumeric(Target) Then
Application.EnableEvents = False
Columns(1).ClearContents
For sor = 1 To Target
Cells(sor, 1) = "Teszt " & sor
Next
Application.EnableEvents = True
End If
End Sub -
Delila_1
veterán
A sor = Application.Match(Range("A2"), .Columns(1), 0) a sor változóba beteszi azt az értéket, ahol a Match (hol.van) függvény a Rejtett lapon az első oszlopban megtalálja az A2 cella értékét .
A Range("B2:D4" & sor).Copy .Range("B" & sor) másolja a B2
4 tartományt a Rejtett lapnak abba a sorába, ott is a B oszlopba, amit a Match megtalált. Jó. hogy írtad, az & sor-t vedd ki. Helyesen:
Range("B2:D4").Copy .Range("B")A Táblák nevet a Képletek | Névkezelő menüpontban láthatod. Ha rákattintasz, a Hivatkozás mezőben látod, melyik területre vonatkozik. Ezt a területet módosítja a Nevadas makró. A
sor = Sheets("Rejtett").Range("B" & Rows.Count).End(xlUp).Row
megkeresi az utolsó sort a Rejtett lapon, a sor számát eltárolja a sor változóban.
Az ActiveWorkbook.Names("Táblák").Delete törli az előző, Táblák című nevet. A következő sor megadja az új Táblák név területét. Ez a Rejtett lap H (nyolcadik) oszlopának első sorától addig tart, mint a sor/3+1 érték.
Például a Rejtett lapon az utolsó kitöltött sor a 18. 18/3=6. Ilyenkor a Táblák nevű terület a H1:H7 tartomány lesz. Ha 3 táblád van kitöltve, akkor a sor=9, 9/3+1=4, a területe Táblák H1:H4 lesz. A Sheets4 lap A2 cellájában lévő érvényesítés mindig az aktuális Táblák-at mutatja. Nézd meg az érvényesítésben a Forrást!Azt hiszem, a gombokat kicsit alacsonyra vettem, nem férnek ki a szövegek. Így kellene kinézniük:
-
Delila_1
veterán
Nem látszanak a képeken a sor- és oszlopazonosítók, így csak találgatni lehet, mi melyik cellában van. A makrót arra az esetre írtam, ha a képeken láthatóak az A1 cellában kezdődnek.
A két tábla képleteiben fixáld az oszlopokat $ jellel. Pl. =B3-D3 helyére =$B3-$D3 kerüljön.
Az A8 cellába vigyél be érvényesítést, ahol a forrás =Verziószám=1;Verziószám=2
Az eseményvezérelt makrót a lapodhoz kell rendelned.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim terulet As Range
If Target.Address = "$A$8" Then
Application.EnableEvents = False
Select Case Target
Case "Verziószám=1"
Set terulet = Range("B2:D4")
Case "Verziószám=2"
Set terulet = Range("G2:I4")
End Select
terulet.Copy Range("B9")
Application.EnableEvents = True
End If
End Sub -
Delila_1
veterán
Reggel nem figyeltem eléggé.
Írj az L1 cellába – vagy ehelyett egy olyan cellába, amire biztosan nem lesz szükséged később – egy egyest. Ha másik cellát választasz, mindkét sorban írd át az L1-et.
Sub masol()
Range("A1:E5").Copy Range("A1").Offset(Range("L1") * 5)
Range("L1") = Range("L1") + 1
End SubEz a makró az A1:E5 tartományt annyiszor másolja folyamatosan egymás alá, ahányszor elindítod.
-
#2673
Apollo17hu
őstag
bundli
#2672
Apollo17hu
őstag
Első lépésben egy do while... ciklusban megszámolnám, hány cella van feltöltve az "A" oszlopban. Ezt letárolnám akár változóba, de akár valamelyik cellába ki lehetne íratni, majd ezt felhasználva az
ActiveCell.Offset(6, 0).Range("A1").Select
utasításban a 6-ost kicserélném az 1. lépésben meghatározott változó értékére.
4 tartományt a Rejtett lapnak abba a sorába, ott is a B oszlopba, amit a Match megtalált. Jó. hogy írtad, az & sor-t vedd ki. Helyesen:
Új hozzászólás Aktív témák
- Gainward RTX 3080 10GB GDDR6X Phoenix
- 256 GB mSATA SSD eladóak (Hynix, Sandisk, Samsung)
- Latitude 7450 14" FHD+ IPS érintő Ultra 5 135U 16GB 256GB NVMe magyarított vbill ujjolv IR kam gar
- Óriás! Gamer PC-Számítógép! Csere-Beszámítás! R5 5600XT / RTX 3070 8GB / 16GB DDR4 / 1TB SSD Nvme.
- Apple iPhone 12 Mini 64GB Fehér Színben Állapot: Újszerű Karcmentes állapot 6 Hónap Garanciával
- BESZÁMÍTÁS! MSI B650 R5 7600 32GB DDR5 512GB SSD RX 9070 XT 16GB Zalman Z10 Plus Seasonic 750W
- 203 - Lenovo Legion Pro 5 (16ARX8) - AMD Ryzen 7 7745HX, RTX 4070
- ÁRGARANCIA!Épített KomPhone i5 14400F 32/64GB DDR5 RTX 5060 Ti 8GB GAMER PC termékbeszámítással
- Beszámítás! Sony PlayStation 5 825GB digital extra fejhallgatóval garanciával hibátlan működéssel
- ASTRO A50 WIRELESS HEADSET + BASE STATION 4th gen. fejhallgató
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Laptopműhely Bt.
Város: Budapest