excel içersindeki bir verinin bulunup değiştirilmesi

[coderozkan]

Merhaba arkadaşlar;

örneğin (a1:k50) gibi bir aralık içindeki boş hücreleri bulup dolgu rengini belirlediğimiz bir renge (örneğin sarı) dönüştürebilen vba kodunu yazabilirmisiniz.

Teşekkürler

 

[Ömer]

Merhaba,

Sub Renk()
For Each hücre In Range("A1:K50")
If hücre = "" Then
hücre.Interior.ColorIndex = 6
End If
Next
End Sub

.

 

[Necdet]

Merhaba,

Kodları biraz kısaltmak istersek :

Sub Makro1()
Range("A1:K50").SpecialCells(xlCellTypeBlanks).Interior.ColorIndex = 6
End Sub

 

[coderozkan]

Tşekkür ederim

Tşekkür ederim ilginiz için

 

[Orion1]

Bu işler için koşullu biçimlendirme biçilmiş kaftandır.

 

[Necdet]

Bu işler için koşullu biçimlendirme biçilmiş kaftandır.

Doğru söze ne denir ki?

 

[Ömer]

Uygulamasıda benden olsun,

A1:K50 aralığını fare ile seçtikten sonra Biçim / Koşullu Biçimlendirmeden Formül bölümüne,

=A1=""

yazarak biçimden sarı rengi seçin ve tamam butonuna basınız.

Detaylı bilgi için,

Koşullu biçimlendirme (condıtıonal formattıng)

.

 

[coderozkan]

Merhaba

Arkadaşlar aynı çalışma kitabı içinde farklı sayfalarda olan fiyat listeleri ile ilgili bir karşılaştırma yapmak isyiyorum aynı verileri içeren hücreler bir renge eşi bulunamayan veriler ise başka bir renge boyansın istiyorum

eğer forumda benzer bir kod verilmişse şimdiden özür dilerim


Teşekkürler

 

[coderozkan]

Sayın Ömer sizin verdiğniz kodu çalıştıramadım

Sub Renk()
For Each hücre In Range("A1:K50")
If hücre = "" Then
hücre.Interior.ColorIndex = 6
End If
Next
End Sub

ancak nejdet beyin verdiği kodu çalıştırabildim

teşekkürler

 

[Ömer]

Sorunuz çözüldüyse hangi kodu kullandığınız önemli değil. Ekte dosyayı ekledim. Herhangi bir sorun yok gibi. Ayrıca yeni eklenen veriyi görmesi için küçük de bir değişiklik yaptım. Eki inceleyiniz..

Sub Renk()
For Each hücre In Range("A1:K50")
[COLOR=red]hücre.Interior.ColorIndex = xlNone[/COLOR]
If hücre = "" Then
hücre.Interior.ColorIndex = 6
End If
Next
End Sub

.