kopyalama

[esad45]

arkadaşlar elimde süzlü bi liste var bu listede verenleri işaretlemek istiyorum bir satır işaretleyip altını çekmek istiyorum ama boş satırlarıda atıyo nasıl çözmek lazım

 

[oburs]

örnek eklerseniz..

örnek eklerseniz..yardımcı olmak isterim

 

[nonsuch]

altını çekmek yerine kopyalayıp diğer satırlara yapıştırmayı denerseniz sorununuz çözülür sanırım.

 

[Seyit Tiken]

Aşağıdaki kodu ilgilli sayfanın kod bölümüne kopyalayıp deneyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [A1:A200]) Is Nothing Then Exit Sub
Selection.Interior.ColorIndex = 40
End Sub