- Közeledik az X Fold3 Pro
- Samsung Galaxy A72 - kicsit király
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- Samsung Galaxy S21 Ultra - vákuumcsomagolás
- Samsung Galaxy S22 és S22+ - a kis vagány meg a bátyja
- Hivatalos képen a Samsung hajlíthatók
- Samsung Galaxy Z Fold5 - toldozás-foldozás
- Huawei Watch GT 2 - épp ideje!
- Poco F3 - a mindenes, de nem mindenkinek
- Redmi Note 9 Pro [joyeuse]
Hirdetés
-
Még mindig készül a Lollipop Chainsaw RePOP
gp Alig néhány nap múlva elviekben megkapjuk a remake megjelenési dátumát.
-
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.
-
Computex 2024: látogatóban a Chieftecnél (videóval!)
ph Mélynyomót formázó microATX ház, egy ígéretes üvegtorony és vízhűtések is előkerültek a standon.
-
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
-
Pakliman
tag
válasz p5quser #36959 üzenetére
Szia!
Nem próbáltam ki, mert dokinál vagyok, de mennie kellene:Sub CommandButton2_Click()
'Kijelölés
Dim ws as worksheet
Dim act as worksheet
Set act=activesheet
For each ws in worksheets
If not ws is act then
Ws.activate
Ws.Range("$A$1:$N$330").AutoFilter Field:=11, Criteria1:=">1", _
Operator:=xlAnd
Ws.AutoFilter.Range.Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 5296274
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Ws.ShowAllData
Ws.Range("$A$1:$N$330").AutoFilter Field:=11, Criteria1:="<-1", _
Operator:=xlAnd
Ws.AutoFilter.Range.Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
End With
Ws.ShowAllData
Ws.Range("$A$1:$N$316").AutoFilter Field:=11, Criteria1:=">1", _
Operator:=xlOr, Criteria2:="<-1"
Endif
Next ws
End Sub
(Baromi nehéz telefonon írni )[ Szerkesztve ]
-
Delila_1
Topikgazda
válasz p5quser #36959 üzenetére
A laphoz rendelt gomb csak a saját lapján tud dolgozni. Helyette tegyél a lapra (mondjuk az elsőre) egy alakzatot, pl. a lekerekített téglalapot.
Modulba másold be a makrót:
Sub Szures()
Dim lap As Integer
Application.ScreenUpdating = False
For lap = 2 To Sheets.Count
Sheets(lap).Select
ActiveSheet.Range("$A$1:$N$330").AutoFilter Field:=11, Criteria1:=">1"
ActiveSheet.AutoFilter.Range.Select
Selection.Interior.Color = 5296274
' ActiveSheet.Range("$A$1:$N$330").AutoFilter Field:=11 'összes sor mutatása
Next
' Sheets(1).Select 'első lapra állás
Application.ScreenUpdating = True
End SubAz alakzathoz rendeld hozzá a Szures makrót. Ez a másodiktól az utolsó lapig halad, és mindenhol végrehajtja a szűrést, színezést.
Nézd meg, kell-e a két sor a makróban, amikhez megjegyzést fűztem.
Programozó: 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
- Autós topik
- DIGI internet
- Koreai autók topic (Kia, Hyundai, stb.)
- Debrecen és környéke adok-veszek-beszélgetek
- Közeledik az X Fold3 Pro
- Milyen TV-t vegyek?
- AMD Navi Radeon™ RX 6xxx sorozat
- A Biden-kormányt is zavarja a big tech és az adatközpontok energiaéhsége
- Parfüm topik
- Házi barkács, gányolás, tákolás, megdöbbentő gépek!
- További aktív témák...
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Eladó Steam kulcsok kedvező áron!
- Bontatlan - BATTLEFIELD 1 Collectors Edition - Játékszoftver nélkül
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
Állásajánlatok
Cég: Alpha Laptopszerviz Kft.
Város: Pécs
Cég: Ozeki Kft.
Város: Debrecen