seçilen veriyi aktarma

[ozcanya]

Arkadaşlar Daha Önce Veri aktarımı ile ilgili başlık açtım ama çalışmamı yapamadım.Sizden ricam Seçdiğim veriyi diğer sayfaya aktarma ve aktarılan verinin yanında tarih (aktarılan) yazması istiyorum.
yardımlarınız için teşekkür ederim.İyi çalışmalar

 

[hamitcan]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Sayfa2.Rows(Sayfa2.[a65536].End(3).Row + 1) = Sayfa1.Rows(Target.Row).Value
    Sayfa1.Rows(Target.Row).Delete
End Sub

 

[ozcanya]

hocam örnek dosya eklemediz mümkün mü?

 

[Ayhan Ercan]

Merhaba

Alternatif....
Ek dosyayı inceleyiniz...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim hcr As Range, son As Long
If Intersect(Target, Range("a1:a19")) Is Nothing Then Exit Sub
son = Sheets("taşınan").Range("A65536").End(3).Row + 1
Set hcr = Sheets("taşınan").Range("A" & son)
For i = 0 To 4
hcr.Offset(0, i) = Target.Offset(0, i)
Next i
hcr.Offset(0, 5) = Date
Rows(Target.Row).Delete
End Sub

 

[ozcanya]

ayhan hocam çift tıkladığımda değil de Düğme Yardımı ile Yapabilirmiyim acaba (özür)

 

[Ayhan Ercan]

ayhan hocam çift tıkladığımda değil de Düğme Yardımı ile Yapabilirmiyim acaba (özür)

Tekrar Merhaba,,


Düğmeye atamak istiyorsanız aşağıdaki kodları kullanın...

Private Sub CommandButton1_Click()
Dim hcr As Range, son As Long
Application.ScreenUpdating = False
If Intersect(ActiveCell, Range("a1:a" & [A65336].End(3).Row)) Is Nothing Then Exit Sub
son = Sheets("taşınan").Range("A65536").End(3).Row + 1
Set hcr = Sheets("taşınan").Range("A" & son)
For i = 0 To 4
hcr.Offset(0, i) = ActiveCell.Offset(0, i)
Next i
hcr.Offset(0, 5) = Date
Rows(ActiveCell.Row).Delete
End Sub

 

[ozcanya]

ayhan bey hata verdi yoksa ben mi yapamadım.

 

[Ayhan Ercan]

Ek dosyayı inceleyiniz...

 

[ozcanya]

zaman ayırdınız çok teşekkür ederim.iyi çalışmalar dilerim.
(düğme kilitli acaba yerini değiştiremedim)

 

[Ayhan Ercan]

(düğme kilitli acaba yerini değiştiremedim)

Vba penceresine geçiniz.

Menuden - Run > Design Mode'i seçin.
Şimdi Düğmeyi sağa sola hareket ettirebilirsiniz.
Sonra yine aynı işlemi yapıp düğmeyi sabitleyiniz...

 

[ozcanya]

teşekkür ederim. kusura bakmayın