Satır aktarma

[igultekin2000]

iyi akşamlar;
F8 Hücresinde süzme işlemi yaparak çıkan satırı çift tıkladığımda " A - F " aralığının AKTAR sayfasına gitmesi ; örnekleyecek olursak F11 hücresine tıkladığımda o satırın AKTAR sayfasına geçmesi. Ve aktarılan satırların alt alta devam etmesi. örnek kod buldum ancak revize edemedim.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
    If Intersect(Target, Range("F2:F65536")) Is Nothing Then Exit Sub
        Set S1 = ThisWorkbook.Worksheets("AKBANK")
        Set S2 = ThisWorkbook.Worksheets("AKTAR")
        satırr = Target.Row
        If S1.Cells(satırr, "a") <> "" Then
        If S1.Cells(satırr, "F") = "" Then sonsatir = S2.Range("A65536").End(xlUp).Row + 1
        If S1.Cells(satırr, "F") <> "" Then sonsatir = S1.Cells(satırr, "F")
       
    S2.Cells(sonsatir, "a") = S1.Cells(satırr, "a")
    S2.Cells(sonsatir, "b") = S1.Cells(satırr, "b")
    S2.Cells(sonsatir, "c") = S1.Cells(satırr, "c")
    S2.Cells(sonsatir, "d") = S1.Cells(satırr, "d")
    S2.Cells(sonsatir, "e") = S1.Cells(satırr, "e")
    S2.Cells(sonsatir, "f") = S1.Cells(satırr, "f")
    
    S2.Cells(sonsatir, "F") = sonsatir
       S1.Cells(satırr, "F") = sonsatir
        End If
End Sub

 

[Saban Sertkaya]

Ekli dosyaları göremediğimden yine afaki olacak ama, bu F sütununda çift tıkladığınız satırı komple kopyalayıp, Aktar sayfasına alt alta yapıştırır.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("F2:F65536")) Is Nothing Then Exit Sub
Rows(Target.Row).Copy Sheets("AKTAR").[F65536].End(xlUp).Offset(1, -5)
End Sub

 

[Saban Sertkaya]

Yada belirli bir alanı aktarabilirsiniz. F sütunuda çift tıklama yapıldığında, çift tıklama yapılan satırın 1 - 6 nolu sütunlarını Aktar sayfasına yapıştırır, gibi..

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("F2:F65536")) Is Nothing Then Exit Sub
Range(Cells(Target.Row, 1), Cells(Target.Row, 6)).Copy Sheets("AKTAR").[F65536].End(xlUp).Offset(1, -5)
End Sub

 

[igultekin2000]

sorunsuz çalışıyor

Yada belirli bir alanı aktarabilirsiniz. F sütunuda çift tıklama yapıldığında, çift tıklama yapılan satırın 1 - 6 nolu sütunlarını Aktar sayfasına yapıştırır, gibi..

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("F2:F65536")) Is Nothing Then Exit Sub
Range(Cells(Target.Row, 1), Cells(Target.Row, 6)).Copy Sheets("AKTAR").[F65536].End(xlUp).Offset(1, -5)
End Sub

Teşekkürler;ikise güzel çalışıyor. kullanır iken farkettim, aktardığım satırı tekrar kullanmayacağım, aktardıktan sonra da ilgili satırı ANASAYFADAN da silmek mümkün olabilir mi?

 

[Orion1]

Teşekkürler;ikise güzel çalışıyor. kullanır iken farkettim, aktardığım satırı tekrar kullanmayacağım, aktardıktan sonra da ilgili satırı ANASAYFADAN da silmek mümkün olabilir mi?

kırmızı satırları ekledim.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("F2:F65536")) Is Nothing Then Exit Sub
Range(Cells(Target.Row, 1), Cells(Target.Row, 6)).Copy Sheets("AKTAR").[F65536].End(xlUp).Offset(1, -5)
[B][COLOR="Red"]Range(Cells(Target.Row, 1), Cells(Target.Row, 6)).Delete xlUp
Cancel = True[/COLOR][/B]
End Sub

 

[igultekin2000]

Sorunsuz çalışıyor

kırmızı satırları ekledim.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("F2:F65536")) Is Nothing Then Exit Sub
Range(Cells(Target.Row, 1), Cells(Target.Row, 6)).Copy Sheets("AKTAR").[F65536].End(xlUp).Offset(1, -5)
[B][COLOR="Red"]Range(Cells(Target.Row, 1), Cells(Target.Row, 6)).Delete xlUp
Cancel = True[/COLOR][/B]
End Sub

Teşekkür Ederim Sorunsuz çalışıyor. Bu şekilde çalışabiliyorum. Sadece öğrenmek için soruyorum. işlemi satır satır sorunsuz aktarabildiğimiz gibi , mesela aynı anda 10-15 satırı seçip tek tıklama ile de aktarıp - silme gibi özellikte mümkün mü ? iyi çalışmalar.

 

[Orion1]

Teşekkür Ederim Sorunsuz çalışıyor. Bu şekilde çalışabiliyorum. Sadece öğrenmek için soruyorum. işlemi satır satır sorunsuz aktarabildiğimiz gibi , mesela aynı anda 10-15 satırı seçip tek tıklama ile de aktarıp - silme gibi özellikte mümkün mü ? iyi çalışmalar.

O nasıl olcak!?Zaten seçtiğinizde tek tıklama oluyor.Ama şöyle bir şey olur.Satırları seçip bir butona tıklayıp aktarabilirsiniz.

 

[igultekin2000]

teşekkürler

O nasıl olcak!?Zaten seçtiğinizde tek tıklama oluyor.Ama şöyle bir şey olur.Satırları seçip bir butona tıklayıp aktarabilirsiniz.

teşekkürler; dediğiniz gibi gerekirse , çoklu aktarım için butonla sorun çözülebilir. Hayırlı günler.

 

[Orion1]

teşekkürler; dediğiniz gibi gerekirse , çoklu aktarım için butonla sorun çözülebilir. Hayırlı günler.

İyi günler.