Birden fazla hücre seçme

[ugurbocegii]

:yardim:

EKTEDE AÇIKLAMALI BİR ŞEKİLDE BELİRTTİĞİM ÜZERE ÖZEL TABLOLARIMDA HANGİ TABLODAN SEÇERSEN SEÇTİĞİMİN KARŞILIĞINI İŞARETLEMESİ VE RAPORLAMASINI RİCA EDİYORUM.

ŞİMDİDEN TEŞEKKÜR EDERİM.

 

[fireman64]

Dosyanız ektedir.

 

[ugurbocegii]

Hocam eline sağlık gerçekten emek harcamışsın.

Ama çözümüm bu şekilde değildi mouse ile A Tablomdaki 15.kutuya tıkladığımda diğer B & C ve D Tablolardaki aynı sırada bulunan diğer 15 numaralı kutuları kendisinin işaretlemesi şeklinde olması gerekiyordu Yukarı sol tarafta bulunan Tabloyada otomatik seçtiğimin hücrelerdeki verinin raporunu yazması gerekiyordu. İlgin için teşekkür ederim.

 

[Necdet]

Merhaba,

Konu başlığınızdaki Help Please gibi sözcükleri çıkarttıktan sonra aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayıp deneyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
    If Intersect(Target, [B:K,M:V,AI:AR,BC:BL]) Is Nothing Or Target.Row < 7 Or Target.Value = "" Then Exit Sub
    
    Dim Kol
    Dim i   As Integer
    Dim j   As Integer
    
    Kol = Array(12, 23, 45, 65)
    
    For j = 0 To 3
        If Target.Column < Kol(j) Then
            i = Kol(j) - Target.Column
            Range("E2") = Cells(Target.Row, Kol(0) - i)
            Range("E3") = Cells(Target.Row, Kol(1) - i)
            Range("E4") = Cells(Target.Row, Kol(2) - i)
            Range("E5") = Cells(Target.Row, Kol(3) - i)
            Exit For
        End If
    Next j
    
End Sub

 

[Necdet]

Herhangi bir yorum yapılmamış.

Olmuş mu olmamış mı? Neden geri dönüş yapmazlar ki bu arkadaşlar anlayamıyorum.