Renkli Hücrelerin Kopyalanması

[ugur111]

Merhaba ;

Sorunum , A1:A8 arasında kimisi renksiz hücrelerim var , bunları B1:B8 arasına kopyalamak istiyorum , renkli olan hücrelerin değerleri zaten B1:B8 aralığında karışık olarak mevcut , bu kopyalama işleminde sadece A sütunundaki renksiz değerleri B1:B8 arasındaki boşluklara yerleşecek ,teşekkür ederim .

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Sub aktar()
For a = 1 To [a65536].End(3).Row
If Cells(a, "a").Interior.ColorIndex = 6 And Cells(a, "b") = 0 Then Cells(a, "b") = Cells(a, "a")
Next
End Sub

 

[ugur111]

renk indisi kullanarak kopyalama

Merhaba ;

Öncelikle Levent Hocadan özür dilerim ,sorunumu yanlış aktardım ve verilen makro çalışmadı .Sorunum , A1:A8 arasında kimisi renksiz hücrelerim var , bunları B1:B8 arasına kopyalamak istiyorum , renkli olan hücrelerin değerleri zaten B1:B8 aralığında karışık olarak mevcut , bu kopyalama işleminde sadece A sütunundaki renksiz değerleri B1:B8 arasındaki boşluklara yerleşecek ,teşekkür ederim .

 

[ugur111]

Yardımcı olabilecek kimse yok mu ? acaba

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Sub aktar()
For a = 2 To [a65536].End(3).Row
If Cells(a, "a").Interior.ColorIndex <> 6 Then
[b2:b9].SpecialCells(xlCellTypeBlanks).Cells(1) = Cells(a, "a")
End If
Next
End Sub

 

[ugur111]

Levent hocam ;

Size yolladığım sayfada çalışıyor , ancak koşullu biçimlendirme bulunan sayfamda çalışmıyor , örnekte a sütunundaki hücrelerde 2 koşul var , Eğersay(A1:B14;A1)=2 ise turuncu , Eğersay(A1:B14;A1)2 ise siyah , makro çalışırken bu renkleri(koşuldan kaynaklanan) dikkate almıyor ve hata veriyor . Yardımlarınız ve sabrınız için teşekkür ederim .

 

[Levent Menteşoğlu]

Renklendirmenin koşullu biçimlendirme ile yapıldığını belirtseydiniz baştan sorununuzu çözmüş olurduk. Aşagıdaki kodu deneyin.

Sub aktar()
For a = 1 To [a65536].End(3).Row
If WorksheetFunction.CountIf([a:b], Cells(a, "a")) <> 2 Then
[b:b].SpecialCells(xlCellTypeBlanks).Cells(1) = Cells(a, "a")
End If
Next
End Sub