Etiketler

AutoCAD (53) bedava (46) Dosya (34) Resim (32) Ziyaretçi Defteri (20) program (20) excel (18) Güncelleme (17) asgbookphp (16) Nasıl yapılır (15) Şablon (15) Qbasic (14) php (14) online (13) Eğitim (12) Fotoğraf (12) Freeware (12) PHP script (12) Dos (10) Kaynak kod (10) SolidWorks (10) VBA (10) Visual Basic (10) ürünler (9) E-book (8) Photoshop (8) tutorial (6) Ders (5) Word (5) Lisp (4) Programlama (4)

Youtube Kanalıma Abone Olunuz

YouTube kanalımın 1000 aboneye ulaşması için takip etmeseniz bile Lütfen Abone olunuz.

www.youtube.com/mesutakcan

19 Haziran 2016 Pazar

Excel: Aktif satır ve sütun renklendirme

Makro kullanarak Excelde aktif satır ve sütunu renklendirerek hücre takibi yapmak kolaylaştırılabilir.
Bu işlem için iki farklı makro kodu veriyorum. Kodları deneyip uygun olanını kullanabilirsiniz.

Makro eklemek için önce aşağıda verilen makro kodunu kopyalayın.
Excelde sayfa adı(Sayfa1, Sayfa2 ...) üzerinde sağ tıklayın
Açılan menüde Kod görüntüle tıklayın.

Açılan kod penceresinde kodu yapıştırın(CTRL+V)


Alternatif yol:

ALT+F11 e basın. (Menü: Geliştirici / Kod görüntüle)




Açılan pencerede sol bölmeden sayfa adını çift tıklayın(Sayfa1, Sayfa2 ...)
Sağ bölmeye kodu yapıştırın.

Makro 1:


Makro 2:

8 yorum:

  1. Çok teşekkürler. Allah razı olsun. Böyle bir şey arıyordum. :)

    YanıtlaSil
  2. Merhabalar,
    Makro 2 ' hücrelerde yapılan zemin rengi renklendirmelerini iptal eder demişsiniz ne iptal ediyor?

    YanıtlaSil
    Yanıtlar
    1. daha önceden yapılmış hücre zemin renklerini siler.

      Sil
  3. Merhabalar pardon tam olarak anlayamadım şimdi bu makroyu çalıştırdığımda aktif hücre renkleniyor ama işim bittiğinde makroyu sildiğim de renk bırakıyor bunu yapmasını istemiyorum işim bittiğinde nasıl pasif hale getirebilirim?

    YanıtlaSil
    Yanıtlar
    1. aşağıdaki kodları kullanın.
      A1 hücresinde M olduğu sürece çalışır

      Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      'makro: Mesut Akcan
      '19/6/2016
      'www.akcansoft.com

      ' hücrelerde yapılan zemin rengi renklendirmelerini iptal eder
      ' CTRL+Z -> Geri al çalışmaz
      Cells.Interior.ColorIndex = xlColorIndexNone
      If UCase(Range("a1").Value) <> "M" Then Exit Sub
      With ActiveCell
      .EntireColumn.Interior.ColorIndex = 17 'Sütun Rengi. 6=sarı
      .EntireRow.Interior.ColorIndex = 17 ' Satır Rengi
      .Cells.Interior.ColorIndex = 19 ' Hücre Rengi
      End With
      End Sub

      Sil
  4. benimde çok işime yaradı ancak kodları(Private Sub Worksheet_SelectionChange(ByVal Target As Range) başlayan aynı sayfada kod var.Bu kodları eklemek istedim olmadı

    YanıtlaSil
  5. teşekkür ederim kardeşim. iyi çalışmalar

    YanıtlaSil

Related Posts Plugin for WordPress, Blogger...

Hakkımda

Fotoğrafım

Mesut Akcan
Metal Teknolojisi Öğretmeni
Bilgisayar Formatör Öğretmeni
Gazi Mesleki ve Teknik Anadolu Lisesi.
Anamur-MERSiN