- Katılım
- 30 Ekim 2019
- Mesajlar
- 2
- Excel Vers. ve Dili
- 2016
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 1 Then
Cells(Cells(Rows.Count , 2).End(3).Row + 1, 2) = Target
End If
Application.EnableEvents = True
End Sub
Merhaba sayın mkadoglu lütfen konulari karıştırmayalım , yardim isteğiniz hangi konu üzerinde ise mesajlarinizi o konu üzerinde yazınız. Bu şekilde karışıklığa sebep olabilir.