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

26 Temmuz 2021 26 Temmuz 2021 986

Ş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
Belirli Kriterlere Sahip Satırları Silme
Kopyala ve Özel Yapıştır
Açık Excel Kitaplarını Yerleştirme
Tam Dizin İsmini Bulma
Hücredeki Değer Sıfırdan Büyükse İşlem Yapma
X Sayı Atlayarak Satır Gizleme
Excel Satır Seçme Kodu
ListBox Üzerindeki Verilere Çoklu Seçim Yapma
Makrolar ile Klasör Silme
Aktif Hücrenin Temel Bilgilerini Bulma
Gizli Sayfaların Bulunması ve Gösterilmesi
Excel Sayfalarındaki Resimleri Silmek
Makro ile Web Sitesini Açmak
Sayıların Önündeki Tek Tırnak İşaretini Kaldırma
Excel Dosya Silme İşlemi Makrosu
Excel Seçenekleri Penceresini Açma
Metin Sarmayı Kaldırma
Giriş Kutusu ve Mesaj Yazma İşlemi
Seri Numaralarını Ekleme
Birleştirilmiş Hücrelerin Başlangıç Bitiş Sütununu Belirleme
Belirli Metni Vurgulama
UserForm Resize Özelliği Eklemek
Excel Makroları ile İşlemci Bilgilerini Bulma
Disk Sürücü Kapasitesini Gösterme
Satırlardaki Farkı Renklendirme
Kopyala ve Değer Olarak Yapıştır
Aktif Hücrenin Sütun Numarasını Bulma
Salt Okunur Excel Dosyasını Kontrol Etme
Kullanıcı Adınızı Bulma
Bir sayfadaki Veriyi Diğer Sayfaya Aktarma
Makrolar ile Txt Dosyası Oluşturma
Yazı Efekti Verme Kodu
Açılışta İstediğiniz Sayfanın Aktif Edilmesi
Seçili Satırların Sayısını Bulma
Belirli Bir Metne Sahip Hücreleri Vurgulama
Roma Rakamlarını Normal Sayılara Dönüştürme
Sayfadaki Ad Tanımlamaları Silme
PDF Dosyalarını Birleştirme
Sütun Genişliklerini Otomatik Ayarlama
Excel ile Demo Yapma Makrosu
Alfabenin Harflerini Sayfaya Sıralı Olarak Ekleme
Tek Hücreyi Kes Kopyala ve Yapıştır
Sürücü Adı Kontrolü Yapma
Excel Makroları ile Form Çağırma
Hücre Aralığını Görüntüye Dönüştürme
MsgBox Nesnesi ile Cevap Seçeneği Sunma
Makrolar ile Klasör Kopyalama
Tek Satırı Kes Kopyala ve Yapıştır
Çift Satırlı Msgbox Örneği
İçinde Bulunduğumuz AY Sayfasının Aktif Edilmesi

Daha önce yorum yapılmamış!

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