Aynı veri iceren tum satırları secmek

[sasar]

Merhabalar,
elimde 1000 satırlık bir konusma metni var...detay vermeyeyim uzun sürer, sadece excel ile acmak ve yapmak zorundayım diyeyim.

karsılıklı konusmalar var alt alta:
osman: merhaba....
kerim: iyilik sende....

gibi gidiyor
Yani icinde osaman olan tum satırları secmek(tek tek secmekle ugrasmak istemiyorum) istiyorum ve tum bu satırların yazı rengini degsitirmek istiyorum.

Osman nın soyledigi hersey mavi olsun, kerimin soyledigi hersey aynen kalısn.
Nasıl yapabilirim?
ve ilk yazım bu benim, forumda arama yaptım, fakat sevinirim bana acıklama yaparsanız:
su tarif ettigim gibi birseyi forum icinde nasıl arayabilirdim, arayıp da benzerini bulabilirseniz bana hangi arama sozcukleri veya kriterlerini yazmam gerektigini veya gerekebilecegini onerir misiniz?

tesekkurler

 

[ECYavuz]

Aşağıdaki kodu deneyin isterseniz.

Sub mukerrer()
For a = 1 To [a65536].End(xlUp).Row
If Left(Cells(a, 1),5).Value = "osman" Then
Cells(a, 1).Interior.ColorIndex = 3
Elseif Left(Cells(a, 1),5).Value = "kerim" Then
Cells(a, 1).Interior.ColorIndex = 5
End If
Next
End Sub

 

[sasar]

bu kodu nereye yazacağım ki?
format secenegi icinden conditional formatting mi demek istiyorsunuz?
conditional formatting secenegi altında ben bu kadar cok bilgi girebilecek bir opsiyonla karsılasmadım

 

[ECYavuz]

Selam;

Aşağıdaki kodu;
Kod penceresindeki Microsoft Excel Object altındaki ThisWorkbook içine veya bir modul ekleyip (Module1 gibi), onun içine kopyala yapıştır yapın. Excel sayfasını açıp, çıkan makroları etkinleştiri tıklarsanız, Otomatik sayfadaki renklendirmeleri yapacaktır.

Sub Auto_open()
For a = 1 To [a65536].End(xlUp).Row
If Left(Cells(a, 1),5).Value = "osman" Then
Cells(a, 1).Interior.ColorIndex = 3
Elseif Left(Cells(a, 1),5).Value = "kerim" Then
Cells(a, 1).Interior.ColorIndex = 5
End If
Next

End Sub

 

[avcikurt]

Yardım

aRKADAŞLAR YARDIMINIZ BEKLİYORUM MAKROYLA EXCELDE ÖRNEĞİN A SÜTÜNUNDA BULUAN SATIRLARDA (AA-BA-BB-CC) HARFLERİ BULUNAN SATIRLARI SİLİP YUKARI ÖTELEMEK İSİTİYORUM YARDIMCI OLURSANIZ SEVİNİRİM TEŞEKKÜRLER