Buda başka yöntem

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim s As Long, arr(), x As Byte, son As Long

    Const sutun As Byte = 13

    son = Range("F5000").End(3).Row

    ReDim Preserve arr(1 To son, 1 To sutun)

    If Target.Column = 6 And Target.Row > 1 Then

        Sheets("RAPOR_2").Cells.ClearContents

        For i = 1 To son

            If (Cells(i, "F") = "") Then GoTo atla

            s = s + 1

            For x = 1 To sutun

                arr(s, x) = Cells(i, x).Value

            Next

atla:

        Next i

        If s > 0 Then Sheets("RAPOR_2").Range("A1").Resize(s, sutun).Value = arr

    End If

End Sub

[quote="feraz" pid="178541" dateline="1616178725"]
F sütununa tıklayınca çalışır.
İlginize çok teşekkür ederim. Memnun kaldım. Tavsiyenizi hemen uygulayacağım.