buton yardımı ile veri aktarımı

[umit1907]

forumda bulamadığım için bu konuyu açmıştım ama sorumun yanıtını buldum işine yarayacak arkadaşlar için dosyayı ekliyorum.

 

[Orion1]

Dosyanız ektedir.

Sub Oval1_Tıklat()
Dim k As Range, sat As Long, sh As Worksheet
Set sh = Worksheets("veri")
Sheets("Sayfa1").Select
sat = sh.Cells(Rows.Count, "A").End(xlUp).Row
If Range("E3").Value = "" Then
    MsgBox "E3 hücresi boş.İşlem Yapılmadı:", vbCritical, "U Y A R I"
    Range("E3").Select
    Set sh = Nothing
    Exit Sub
End If
Set k = sh.Range("A2:A" & sat).Find(Range("E3").Value, , xlValues, xlWhole)
If Not k Is Nothing Then
    MsgBox Range("E3").Value & vbLf & "Bu değer daha önceden girilmiş" _
    & vbLf & "İşlem iptal oldu", vbCritical, "U Y A R I"
    Range("E3").Select
    Set sh = Nothing
    Exit Sub
End If
sat = sat + 1
sh.Cells(sat, "A").Value = Range("E3").Value
sh.Cells(sat, "B").Value = Range("E2").Value
sh.Cells(sat, "C").Value = Range("A1").Value
sh.Cells(sat, "D").Value = Range("E13").Value
MsgBox "İşlem Yapıldı." & vbLf & "evrengizlen@hotmail.com" _
, vbOKOnly + vbInformation
End Sub