Makronun sadece değerleri kopyalaması

[akmes]

Merhaba, aşağıdaki makroda G sütunundaki renkli olan hücreleri O sütununa aktarıyorum. Fakat G sütunu koşullu biçimlendirme ile renklendirdiğim için O sütununa da aynı koşullu biçimlendirme ile dolgulu aktarıyor. Sadece değerleri O sütununa aktarabilir miyiz. Yardımlarınızı rica ediyorum.

Sub KOPYALA()
Range("o").Clear
Satir = 2
Son = Cells(Rows.Count, "g").End(3).Row
For Each Veri In Range("g2:g" & Son)
If Veri.Interior.ColorIndex = 6 Then
Veri.Copy Cells(Satir, "o")
Satir = Satir + 1
End If
Next
MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[Muzaffer Ali]

Merhaba.

Aşağıdaki satırı silin

Veri.Copy Cells(Satir, "o")

Onun yerine aşağıdaki satırı ekleyin.

Cells(Satir, "o") = Veri

 

[akmes]

Merhaba.

Aşağıdaki satırı silin

Veri.Copy Cells(Satir, "o")

Onun yerine aşağıdaki satırı ekleyin.

Cells(Satir, "o") = Veri

Sn Muzaffer Ali Bey, evet düzeldi. Yardımınız için çok teşekkür ederim.