Hücreye basıldığında sütun arasının seçilmesi

[ASLAN7410]

Merhaba arkadaşlar günaydın.

Excel sayfamda A1 ile Q5000 arasında verilerim var, benim istediğim satırdaki günü geçmiş bilgilerin silinmesini istiyorum.

Örnek A2 hücresine tıkladığımda B2 ile Q2 arasının seçilmesini ve zemin rengide maviye dönmesini istiyorum.

Yardımcı olacak arkadaşlara şimdiden teşekkür ederim.

 

[ASLAN7410]

Arkadaşlar konu hala günceldir.

 

[Murat OSMA]

Yasin Kurt Bey'in yanıtı;

[FONT="Trebuchet MS"][SIZE="2"]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
     If Intersect(Target, Range("a1:a5000")) Is Nothing Then Exit Sub
     Range("b" & Target.Row & ":q" & Target.Row).Select
End Sub[/SIZE][/FONT]

 

[ASLAN7410]

Murat Bey ilginize çok teşekkür ederim.

Konu ile ilgili olarak yeni sorunu aşağıdaki adrese yazdım, kontrol eder misiniz?

http://www.excelvba.net/viewtopic.php?f=4&t=22669&p=172027#p172027

 

[feridici_genc]

merhaba,
sorununuzun 2. kısmı için aşağıdaki kod yardımcı olabilir sanırım,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Application.CutCopyMode = xlCopy Or Application.CutCopyMode = xlCut Then Exit Sub
    Cells.Interior.ColorIndex = xlNone
    If Intersect(Target, [a1:Q5000]) Is Nothing Then Exit Sub
    Range(Cells(Target.Row, 1), Cells(Target.Row, 17)).Interior.ColorIndex = 6
    Range(Cells(Target.Row, 1), Cells(Target.Row, 1)).Interior.ColorIndex = 0
    End Sub

 

[ASLAN7410]

Sayın feridici_genc ilginize teşekkür ediyorum, bu kod sadece A ile Q arasındaki satırı seçmeden renklendiriyor, ben bu satırın seçilmesini istiyorum.

 

[feridici_genc]

gerçi sanırım Murat bey cevap vermiş ama ben yine de yazayım.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Application.CutCopyMode = xlCopy Or Application.CutCopyMode = xlCut Then Exit Sub
    Cells.Interior.ColorIndex = xlNone
    If Intersect(Target, [a1:Q5000]) Is Nothing Then Exit Sub
    Range(Cells(Target.Row, 2), Cells(Target.Row, 17)).Select
        End Sub

 

[ASLAN7410]

Sayın feridci_genc yardımlarınız için çok teşekkür ediyorum. Aşağıdaki kod ile tam istediğim gibi oldu. A ile Q sütunu arasında hangi hücreye tıklarsam satırı yeşil renge döndürüyor, A sütunundan hangi hücreye çift tıklarsam B ile Q sütunu arasındaki hücreyi kırmızı renk ile seçiyor.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
If Intersect(Target, [A1:Q5000]) Is Nothing Then Exit Sub
Range(Cells(Target.Row, 1), Cells(Target.Row, 17)).Interior.ColorIndex = 4
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("a1:a5000")) Is Nothing Then Exit Sub
Range("b" & Target.Row & ":q" & Target.Row).Select
Range(Cells(Target.Row, 1), Cells(Target.Row, 17)).Interior.ColorIndex = 3
End Sub

Küçük bir sorun daha var, çift tıkladığımda seçilen satırı delete ile silip entere bastığımda imleç aşağı hücreye geçmiyor.

 

[ASLAN7410]

Belki başkalarınında işine yarayabilir diye kodları ekliyorum.

Aşağıdaki kod A ile Q sütunu arasındaki hücrelere tıkladığımda imlecin bulunduğu satırı renklendiriyor.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Cells.Interior.ColorIndex = xlNone
    If Intersect(Target, [A1:Q5000]) Is Nothing Then Exit Sub
    Range(Cells(Target.Row, 1), Cells(Target.Row, 17)).Interior.ColorIndex = 4
End Sub

Aşağıdaki kod A sütunundan imlecin bulunduğu hücreye çift tıkladığımda ilgili satırı siliyor.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cells.Interior.ColorIndex = xlNone
    If Intersect(Target, Range("a1:a5000")) Is Nothing Then Exit Sub
    Range("a" & Target.Row & ":q" & Target.Row).Value = ""
    Target.Offset(1, 0).Select
End Sub

Herkese iyi çalışmalar.