Hirdetés
- Milyen okostelefont vegyek?
- Samsung Galaxy A54 - türelemjáték
- Google Pixel topik
- Poco X6 Pro - ötös alá
- Samsung Galaxy S24 FE - később
- Apple iPhone 16 - ígéretek földje
- OneSport OT07 - szevasztok, hollandok!
- Szívós, szép és kitartó az új OnePlus óra
- iPhone topik
- Samsung Galaxy S25 - végre van kicsi!
-
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
-
nordican
tag
válasz
poffsoft #33896 üzenetére
Köszi, ez az! Szerinted olyat bele lehet építeni, hogy az éppen aktív vagy a kijelölt munkalapokon végezze el a cserét? Próbáltam az ActiveSheet-tel, de ezzel nem működik.
Sub Makro1()
Dim list() As String
Dim liste As String
Dim i As Integer
Dim c As Range
Dim rng As Rangeliste = "ActiveSheet" 'a munkalapok nevei, ahol keresni kell, vesszővel elválasztva
list() = Split(liste, ",")
For i = 0 To UBound(list)
Set rng = Sheets(list(i)).Range("A1100")
For Each c In rng
With c.Interior
If .ColorIndex = 6 Then
.ColorIndex = None
.Pattern = xlNone
End If
End With
Next c
Next i
End Sub
Új hozzászólás Aktív témák
- LG 65" C1 OLED - 4K 120Hz 1ms - NVIDIA G-Sync - FreeSync Premium - HDMI 2.1 - PS5 és Xbox Ready!
- Samsung Galaxy S20 FE 128GB, Kártyafüggetlen, 1 Év Garanciával
- Ultimate előfizetés akár 2105 Ft/hó áron? Azonnali, automatizált aktiválással, csak Nálam!
- ÚJ- Hp Elitebook 840 G8 i5 11. gen 14" Magyar laptop / notebook- Win11
- Csere-Beszámítás! Felsőkategóriás számítógép játékra! I7 13700K / RTX 3090 / 32GB DDR4
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest