Şarta Göre Satır Açma ve Renklendirme

26 Temmuz 2021 26 Temmuz 2021 1135

Şarta Göre Satır Açma ve Renklendirme kodu, sayıların olduğu bir veri aralığında, belirlediğiniz kritere uyan satırların sonuna ekleme yapar ve renklendirir

Sub SatirEkle()

Dim i As Long
Dim gec, s, st As String

For i = 1 To 3000
 s = Cells(i, 1).Value
 If i > 2 Then gec = Cells(i - 1, 1).Value Else gec = s
  If s = "" Then GoTo son
  If i = 82 Then
    s = s
    End If
   
 If (s <> gec) And (gec <> "") Then
    st = Str(i)
    Rows(st).Select
    Selection.Insert Shift:=xlDown
    ActiveCell.Value = "RAKAM: " & gec
    Selection.Interior.ColorIndex = 40
    Selection.Font.Bold = True
       i = i + 1
 End If
 
 Next i
son:

End Sub

Gerekli Adımlar

Kodu çalıştırmanız için aşağıdaki adımları yerine getirmeniz gerekir.

  1. Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
  2. Project - VBAProject alanının, ekranın sol tarafında görüldüğünden emin olun. Görünmüyorsa, Ctrl + R kısayolu ile hızlıca açın.
  3. Araç çubuklarından Insert -> Module yazısına tıklayın.
  4. Solunda klasör simgesi olan Modules yazısının başındaki + simgesine tıklayın.
  5. Alt kısma eklenecek gelecek olan Module(1) yazısına çift tıklayın.
  6. Üstteki kodu yapıştırın.

Kod Açıklaması

Şarta Göre Satır Açma ve Renklendirme

Kod, A sütununda rastgele yazılmış olan 3000 satırlık sayılar arasında belirlediğiniz kritere uyan bir satırı bulunca altına yeni bir satır açarak, üstteki satırın bilgisini yazmak ve arka plan rengini değiştirip, yazıyı koyu hale getirme işlevini yerine getirir.

Bu tür sayısal verilerinizde aralara satır eklemek ya da renklendirme vs gibi ihtiyaçlarınız olması halinde, kodu kolayca kendinize göre uyarlayabilirsiniz.

Hazır Dosyayı İndir

Dosyayı indirmek için giriş yapmanız ve VIP Üyelik Paketine sahip olmanız gerekir.
50 Farklı Hazır Makro (VBA) Kodu
Bir Aralıktaki Maksimum Değeri Renklendirme
Bilgisayardaki Sürücü İsimlerini Listeleme
Yardım Menüsünü Açma
Seçili Her Satırdan Sonra Bir Satır Ekleme
Makro Çalışırken İmlecin Hareket Etmemesi
Aktif Hücreye Açıklama Ekleme
Disk Sürücü Kapasitesini Gösterme
Makrolar ile Klasördeki Dosyayı Taşıma
C Klasörüne Sanal Dizin Oluşturma
TextBox Nesnesine Harf Girilmesini Engelleme
Bir Aralıktaki Minimum Değeri Renklendirme
Makro ile Dosya Açma
Çalışma Kitabını Kapatırken Otomatik Kaydetme
Sayfa Üzerindeki Formüllerin Sayısını Bulma
Birden Çok Satır Ekleme
Formu Kapatma Makro Kodu
Hücredeki Değere Göre Yeni Sayfa Ekleme
Özel Sayfaları Yazdırma
Tam Dizin İsmini Bulma
İlk ve Son Hücre Arasındaki Satır Sayısı
Derece Simgesi Ekleme
Sütun Genişliklerini Otomatik Ayarlama
X Sayı Atlayarak Satır Gizleme
Makro Etkinletirilmezse Sayfalar Gizlenir
Her Bir Sütundaki Maksimum Değeri Bulma
Program Başlangıcı Kodları
Bir Değeri Renklendirme
Excel Makroları ile Hücreye Saat Ekleme
Kopyala ve Değer Olarak Yapıştır
Kullanılan Tüm Sütunları Otomatik Sığdır
PDF Dosyalarını Birleştirme
Gizli Sayfaların Bulunması ve Gösterilmesi
Son Sütun Numarasını Bulma
Hücrenin Rengini Değiştirme
Boş Hücrelerin Görünmez Alanını Vurgulama
Aç Penceresini Açan Makro
Tek Sütunu Kes Kopyala ve Yapıştır
Sayılara Yeni Bir Sayı Ekleme
Tekrarlayan Verileri Vurgulama
Pivot Tablo Alt Toplamlarını Gizleme
Otomatik Olarak Tarih ve Zaman Ekleme
Tüm Çalışma Sayfalarını Tek Adımda Koruma
Çalışma Kitabını E-Posta Ekine Ekleme
Seçilmiş Alanı Kes Kopyala ve Yapıştır
Sütunun Herhangi Hücresine Çift Tıklayınca UserForm Açılsın
Makrolar ile Klasör Kopyalama
Klavyeye Makro Atama ve Çalıştırma
Sütunlardaki Farkı Renklendirme
Tüm Boş Çalışma Sayfalarını Silme
Tüm Çalışma Sayfalarını Gösterme

Daha önce yorum yapılmamış!

Backlink Reklam Bu alanda 50 karakterlik açıklama ile web sitenize ait Backlink Reklam yayınlayabilirsiniz.
Yükleniyor...