Yeşil hücreleri kopyalama

[kemalist]

Arkadaşlar "A" sütununda bulunan listedeki yeşil hücreleri kopyalayıp x2 den başlayarak kopyalanmasıı.
Örnek dosya ektedir.
İlginiz için şimdiden teşekkür ederim.

 

[systran]

şu kodları deneyiniz.

Sub YESİL_KOPYALA()
ptr = 2
For i = 2 To 30
   If Sayfa1.Range("A" & i).Interior.Color = 11854022 Then
       Sayfa1.Range("X" & ptr).Value = Sayfa1.Range("A" & i).Value
       ptr = ptr + 1
   End If
  
Next i
End Sub

 

[kemalist]

DOSYADAKİ RENGİN KODU NEDİR

 

[systran]

11854022

 

[kemalist]

bu dosyada neden çalışmadı ki?

 

[systran]

16777215

 

[kemalist]

A Sütununda koşullu biçilendirme vardı söylemeyi unuttum kusura bakmayın.

 

[kemalist]

Arkadaşlar "A" sütununda bulunan listedeki yeşil hücreleri kopyalayıp x2 den başlayarak kopyalanmasıı.
A Sütununda koşullu biçilendirme var
Örnek dosya ektedir.
İlginiz için şimdiden teşekkür ederim.