Etiketler

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

Youtube Kanalıma Abone Olunuz

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:
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

On Error Resume Next
If Application.CutCopyMode = xlCopy Or Application.CutCopyMode = xlCut Then Exit Sub

g = 10 'renklendirme genişliği
r = Target.Row 'satır no
c = Target.Column 'sütun no

renk = 6 'sarı
ahrenk = 17 'aktif hücre rengi: 3=kırmızı, 7=pembe, 2= beyaz

br = r - g 'renklendirme başlangıç satırı
If br < 1 Then br = 1

bc = c - g
If bc < 1 Then bc = 1 'renklendirme başlangıç sütunu

Cells.Interior.ColorIndex = xlNone

Range(Cells(r, bc), Cells(r, c + g)).Interior.ColorIndex = renk
Range(Cells(br, c), Cells(r + g, c)).Interior.ColorIndex = renk

ActiveCell.Interior.ColorIndex = ahrenk
End Sub


Makro 2:
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
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

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...