- Redmi Note 9 Pro [joyeuse]
- Az iPhone 15 frissítésgaranciát, a 16 szép rendereket kapott
- Poco F3 - a mindenes, de nem mindenkinek
- Huawei Watch GT 2 - épp ideje!
- Apple iPhone 15 Pro Max - Attack on Titan
- Samsung Galaxy Watch4 és Watch4 Classic - próbawearzió
- Android alkalmazások - szoftver kibeszélő topik
- Honor Magic5 Pro - kamerák bűvöletében
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- Hivatalos képen a Samsung hajlíthatók
Hirdetés
-
A Samsung megnyitja külsős appok számára az AI fordítás lehetőségét
ma A fordítás magán az eszközön történik biztonsági okok miatt.
-
10 éve nem változott ekkorát a Netflix tévés appja
it A Netflix útnak indította a megújult tévés appját, amely az első nagy felújítást jelenti az utóbbi 10 évben.
-
Dragon Age: The Veilguard címmel jön a sorozat régóta készülő új része
gp Hamarosan érkezik az új előzetes, a jövő hét elején pedig egy hosszabb játékmenet videóval is gazdagabbak leszünk.
-
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
-
p5quser
tag
válasz Delila_1 #36956 üzenetére
Szia!
Először is köszönöm.
Nem igazán tudom beszúrni, vagy nem ilyen formában kellene utasítani, vagy passz...
Az első munkalapon lévő gombhoz van rendelve ez a makró. Lefut, de csak azon a munkalapon, amelyiken futtatom a "debug" ablakból. Valamint az első munkalapon elszáll hibával, mert nem úgy néz ki mint a többi.Sub CommandButton2_Click()
'Kijelölés
ActiveSheet.Range("$A$1:$N$330").AutoFilter Field:=11, Criteria1:=">1", _
Operator:=xlAnd
ActiveSheet.AutoFilter.Range.Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 5296274
.TintAndShade = 0
.PatternTintAndShade = 0
End With
ActiveSheet.ShowAllData
ActiveSheet.Range("$A$1:$N$330").AutoFilter Field:=11, Criteria1:="<-1", _
Operator:=xlAnd
ActiveSheet.AutoFilter.Range.Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
End With
ActiveSheet.ShowAllData
ActiveSheet.Range("$A$1:$N$316").AutoFilter Field:=11, Criteria1:=">1", _
Operator:=xlOr, Criteria2:="<-1"
End SubEnnek a makrónak kéne lefutnia az összes munkalapon (kivéve az elsőt) a munkafüzetben, ha klikkelnek a gombra.
[ Szerkesztve ]
Új hozzászólás Aktív témák
- Azonnali fáradt gőzös kérdések órája
- EAFC 24
- Kerékpárosok, bringások ide!
- CURVE - "All your cards in one." Minden bankkártyád egyben.
- Computex 2024: az Akasa mágneses burkolatot ad, az SSD-t te rakhatod bele
- Computex 2024: beröffentette az AI-t az AMD
- Mesterséges intelligencia topik
- World of Warships
- Mibe tegyem a megtakarításaimat?
- LEGO klub
- További aktív témák...
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Alpha Laptopszerviz Kft.
Város: Pécs