Aleyküm selam abey dosyayı inceleyin.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Dim bul As Range, i As Integer, say As Integer



With Sayfa7

    .Range("C9:i16").ClearContents

    If Not Intersect(Target, Range("A6:A" & Rows.Count)) Is Nothing Then Exit Sub

    Set bul = Range(Cells(Target.Row, 8), Cells(Target.Row, 18)).Find("Görevli", , xlValues, 1)

    say = 3

        .Range("C9").Value = Target.Value

        .Range("C10").Value = Target.Offset(, 3).Value

        .Range("C12").Value = Target.Offset(, 1).Value

        .Range("C11").Value = Target.Offset(, 2).Value

    If Not bul Is Nothing Then

        For i = 8 To 18 '8=H  18 =r sütun

            If LCase(Cells(bul.Row, i).Value) = "görevli" Then

                .Cells(15, say).Value = Cells(5, i).Value

                say = say + 1

            End If

        Next

    End If

End With

Set bul = Nothing

MsgBox "Aktarildi", vbInformation + vbOKOnly, "Bitti"

End Sub