hücrenin içeriğini değiştirmeden yan hücrenin rengini vermek

[mdemirgiller]

herkese iyi çalışmalar..

ben b sütunundaki hücrelerin renklerini c sütunundaki hücrelere c sütunundaki hücrelerin içeriği aynı kalacak şekilde aktarmak istiyorum.yardım edebilirseniz sevinirim.

 

[uzmanamele]

merhaba

bu koşullu biçimlendirme mi makro sorusu mu?
örnek dosya ekleyiniz.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub RENKLENDİR()
    Dim HÜCRE As Range
    
    For Each HÜCRE In Range("B1:B" & Range("B65536").End(3).Row)
    HÜCRE.Offset(0, 1).Interior.ColorIndex = HÜCRE.Interior.ColorIndex
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[mdemirgiller]

makro sorusu

makroyla ilgili bi soru yani koşullu biçimlendirmeyle değil de bi makroyla halletmek istiyorum ama çözemedim. dosyayı da ekledim görüceksiniz, b sütunundaki renkli hücreleri aynı sırayla c sütununa renkli olucak hücrelerin içerikleri değişmeden taşımak istiyorum yani kısaca yanındaki hücrenin rengi sarı olduğu için sırasıyla c2 c3 c6 c9........ sarı olucak.yan hücresinde hangi renk varsa hücre o renk boyanıcak yani

teşekkür ederim

 

[mdemirgiller]

Sn. Korhan Ayhan

teşekkür ederim ancak hiçbir değişiklik olmadı çalışmamda.

 

[Necdet]

Merhaba,

Korhan Bey'in kodlarını değiştirerek kullanabilirsiniz.

Sub RENKLENDİR()
    Dim HÜCRE As Range
    
    For Each HÜCRE In Range("a1:a" & Range("a65536").End(3).Row)
    HÜCRE.Offset(0, 2).Interior.ColorIndex = HÜCRE.Offset(0, 1).Interior.ColorIndex
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[mdemirgiller]

ilgilenen herkese çok çok teşekkür ederim iyi çalışmalar.istediğim iş gerçekleşti sağlun...

 

[Korhan Ayhan]

Selamlar,

Çalışmanızda B sütunundaki hücrelerin boş olduğunu belirtmediğiniz için ben kodu ona göre önermiştim. Eğer belirtseydiniz alacağınız yardımda bu yönde olacaktı. Bundan sonraki sorularınızda bu tarz detaylara dikkat etmenizi rica ederim.