Hirdetés
- iPhone topik
- Milyen okostelefont vegyek?
- Vivo X300 Pro – messzebbre lát, mint ameddig bírja
- Mától Huawei okosórákkal is lehet érintésmentesen fizetni
- Távozik az Apple vezérigazgatója
- Szívós, szép és kitartó az új OnePlus óra
- Poco X8 Pro Max - nem kell ide sem bank, sem akkubank
- Xiaomi 15 - kicsi telefon nagy energiával
- Fotók, videók mobillal
- Külföldi prepaid SIM-ek itthon
-
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
-
-
m.zmrzlina
senior tag
válasz
elttiL
#28650
üzenetére
Akkor még egy javítás. Ha a :
holavege = Range("A:A").Find(What:="beillesztési pont", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Row
változatot választod akkor a "beillesztési pont" részt írd át "XXX"-re. Én azt gondoltam, hogy a beillesztési pont maga a cellaérték. Nyilván ezt nem fogja megtalálni ha XXX-szel van megjelölve a vége.
Még egy dolog: ha aaz XXX minden esetben az utolsó sorban van akkor a
holavege = Range("A" & Rows.Count).End(xlUp).Row
változat is működik.
-
m.zmrzlina
senior tag
válasz
elttiL
#28644
üzenetére
Bocs én voltam a béna.

A:
holavege = Selection.Find(What:="beillesztési pont", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Rowsor helyesen így néz ki:
holavege = Range("A:A").Find(What:="beillesztési pont", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Row
Ekkor nem az aktuális kijelölésben keres hanem az A oszlopban.
-
m.zmrzlina
senior tag
válasz
elttiL
#28644
üzenetére
Ez volt az eredeti kérdésben:
A cellába be van írva, hogy "Beillesztési pont". Ez az A oszlopban bárhol lehet, ide kerül beillesztésre a vágólapon levő tábla
Ez a mostani állapot:
Töküres táblában próbáltam ki,
Azért akad ki mert a töküres táblában sehol nem találja a "Beillesztési pont" cellaértéket.
Azt írod:
no ennek a vágólapon levő táblának az utolsó A oszlopos cellája ugyancsak tartalmazza a "Beillesztési pont" tartalmat,
Írd be az üres táblába A1-be hogy "Beillesztési pont" /kisbetű-nagybetűre figyelj!!!/ és úgy próbáld. Az első beillesztett tartalom után ez már nem fog problémát okozni.
-
m.zmrzlina
senior tag
válasz
elttiL
#28634
üzenetére
Próbáld ezt:
Sub beilleszt()
holavege = Selection.Find(What:="beillesztési pont", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Row
Worksheets("Munka1").Range("A" & holavege).PasteSpecial Paste:=xlPasteAll
End SubTermészetesen a Munka1 helyére írd a saját munkalapod nevét!
-
Delila_1
veterán
válasz
elttiL
#28605
üzenetére
Hát, nem sok köszönet van benne.
Próbáld meg, hogy az un. volatilis függvények helyett mást alkalmazz. Pl. az INDIREKT kiváltható az INDEX(HOL.VAN) párossal.Néhány volatilis függvény itt van felsorolva.
-
Delila_1
veterán
válasz
elttiL
#26967
üzenetére
Régebbi verziókban irányított, újabbakban speciális szűrést végezz. A szűrőtartomány annak az oszlopnak a címe, amelyik az IGAZ és HAMIS értékeket tartalmazza, az alatta lévő cella pedig az IGAZ szöveg legyen, ahogy a képen látod.
A tartományt, ahonnan az érvényesítést veszed, nevezd el, pl. Nevek nevet adj neki. A névadásnál a hivatkozás a kép szerinti adatokra:
=OFSZET(Munka1!$H$2;0;0;DARAB2(Munka1!$H:$H)-1;1)
A makró – szintén a kép szerinti adatokhoz – egyetlen utasítás:
Range("B1:C11").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"F1:F2"), CopyToRange:=Range("H1"), Unique:=False
Az érvényesítést az E1 cellába tettem.
Új hozzászólás Aktív témák
Hirdetés
- Microsoft és egyéb dobozos és OEM szoftverek
- MEGA AKCIÓ! - Jogtiszta Windows - Office & Autodesk & CorelDRAW - Azonnal - Számlával - Garanciával
- Eladó jogtiszta, Windows 11/10, Office 2019/2021/2024, Fizikai és Digitális licencek, Számlával.
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem.
- ÁRGARANCIA!Épített KomPhone i5 14600KF 32/64GB DDR5 RAM RTX 5070Ti 16GB GAMER PC termékbeszámítással
- Telefon felvásárlás!! iPhone X/iPhone Xs/iPhone XR/iPhone Xs Max
- GYÖNYÖRŰ iPhone 15 Pro Max 256GB Blue Titanium-1 ÉV GARANCIA - Kártyafüggetlen, MS4240
- Samsung Galaxy S21+ / 8/128GB / Kártyafüggetlen / 12Hó Garancia
- NVME, M2 NGFF, 2,5" SATA SSD-k vegyes OEM márkák és prémium típusok, sok újszerű. 256GB-1TB
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest





Fferi50
