Makro sonucunu renklendirme

[e_e_engineer]

Ekte örnek dosyayı gönderiyorum. Çalışma sayfamda çalıştırdığım makro sonucunda N sütununda rakamlar çıkıyor. Bu rakamlardan 0(sıfır) çıkanların hücre renklerini örneğin mavi yapmak istiyorum. İlgili işlemin makro formunu yazabilir misiniz?

 

[İhsan Tank]

Ekte örnek dosyayı gönderiyorum. Çalışma sayfamda çalıştırdığım makro sonucunda N sütununda rakamlar çıkıyor. Bu rakamlardan 0(sıfır) çıkanların hücre renklerini örneğin mavi yapmak istiyorum. İlgili işlemin makro formunu yazabilir misiniz?

Dosyanızda makro göremedim.
Excel özellikleri ile çözüm.
Öncelikle N sütununa tıklayın hücre biçimlendir - Genel yapın.
Sonra Koşullu biçimlendirme - Yeni Kural - Biçimlendirilecek hücreleri belirlemek için formül kullan - formül kutuçuğuna

=VE($N1<>"";$N1=0)

Bu formülü yazın ve biçim'i ayarlayın. 2 Kere tamam diyerek kapatın. Koşullu biçimlendirme ekranını da tamam diyerek kapatın.
Hücreye 0 ( sıfır ) yazarak deneyin.

 

[e_e_engineer]

Bunu makro olarak yazmanız mümkünmü. Çünkü ilgili çalışma sayfamda protect şifresi var ve sizin verdiğiniz şekilde sorun yaşanıyor.

 

[İhsan Tank]

Bunu makro olarak yazmanız mümkünmü. Çünkü ilgili çalışma sayfamda protect şifresi var ve sizin verdiğiniz şekilde sorun yaşanıyor.

Şifreyi kaldırın dosyanızı makrolu şekilde ekleyin bakalım nasıl bir makro var ona göre düzenliyeyim tek makro ile işinizi halledin.

 

[e_e_engineer]

Makro dosyasının uzantısı ek olarak eklenebilecek dosyalar listesinde yok. Ayrıca siz sadece belirttiğim şekilde makroyu oluşturabilirseniz ben Application.Run komutu ile oluşturduğunuz makroyu çalıştırabilirim. Teşekkürler...

 

[İhsan Tank]

Makro dosyasının uzantısı ek olarak eklenebilecek dosyalar listesinde yok. Ayrıca siz sadece belirttiğim şekilde makroyu oluşturabilirseniz ben Application.Run komutu ile oluşturduğunuz makroyu çalıştırabilirim. Teşekkürler...

Merhaba
Boş bir module kopyalayın ve deneyin.

Option Explicit
Sub boya_61()
Dim ts, trabzonspor, hamsi As Date
trabzonspor = MsgBox("Sıfırları Boyuyorum", vbYesNo, "Onay")
If trabzonspor = vbNo Then Exit Sub
Application.ScreenUpdating = False
hamsi = Time
For ts = 2 To Cells(Rows.Count, "N").End(xlUp).Row
If Cells(ts, "N") = 0 Then
Cells(ts, "N").Interior.Color = vbBlue
End If
Next
Application.ScreenUpdating = True
MsgBox Format(hamsi - Time, "hh:mm:ss") & vbLf _
& "Sürede Boyama Tamamlandı", , "Bitiş"
End Sub

 

[e_e_engineer]

bu makroya ek olarak hücre değerleri 0(sıfır) olmayanların hücre rengi beyaz olsun komutu ekleyebilir miyiz. Çünkü bir sonraki verileri yapıştırdığımda bir önceki verilerde 0(sıfır) olanlardan kalan mavi hücreler öylece duruyor.

 

[İhsan Tank]

bu makroya ek olarak hücre değerleri 0(sıfır) olmayanların hücre rengi beyaz olsun komutu ekleyebilir miyiz. Çünkü bir sonraki verileri yapıştırdığımda bir önceki verilerde 0(sıfır) olanlardan kalan mavi hücreler öylece duruyor.

Merhaba

Option Explicit
Sub boya_61()
Dim ts, trabzonspor, hamsi As Date
trabzonspor = MsgBox("Sıfırları Boyuyorum", vbYesNo, "Onay")
If trabzonspor = vbNo Then Exit Sub
Application.ScreenUpdating = False
hamsi = Time
For ts = 2 To Cells(Rows.Count, "N").End(xlUp).Row
If Cells(ts, "N") = 0 Then
Cells(ts, "N").Interior.Color = vbBlue
Else
Cells(ts,"N").Interior.Colorindex=xlNone
End If
Next
Application.ScreenUpdating = True
MsgBox Format(hamsi - Time, "hh:mm:ss") & vbLf _
& "Sürede Boyama Tamamlandı", , "Bitiş"
End Sub

Şeklinde deneyin.

 

[e_e_engineer]

yardımlarınız için teşekkürler

 

[İhsan Tank]

yardımlarınız için teşekkürler

Rica ederim
:keyif: