hücre renkleri ile ilgili kodlar 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. 
 
EĞER A SÜTUNUNDA KIRMIZI HÜCRE VARSA İLGİLİ SATIRI SİLEN KODLAR (COLOR İNDEK = 3 :Kırmızı)
Sub kirmizisil()
Sub DeleteRowsRedInColA()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual 'pre XL97 xlManual
Dim rng As Range, ix As Long
Set rng = Intersect(Range("A:A"), ActiveSheet.UsedRange)
For ix = rng.Count To 1 Step -1
If rng.Item(ix).Interior.ColorIndex = 3 Then 'rakamı değiştirebilirsiniz
rng.Item(ix).EntireRow.Delete
End If
Next
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub
DOLU HÜCRELERİN SATIRINI MAVİ BOŞLARI İSE SARI YAPAN KODLAR
Sub bosdolurenklendir()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Dim cell As Range
For Each cell In Intersect(Selection, ActiveCell.EntireColumn, _
ActiveSheet.UsedRange)
Select Case cell.Value
Case Is >= 50
cell.EntireRow.Interior.ColorIndex = 20
Case Is >= 40
cell.EntireRow.Interior.ColorIndex = 37
Case Is >= 20
cell.EntireRow.Interior.ColorIndex = 38
Case Is >= 0
cell.EntireRow.Interior.ColorIndex = 36
Case Else
cell.EntireRow.Interior.ColorIndex = 44
End Select
Next cell
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub
A1:B10 HÜCRELERİNDEKİ DEĞER 10 DAN BÜYÜK İSE HÜCRE RENGİ SARI OLUR
Private Sub Worksheet_Change( _
  ByVal Target As Excel.Range)
  If Intersect(Target, Range("A1:B10")) _
    Is Nothing Then Exit Sub
  If Target.Value > 10 Then
    Target.Interior.ColorIndex = 6
  Else
    Target.Interior.ColorIndex = xlNone
  End If
End Sub

Benzer Sonuçlar
No	Makro Adı
1	hücre renkleri ile ilgili kodlar
2	listbox'tan seçilen hücreyi silmek.
3	excelde kendi eklenti ve fonksiyonlarınızı oluşturun
4	rgb kodları ile hücreyi renklendirme
5	aynı makroyla birden çok sayfaya kayıt yapmak
6	a1:an1000 arasındaki text ile bulunan satırdaki dolu hücreleri listboxa atmak istiyorum
7	bir hücreye makro atamak
8	makroda bir veya birden çok değer döndürmek
9	değişen hücreleri göster
10	kayıt engelenebilir mi?
11	çift tıkladığımda istediğim sayfaya gitsin
12	çift tıkladığımda istediğim sayfaya gitsin.
13	AKTİF HÜCREYE GİRİLEN RAKAMLARI ALTAKİ STATUSBAR DA TOPLAYAN KODLAR
14	hücre biçimini ayarlamak
15	Baskı Bu makro kodları, size daha fazla zaman kazandıracak bazı yazdırma görevlerini otomatikleştirmenize yardımcı olur. & Nbsp; Açıklamaları Yazdırın: Sayfanın sonundaki hücre yorumlarını basmak için ayarları etkinleştirmek için bu makroyu kullanın. Baskı yapmak için 10 sayfanız olduğunu varsayalım, bu kodu kullandıktan sonra 11. sayfadaki tüm yorumları alacaksınız.
16	Pivot Tablosu Bu kodlar, bir flashda pivot tablolarında bazı değişiklikler yapmanıza ve yönetmenize yardımcı olur. Gizle Pivot Tablosu Alt Toplamları: Tüm alt toplamları gizlemek istiyorsanız, bu kodu çalıştırmanız yeterlidir. Öncelikle, pivot tablodan bir hücre seçtiğinizden ve bu makroyu çalıştırdığınızdan emin olun.
17	bul-sil-değiştir-kaydet kodları
18	makroda hesaplanıyor mesajı
19	ilgili sayfaya gitme
20	butonala text box açarak veri aktarimi

Benzer Sonuçlar

Makro Adı

hücre renkleri ile ilgili kodlar

listbox'tan seçilen hücreyi silmek.

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

rgb kodları ile hücreyi renklendirme

aynı makroyla birden çok sayfaya kayıt yapmak

a1:an1000 arasındaki text ile bulunan satırdaki dolu hücreleri listboxa atmak istiyorum

bir hücreye makro atamak

makroda bir veya birden çok değer döndürmek

değişen hücreleri göster

kayıt engelenebilir mi?