hücrede seçilen değere göre ilgili satıra geçme

[ANKARA1974]

İyi akşamlar;

Aşağıda açıkladığım uygulamanın yapılabilirliği var mıdır?

Çalışma sayfasındaki % sütünunda yapılan seçime göre (çift tıklama) önce seçimi yapılan hücre renk değiştirecek ve sonra ilgili satıra imleç geçecek ve en sonunda yapılan seçime göre genel toplam alınacak. Seçim ve toplam sürekli yapılacak.

ÖRNEĞİN A104'de (5.satır-D5 hücresi) 75% sütunundaki B103 seçilmiş (çift tıklama) ise önce bu B103 hücresinin rengi değişecek ve daha sonra imleç 11.satıra (yani B103 satırına-A11 hücresine geçecek) ve toplam değerinde 75% için 1 olacak. Daha sonra bu seçim ve toplam işlemi aynı mantıkla devam edecek.

 

[Ömer BARAN]

Merhaba.

Alt taraftan sayfa adına ( Sayfa1 ) fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçin,
açılan ekranın sağ tarafındaki boş alana aşağıdaki kod'u yapıştırın.
.

[B][COLOR="blue"][FONT="Arial Narrow"]Private Sub Worksheet_BeforeDoubleClick[/COLOR][/B](ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [A2:E29]) Is Nothing Then Exit Sub
If WorksheetFunction.CountIf(Range("A1:A29"), Target) = 0 Then Exit Sub
    sütun = Target.Column
    satır = WorksheetFunction.Match(Target, Range("A1:A29"), 0)
Target.Interior.ColorIndex = 3
    Cells(satır, 1).Activate: Cells(31, sütun) = Cells(31, sütun) + 1
[B][COLOR="Blue"]End Sub[/FONT][/COLOR][/B]

 

[ANKARA1974]

Elinize sağlık. Tam istediğim gibi olmuş.

Teşekkür ederim.

 

[Ömer BARAN]

Elinize sağlık. Tam istediğim gibi olmuş.

Teşekkür ederim.

İyi günler dilerim.