Aktif Sayfada Rakama Göre Zemin Rengi Verme2 Online Eğitimler sadece 49,99 TL. Hem de ikinci eğitim ücretsiz! 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. Private Sub Worksheet_Calculate() 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 For Each RaZelle In RaBereich If Not Intersect(RaZelle, RaBereich) Is Nothing Then Select Case RaZelle.Value Case "1" RaZelle.Interior.ColorIndex = 1 Case "2" RaZelle.Interior.ColorIndex = 6 Case "3" RaZelle.Interior.ColorIndex = 3 Case "4" RaZelle.Interior.ColorIndex = 4 Case Else RaZelle.Interior.ColorIndex = xlNone End Select End If Next RaZelle ' ActiveSheet.protect Set RaBereich = Nothing End Sub Bu makro ile ilgili sorun bildir Bu makro çalışmıyor. Kodlarda bir hata var. Diğer Hata ile ilgili görüşlerinizi aşağıdaki kutuya yazabilirsiniz. Hata bildir TÜM MAKROLAR Youtube Kanalımız Aşağıdaki makrolar işinize yarayabilir. Benzer Sonuçlar NoMakro 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 klasör ve dosya makrolarındaki yolları kendine göre düzenle 10 aktif sayfada rakamla kelime birleştirme 11 ay adına göre sayfa açar ve aktif sayfayı kopyalar 12 aktif sayfada tüm hücrelerde aynı hücreye devamlı rakam yaz, toplasın 13 aktif sayfaya göre ayrı ayrı makro çalıştırma 14 şifrelemede son nokta 15 uyan şartlara göre userform3teki commandbutton gizlensin. 16 harddiskin boş alanını vs.. öğrenme 17 aktif sayfada otomatik filtreleme 18 aktif sayfada belli hücrelere girilen sayıların başına çift sıfır ekler 19 listbox'tan seçilen hücreyi silmek. 20 aktif sayfada veri girilen hücrelere veri girildiği tarih ve saati açıklama olarak ekler