Veri aktarımı

[selvetdibic]

Arkadaşlar veri aktarımı sayfamda giriş yaptığım bilgilerin d sutunundaki ismin sayfasına aktarılmasını ve sadece bir kez aktarılmasını istiyorum saygılar

 

[numan şamil]

Merhaba
Kodlarınızda aşağıdaki gibi değişiklik yapıp denermisiniz
Sub kaydet_59()

Dim sat1 As Long, sat2 As Long, i As Long
On Error Resume Next
Sheets("VERİ GİRİŞİ").Select
Application.ScreenUpdating = False
Range("A1").AutoFilter
sat1 = Cells(Rows.Count, "A").End(xlUp).Row
For i = 2 To Worksheets.Count
Range("A1").AutoFilter field:=4, Criteria1:=Sheets(i).Name
Range("A1:O2" & sat1).SpecialCells(xlCellTypeVisible).Copy Sheets(i).Range("A7")
Next
Range("A7").AutoFilter
MsgBox "İşlem tamamlandı." & vbLf & "selvet dibiç", vbOKOnly + vbInformation, "AKTARILDI"

End Sub

 

[selvetdibic]

tşk ederim

 

[numan şamil]

Rica ederim
Kolay gelsin