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

Katılım
1 Kasım 2005
Mesajlar
207
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

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,247
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Selamlar,

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

Kod:
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
 
Katılım
1 Kasım 2005
Mesajlar
207
teşekkür ederim gerçektende işe yarıyor. klavyenize sağlık :hihoho:
 
Üst