Düşeyarada bu seçenek nasıl oluşturulur?

[İhsan Tank]

Doğrudur hocam.

sayfanın kod bölümünde bulunan kodu bununla değiştirin ve deneyin.

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 5 Then
If Intersect(Target, Range("C5")) Is Nothing Then Exit Sub
Dim ts, kaplan
Application.ScreenUpdating = False
Range("C6:C9,M:M").ClearContents
kaplan = 1
For ts = 2 To Sheets("Sayfa1").Cells(65536, "B").End(xlUp).Row
If Sheets("Sayfa1").Cells(ts, "B") = Range("C5") Then
Cells(kaplan, "M") = Sheets("Sayfa1").Cells(ts, "E")
kaplan = kaplan + 1
If WorksheetFunction.CountA(Range("M:M")) > 1 Then
Range("C6:C9") = ""
Else
Range("C8") = Range("M1")
End If
End If
Next
Application.ScreenUpdating = True
ElseIf Target.Row = 8 Then
If Intersect(Target, Range("C8")) Is Nothing Then Exit Sub
For ts = 2 To Sheets("Sayfa1").Cells(65536, "B").End(xlUp).Row
If Sheets("Sayfa1").Cells(ts, "B") = Range("C5") And _
Sheets("Sayfa1").Cells(ts, "E") = Range("C8") Then
Range("C6") = Sheets("Sayfa1").Cells(ts, "C")
Range("C7") = Sheets("Sayfa1").Cells(ts, "D")
Range("C9") = Sheets("Sayfa1").Cells(ts, "F")
End If
Next
End If
End Sub

 

[mirefe]

Olmuş Üstad.
Gerekli olan buydu.Vakit ayırdınız,emek verdiniz.Teşekkür ederim.

 

[İhsan Tank]

Olmuş Üstad.
Gerekli olan buydu.Vakit ayırdınız,emek verdiniz.Teşekkür ederim.

rica ederim
:yazici: