hücre renklendiğinde hücre değerinin başka bir hücreye taşınması

[gezgin-49]

arkadaşlar excelde herhangi bir hücrede bulunan değer renklendiğinde aynı sayfada başka bir hücreye taşınmasını (kes kopyala şeklinde) istiyorum mümkünmü mesela B6 hücresinde bulunan 6 sayısı sarı renkle yapılınca aynı sayfada B22 hücresine taşınması mümkünmü,

 

[ileriexcel]

Sub TEST()
If Range("b6").Interior.ColorIndex = 6 Then
Range("b6").Cut
Range("B22").Select
ActiveSheet.Paste
End If
End Sub

 

[gezgin-49]

renklenen hücrenin taşınması

Sub TEST()
If Range("b6").Interior.ColorIndex = 6 Then
Range("b6").Cut
Range("B22").Select
ActiveSheet.Paste
End If
End Sub

sayın üstadım teşekkürler istediğim sorunun cevabını verdiniz ama ben sorumu eksik sordum sorum tam olarak şöyle aynı renkte olan hücrelerin yanyana gelmesi mümkünmü ekteki örnekte olduğu gibi

 

[hamitcan]

Eki inceleyin. Yaptığım örnekte, B25 ile W33 hücre aralığında herhangi bir hücreye çift tıkladığınızda, rengine göre ilgili bölgeye aktarıyor. B25 ile W33 hücre aralığında gezinirken arka plan rengi değişiyor.(Tabiî ki Z28 hücresine belirteceğiniz dolgu renginin numarasına göre)

 

[gezgin-49]

Sayın Hamitcan Allah razı olsun ellerinize, emeğinize sağlık, çok teşekkür ederim, iyi akşamlar.