aktif sayfada rakama göre zemin rengi verme Hazır Excel Makroları (VBA) | Excel Programları

Makroyu Kopyala

'Excel Makro (VBA) online eğitimleri için: https://www.excelsizeyeter.com/excelsizeyeter.com/udemy_giris.php adresine tıklayınız. Bir eğitim alana bir eğitim bedavadır. İkinci eğitim olarak Excel, Excel pratik çözümler, finans eğitimleri vb. alabilirsiniz.

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim RaBereich As Range, RaZelle As Range
    Set RaBereich = Range("B3:C20, D1:D7")
'    Set RaBereich = Union(Range("C7:I26"), Range("L7:R26"), Range("U7:AA26"), Range("AD7:AJ26"))
'    ActiveSheet.Unprotect ("Passwort")
    For Each RaZelle In Range(Target.Address)
        If Not Intersect(RaZelle, RaBereich) Is Nothing Then
            With RaZelle
                Select Case UCase(.Value)
                    Case "1"
                        .Interior.ColorIndex = 1
                        .Font.ColorIndex = 2
                        '.NumberFormat = "General"
                        ' Zellenformat Standard
                    Case "2"
                        .Interior.ColorIndex = 6
                        .Font.ColorIndex = 0
                        '.NumberFormat = "General"
                        ' Zellenformat Standard
                    Case "3"
                        .Interior.ColorIndex = 3
                        .Font.ColorIndex = 2
                        '.NumberFormat = ";;;"
                    Case "4"
                        .Interior.ColorIndex = 4
                        .Font.ColorIndex = 0
                        '.NumberFormat = "General"
                        ' Zellenformat Standard
                    Case "KLAUS"
                        .Interior.ColorIndex = 5
                        .Font.ColorIndex = 0
                        '.NumberFormat = "General"
                        ' Zellenformat Standard
                    Case Else
                        .Interior.ColorIndex = xlNone
                        .Font.ColorIndex = 0
                        '.NumberFormat = "General"
                        ' Zellenformat Standard
                End Select
            End With
        End If
    Next RaZelle
'    ActiveSheet.protect ("Passwort")
    Set RaBereich = Nothing
End Sub

Benzer Sonuçlar
No	Makro Adı
1	aktif sayfada rakama göre zemin rengi verme2
2	aktif sayfada rakama göre zemin rengi verme
3	aktif sayfada rakama göre renk
4	seçilen hücreler renklenir
5	excelde kendi eklenti ve fonksiyonlarınızı oluşturun
6	aktif sayfada sağ fare'de menü
7	aktif sayfada çıktı aldıktan sonra mesaj alma
8	aktif sayfada sağ fare yasak
9	excel sayfasının isteğe göre kısıtlanması
10	makrolar kutusu ve makrolar görünsün
11	sayfa aktif olunca mesaj verme
12	klasör ve dosya makrolarındaki yolları kendine göre düzenle
13	aktif sayfada rakamla kelime birleştirme
14	ay adına göre sayfa açar ve aktif sayfayı kopyalar
15	aktif sayfada tüm hücrelerde aynı hücreye devamlı rakam yaz, toplasın
16	aktif sayfaya göre ayrı ayrı makro çalıştırma
17	şifrelemede son nokta
18	uyan şartlara göre userform3teki commandbutton gizlensin.
19	verilen değere göre farklı hücreye bilgi veren bir makro
20	aktif sayfada otomatik filtreleme

Benzer Sonuçlar

Makro Adı

aktif sayfada rakama göre zemin rengi verme2

aktif sayfada rakama göre zemin rengi verme

aktif sayfada rakama göre renk

seçilen hücreler renklenir

excelde kendi eklenti ve fonksiyonlarınızı oluşturun

aktif sayfada sağ fare'de menü

aktif sayfada çıktı aldıktan sonra mesaj alma

aktif sayfada sağ fare yasak

excel sayfasının isteğe göre kısıtlanması

makrolar kutusu ve makrolar görünsün