büyük Harfli ve Renki satırları yan sütuna kopyalama

[muratfix]

Arkadaşlar acil yardımınıza ihtiyacım var. elimde düzenlemem gereken bir liste var... benim sizden istediğim bazı satırladaki tamamı büyük harf ve kırmızı ile yazılmış veriyi hemen yan satıra kod ile ya da fonksiyon ile nasıl kolayca kopyalayacağım. toplam da 10bin satırlık bir veri var ve bunların 1000 tanesi bu şekilde büyük harf ve renkli. lütfen yardımlarınızı dört gözle bekliyorum

 

[Necdet]

Merhaba,

Sorunuzu örnekleyerek açıklayınız.

 

[hamitcan]

Aşağıdaki gibi deneyiniz.

Sub BuyukveKirmizi()
 For i = 1 To [a65536].end(3).row
    If Cells(i, 1) = UCase(Cells(i, 1)) Then Cells(i, 2) = Cells(i, 1)
    If Cells(i, 1).Font.Color = vbRed Then Cells(i, 2) = Cells(i, 1)
 Next
End Sub