veri aktarma

[hurkanpisirici]

merhabalar 1 adet userformum var üzerinde 1 adet buton,
butona bastığımda seçili olan hücreye ait satırın soldan ilk 6 hücresini sayfa 2 ye aktarmak istiyorum.veriler doğal olarak Sayfa1 de
yardımlarınız için şimdiden teşekkürler.

 

[Orion1]

Dim sat As Long, son_sat As Long
Sheets("Sayfa1").Select
son_sat = Sheets("Sayfa2").Cells(65536, "A").End(xlUp).Row + 1
sat = ActiveCell.Row
If son_sat >= 65533 Then
    MsgBox "Sayfa2'de Satır doldu başka kayıt yapamazsınız..!!", vbCritical, "DİKKAT"
End If
Sheets("Sayfa2").Range(Sheets("Sayfa2").Cells(son_sat, 1), Sheets("Sayfa2").Cells(son_sat, 6)).Value = _
Range(Cells(sat, 1), Cells(sat, 6)).Value
MsgBox "Aktarma işlemi bitti."

 

[hurkanpisirici]

sayın hocam imdadıma yetiştiniz teşekkür edeirm ama kayıt eski yerinde kalıyor kes yapıştır gibi yapamazmıyız hocam.

 

[Orion1]

sayın hocam imdadıma yetiştiniz teşekkür edeirm ama kayıt eski yerinde kalıyor kes yapıştır gibi yapamazmıyız hocam.

Dim sat As Long, son_sat As Long
Sheets("Sayfa1").Select
son_sat = Sheets("Sayfa2").Cells(65536, "A").End(xlUp).Row + 1
sat = ActiveCell.Row
If son_sat >= 65533 Then
    MsgBox "Sayfa2'de Satır doldu başka kayıt yapamazsınız..!!", vbCritical, "DİKKAT"
End If
Sheets("Sayfa2").Range(Sheets("Sayfa2").Cells(son_sat, 1), Sheets("Sayfa2").Cells(son_sat, 6)).Value = _
Range(Cells(sat, 1), Cells(sat, 6)).Value
Range(Cells(sat, 1), Cells(sat, 6)).Clear
MsgBox "Aktarma işlemi bitti."

 

[hurkanpisirici]

ellerinize sağlık çok sağolun

 

[Orion1]

ellerinize sağlık çok sağolun

Rica ederim.
iyi çalışmalar.