Yazı rengine göre makro

[batman53]

Daha önce bu konuyla ilgili açılmış tüm konuları okudum ancak hiçbiri sorunuma çözüm olmadı.

Excel sayfamda bir kolondaki yazıların rengine göre, bir başka kolonda metin oluşturmak istiyorum. Örnek: A2 de kırmızı ile yazılmış bir yazı varsa onu B2 de göster, ama A3 de kırmızı ile yazı yoksa, (B3 için) B2 deki değeri al. A4 de kırmızı ile yazılmış yazı varsa B4' te bu yazıyı kullan şeklinde devam edecek.

Zor ama Umarım biri yardım eder. Şimdiden Teşekkürler...

 

[apocalyt]

boş bir modüle kopyalayıp denermisinz..verilerinizin a2 den başladığı varsayıldı..


Sub deneme()
Dim x As Long
For x = 2 To [a10000].End(3).Row
If Cells(x, 1) = "" Then
GoTo gel
ElseIf Cells(x, 1).Font.Color = vbRed Then
Cells(x, 2) = Cells(x, 1)
Else
Cells(x, 2) = Range("b" & x).End(3).Value
End If
gel:
Next x
End Sub

 

[batman53]

Çok teşekkürler ufak bir şey daha vardı

A sütununda boşluk varsa B de değer almasın. Örnek
A sütünu B sütunu
ALİ ALİ
Veli ALİ
boş(yazı yok) Boşluk
Sevgi ALİ
Ahmet Ahmet

 

[apocalyt]

yukarıdaki mesajda bulunan kodu değiştirdim..tekrar dener misiniz..

 

[batman53]

çok sağolun

çok teşekkürler.... 2 gündür bununla uğraşıyordum...

 

[apocalyt]

rica ederim..