En son dolu satır altına veri göndermek

[cebelitarık]

Forumun değerli üyeleri

Veri tabanı sayfasından sayfa2 ye veri kopyalamak istiyorum.
Örnek dosyayı ekledim yardımcı olacak arkaşlarıma şimdiden teşekkür ederim.
Saygılarımla

 

[leumruk]

Merhaba,

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("d2:d65536")) Is Nothing Or Target = "" Then Exit Sub
Cancel = True
Sat = [Sayfa2!d65536].End(3).Row + 1
Say = WorksheetFunction.CountIf(Sheets("Sayfa2").Range("d2:d" & Sat), Target)
If Say > 0 Then
Sor = MsgBox("Bu kayıt mevcut. Yinede eklemek istiyor musunuz?", vbYesNo, "UYARI")
If Sor = vbNo Then Exit Sub
End If
Sheets("Sayfa2").Cells(Sat, "d") = Target
Sheets("Sayfa2").Cells(Sat, "c") = Target.Offset(0, -1)
Sheets("Sayfa2").Cells(Sat, "b") = Target.Offset(0, -2)
Sheets("Sayfa2").Cells(Sat, "a") = Sat - 1
Sheets("Sayfa2").Select: Sheets("Sayfa2").Cells(Sat, "d").Select
MsgBox Target & " kimlik numarası aktarıldı.", vbInformation, "DURUM"
End Sub

TC kimlik numarasına çift tıklayın. Sadece son satırdaki tc numarası için işlem yapar. İsterseniz bu sınırlamayı kaldırabiliriz. Daha önce aktarılmış TC için uyarı mesajı alırsınız. Onaylarsanız aktarım gerçekleşir; aksi durumda aktarım iptal edilir.

 

[cebelitarık]

SAYIN LEUMRUK
İlginiz ve hızlı cevabınız için çok teşekkür ederim istediğime çok yakın olmuş.
Sizin de dedidiğiniz gibi sınırlamayı kaldıralım. Son satırdaki TC yi değilde veritabanı sayfasındaki aradaki bir satırdaki TC yi de çift tıklayarak ekleyebilelim.

Ayrıca ilave bir şey daha, sayfa 2 ye TC aktarıldıktan sonra sayfa 2 nin aktarılmış TC hücresini de aynı makro kodları sonunda çift tıklatmış gibi yapabilirmiyiz. Çünkü, sayfa 2 ye TC aktarıldıktan sonra aktarılmış TC yide sayfa 2 de çift tıklatıyorum ve TC ile ilgili yan bilgiler sayfa 2 nin TC sütununun sağ taraf sütunlara yerleşmesi gerekiyor
saygılarımla

 

[leumruk]

Merhaba,
Kodu ve dosyayı güncelledim.

 

[cebelitarık]

SAYIN LEUMRUK
İlginiz ve ikinci cevabınız için de çok teşekkür ederim.
Tam istediğim gibi oldu.
Çalışmalarınızda başarılar dilerim.
saygılarımla