Hirdetés
- Yettel topik
- OneSport OT07 - szevasztok, hollandok!
- Poco X6 Pro - ötös alá
- MWC 2025: A kicsi és a kamerás - megjött a Xiaomi 15 és az Ultra
- Szívós, szép és kitartó az új OnePlus óra
- Milyen okostelefont vegyek?
- Samsung Galaxy A54 - türelemjáték
- Google Pixel topik
- Samsung Galaxy S24 FE - később
- Apple iPhone 16 - ígéretek földje
-
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
- Csere-Beszámítás! Számítógép játékra! R5 5500 / RX 5700XT / 32GB DDR4 / 480 SSD + 1 TB HDD
- LG 27CN650N-6A - Felhő Monitor - 1920x1080 FHD - 75Hz 5ms - USB Type-C - Quad Core - BT + WiFi
- Telefon felvásárlás!! iPhone X/iPhone Xs/iPhone XR/iPhone Xs Max
- Telefon felvásárlás!! iPhone 15/iPhone 15 Plus/iPhone 15 Pro/iPhone 15 Pro Max
- Xiaomi Redmi 12 256GB, Kártyafüggetlen, 1 Év Garanciával
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest