Makro ile satır ve sütun seçimi

[ASLAN7410]

Merhaba herkese hayırlı geceler.

Ekte gönderdiğim excel sayfasında gerekli açıklamaları yaptım.

Bir türlü sayfaya istediğimi yapamadım, yardım edecek arkadaşlara şimdiden teşekkür ederim.

http://s6.dosya.tc/server4/6y3bwg/Ornek.xls.html

 

[Orion1]

Dosyanız ektedir.

Private Sub Worksheet_SelectionChange(ByVal X As Range)
    If Intersect(X, Range("A1:N1000")) Is Nothing Then Exit Sub
    Cells.Interior.ColorIndex = xlNone
    Range(Cells(X.Row, "A"), Cells(X.Row, X.Column)).Interior.Color = vbYellow
    Range(Cells(1, X.Column), Cells(X.Row, X.Column)).Interior.Color = vbYellow
End Sub

 

[ASLAN7410]

Sayın Evren Bey ilginiz için çok teşekkür ediyorum, ellerinize sağlık tam istediğim gibi oldu.

Hayırlı geceler.

 

[Ömer BARAN]

Merhaba.
Yapmak istediğniz tam olarak; (1'inci satır ve A sütunu seçildiğinde işlem yapılmayacak şekilde)
-- seçilen hücrenin bulunduğu satırda A sütunundan seçili hücreye kadarki satır kısmının
-- seçilen hcrenin bulunduğu sütunda 1'inci satırdan seçili hücreye kadarki sütun kısmının
renklendirilmesi midir?

 

[Ömer BARAN]

Nedenini anlayamadım, aynı mesaj iki kez eklenmiş olduğundan bunu sildim.

 

[Orion1]

Sayın Evren Bey ilginiz için çok teşekkür ediyorum, ellerinize sağlık tam istediğim gibi oldu.

Hayırlı geceler.

Rica ederim.
İyi geceler.

 

[ASLAN7410]

Sayın Ömer Bey ilginiz için çok teşekkür ediyorum, Sayın Evren Bey sorunumu çözdü.

Herkese hayırlı geceler.

 

[ASLAN7410]

Sayın Üstadlarım ekte gönderdiğim örnekte gibi, kodları uyarlar mısınız?

 

[vardar07]

Aşağıdaki satırı diğeri ile değiştirip denermisiniz.

Range(Cells(X.Row, "A"), Cells(X.Row, X.Column)).Interior.Color = vbYellow

Range(Cells(X.Row, "A"), Cells(X.Row, "N")).Interior.Color = vbYellow

 

[ASLAN7410]

Sayın Vardar07 ilginiz için çok teşekkür ediyorum, tam istediğim gibi olmuş, hayırlı geceler.