seçilen hücrenin satır ve sütunu renkli

[ariftezer]

seçilen hücrenin satır ve sütunu renkli oluyor (böyle olmasını istiyorum), ama kopyalama ve yapıştırma yapamıyoruz, bu makroyu kopyala ve yapıştır a müsade edebilen hale getirebilirmiyiz...dosya ekleyemiyorum..yazılımı gönderiyorum..Private Sub Worksheet_SelectionChange(ByVal Target As Range)On Error Resume Nextsat = Target.Rowsut = Target.Columnadrs = Target.Addressadrss = Target.Offset(1 - sat, 0).Addressadr = "$A$" & sat & ":" & adrs & "," & adrss & ":" & adrsRange(adr).SelectRange(adrs).ActivateEnd Sub...

 

[ECYavuz]

Uzman arkadaşlarımızdan edindiğim bir kod var belki işinize yarar. Sayfanın kod kısmına yazın ve seyredin.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo son
Cells.Interior.ColorIndex = xlNone
Range(Cells(1, Target.Column), Cells(65536, Target.Column)).Interior.ColorIndex = 3
Range(Cells(Target.Row, 1), Cells(Target.Row, 256)).Interior.ColorIndex = 3
son:
End Sub

 

[ariftezer]

yazılım düzgün çıkmamış herhalde birdaha gönderiyorum.
ile başlayan her yazı bir yeni satırdır.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
sat = Target.Row
sut = Target.Column
adrs = Target.Address
adrss = Target.Offset(1 - sat, 0).Address
adr = "$A$" & sat & ":" & adrs & "," & adrss & ":" & adrs*Range(adr).Select
Range(adrs).Activate
End Sub

 

[ECYavuz]

Merhaba size gönderdiğim kodlar başlığınızdaki Satır ve Sütunu reklendirmeyi sağlayan kodlardı.

Kopyalama ve Yapıştırma ile örnek ise aşağıda;

KOPYALAMA YAPIŞTIRMA İŞLEMLERİ

Sub kopya()
Range("a1:a2").Copy
Range("b1").PasteSpecial xlPasteValues
Application.CutCopyMode = False
Range("a1:a2").Value = ""
End Sub

 

[ariftezer]

sayın ecyavuz benim gönderdiğim yazılım ile sizin kopyalama ile ilgili yazılımı ikisini bir arada nasıl kullanabilirim

 

[ariftezer]

öncelikle teşekkür ederim..Gönderdiğin yazılım güzel fakat, önceden renklendirilmiş hücrelerin hepsini yok ediyor... bir çözüm var mıdır?

 

[Recep İpek]

Bu konu ile ilgili yapmış olduğum çalışmayı aşağıdaki linkte bulabilirsiniz.


http://www.excel.web.tr/showthread.php?t=14377