Zemini renklendirilen hücrenin başka hücreye kopyalanması

[generation]

Merhaba,

Sorum şu. A sütununda 3000 adet civarı email var ve ben işime yarayanları sarı marker ile işaretliyorum. Zemini sarı renk ile işaretlediğim de B sütununa kopyalanmasını istiyorum. Mümkün müdür?

 

[rabbace]

Günaydın,

Aşağıdaki kodları farklı butonlara atayıp dener misiniz?

Tüm verileri sarı boyayıp en son butona tıklarsanız sarı boyalı olanlar hemen yanındaki hücreye kopyalanır.

Değer yapıştırmak için;

Sub Makro2()

Application.ScreenUpdating = False

For i = 1 To 3000

Range("A" & i).Select

If Range("A" & i).Interior.Color = vbYellow Then

Selection.Copy

Range("C" & i).Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False

Else

End If

Next i

Range("A1").Select


End Sub

Biçimlendirme ile birlikte yapıştırmak için;

Sub kopyala()

Application.ScreenUpdating = False

For i = 1 To 3000

Range("A" & i).Select

If Range("A" & i).Interior.Color = vbYellow Then

Selection.Copy

Range("B" & i).Select

ActiveSheet.Paste

Application.CutCopyMode = False

Else

End If

Next i

Range("A1").Select


End Sub

 

[generation]

Teşekkürler ancak bu kodu nereye yapıştırmam gerekiyor?

 

[rabbace]

Öncelikle makroları aktif etmeniz lazım. Excel 2003 mü kullanıyorsunuz? Profilde yazan doğru mu?

 

[Korhan Ayhan]

Merhaba,

Dosyanızı açın.
ALT+F11 tuşlarına basıp kod editörünü açın.
Üst menüden INSERT-MODULE seçeneğini seçin.
Sağ tarafa beyaz bir pencere açılacak.
O bölüme verilen kodları uygulayın.

Son olarak sayfanıza bir şekil ekleyin. Şekle sağ tıklayıp MAKRO ATA seçeneğini seçin.
Şekle tıkladığınızda kod çalışacaktır.

Ek olarak linki inceleyin.

Dosyayı kayıt ederken dosya türünden "MAKRO İÇEREBİLEN EXCEL DOSYASI" seçeneğini seçin.

 

[generation]

2010 kullanıyorum. Yardımlarınız için teşekkür ederim

 

[Korhan Ayhan]

Profilinizdeki bilgiyi güncellemeniz de fayda var.