Açılan Kutuda seçtiğim veriyi süzmek

[ferhatgurbuz]

Arkadaşlar aşağıdaki kodu ile bilgileri bir sayfadan başka sayfaya aktarıyorum. Ama benim istediğim Açılıan kutuda ne yazıyorsa onun olduğu satırı aktarsın

Örnek BW sütununda mahkeme adları var Ben açılan kutudan 1.İdare mahkemesini seçmişsem bana belgedeki tüm 1.İdare mahkemesinde olanları aktarsın




Sub SÜZ()
Dim Hucre As Range
Set shD = Sheets("Data")
Set shA = Sheets("ÖZEL")
Y = 11
For Each Hucre In shD.Range("BW11:BW305")
If IsError(Hucre) = True Then: GoTo f1
If Hucre.Value = 0 Or Hucre.Value = "" Then: GoTo f1
shA.Cells(Y, 1) = shD.Cells(Hucre.Row, 1)
shA.Cells(Y, 2) = shD.Cells(Hucre.Row, 2)
shA.Cells(Y, 3) = shD.Cells(Hucre.Row, 3)
shA.Cells(Y, 4) = shD.Cells(Hucre.Row, 4)
shA.Cells(Y, 5) = shD.Cells(Hucre.Row, 5)
shA.Cells(Y, 6) = shD.Cells(Hucre.Row, 6)
shA.Cells(Y, 7) = shD.Cells(Hucre.Row, 7)
shA.Cells(Y, 8) = shD.Cells(Hucre.Row, 8)
shA.Cells(Y, 57) = shD.Cells(Hucre.Row, Hucre.Column)
Y = Y + 1


f1:
Next
Set shD = Nothing
Set shA = Nothing
End Sub