15/01/2017, 21:58
15/01/2017, 21:58
İletişim sayfasından
15/01/2017, 21:59
Excel olarak çözüm bulabilir miyiz? Vba ile
15/01/2017, 22:05
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.
15/01/2017, 22:06
Size mail attım, Pazartesi görüşelim.
19/03/2021, 21:32
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.
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