(15/01/2017, 21:56)turankr yazdı: Sayfanızı inceledim. Pazartesi telefonla arayacağım

İletişim sayfasından

Excel olarak çözüm bulabilir miyiz? Vba ile

Daha öncede dediğim gibi,excel bilmiyorum ancak çogu insan exceli terk ederek acces ve vb net programlara geçiyor,exceli artık ileride veri çogaldıkça sıkıntı yaptıgını biliyoruz,bundan dolayı ileride işyerinizde sıkıntı yaşamamak için bence sizde bunu gözden geçirmelisiniz.

Size mail attım, Pazartesi görüşelim.

F sütununa tıklayınca çalışır.
Herhangi yere tıklayınca çalışması için ise If Target.Column = 6 And Target.Row > 1 Then burayı ve en sondaki End If bunu siliniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim s As Long

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

        Sheets("RAPOR_2").Cells.ClearContents

        For i = 1 To Range("F5000").End(3).Row

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

            s = s + 1

            Sheets("RAPOR_2").Range("A" & s & ":M" & s).Value = Range("A" & i & ":M" & i).Value

atla:

        Next i

    End If

End Sub