Sayfa1deki Verileri Sayfa2 ye nasıl benzersiz yazabilirim

[mustafakoker]

Arkadaşlar Merhaba;

Yapmaya calıştığım sayfa1 A B C .... sutunlarını sadece 1 kez kullanarak
Sayfa2 benzirsiz şekilde aşağıya doğru kaydetmesi

sayfa1deki satır ve sutunları sürekli değiştiriyorum ama sayfa 2 de kayıt altına girsin istiyorum

bu konu hakkında bir formül varmıdır varsa yardımcı olabilirmisiniz

ekli dosyada anlatmaya çalıştım

 

[Orion1]

Ekli dosyayı inceleyiniz.

Sub aktar()
Dim sat As Long
If Range("A3").Value = "" Then
    MsgBox "Kayıt Yapılmadı." & vbLf & _
    "Kayıt Yapabilmek için A3 hücresi dolu olmalıdır.", vbCritical, "UYARI"
    Range("A1").Select
    Exit Sub
End If
With Sheets("Sayfa2")
    sat = .Cells(65536, "A").End(xlUp).Row + 1
    If sat >= 65533 Then
        MsgBox "Sayfa2de satır doldu" & vbLf & "Kayıt girilmedi", vbCritical, "UYARI"
        Exit Sub
    End If
    .Range("A" & sat & ":C" & sat).Value = Range("A3:C3").Value
End With
MsgBox "Kayıt başarı ile girildi." & vbLf & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"

End Sub

 

[mustafakoker]

Evren bey yıne yine yeniden yardımlarınız için teşekkür edeim

Şimdi formu düzenleyip sizi sonrasında sizi tekrar rahatsız etsem umarım yine yardımcı olursunuz

çalışmalarınızda başarılar dilerim