sayfalar arası veri transferini başardım arkadaşlar

[supervisor]

aslında hemen de sormanın alemi yokmuş biraz araştırınca bulunabiliyor. yardım edenlere çok teşekkür ederim. ekledim herkesin işine yarasın gayet güzel çalışıyor. birde bunun mükerrer kayıt olmaması için bi uyarı söz konusu olsa çok güzel olabilir.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu kullanarak çalışmanızda D sütununa göre MÜKERRER kayıt kontrolü yapabilirsiniz.

Private Sub CommandButton1_Click()
Dim Say As Integer
Set S1 = Sheets("Sayfa1")
Set S2 = Sheets("Sayfa2")
Kriter = S2.[D5]
Say = WorksheetFunction.CountIf(S1.[D2:D65536], Kriter)
If Say > 0 Then GoTo Son

[A5:D5].Select
Selection.Copy
S1.Select
S1.[A65536].End(3).Select
If ActiveCell.Address = "$A$1" Then
ActiveCell.Select
Else
ActiveCell.Offset(1, 0).Select
End If
ActiveSheet.Paste
Application.CutCopyMode = False
MsgBox "Verileriniz Cari Hesap İşlemlerine Başarı İle Aktarıldı.", vbInformation

S2.Select
[A5:D5].Select
Selection.Copy
[A65536].End(3).Select
If ActiveCell.Address = "$A$21" Then
ActiveCell.Select
Else
ActiveCell.Offset(1, 0).Select
End If
ActiveSheet.Paste
Application.CutCopyMode = False
MsgBox "Verileriniz Tahsilat Dökümlerine Başarı İle Aktarıldı.", vbInformation
Exit Sub
Son:
MsgBox "Eklemek istediğiniz veri kayıtlarınızda mevcuttur. Lütfen işleminizi kontrol ediniz.", vbExclamation
End Sub

 

[supervisor]

teşekkür ederim gerçektende işe yarıyor. klavyenize sağlık :hihoho: