Seçilen satırların Aktarılması hk.

[valentino06]

Sayın çok kıymetli Excel hocalarım seçilen satırların belirlenen Excel'e aktarılması ve ana sayfadan silinmesini istiyorum. gerekli durumlarda ise Aktarılan satırı Ana sayfaya geri almak istiyorum. Hocalarım lütfen yardımcı olabilir misiniz.

 

[Korhan Ayhan]

Deneyiniz.

Her iki sayfadan seçim yaparak birbirleri arasında kayıt aktarımı yapabilirsiniz.

Aktarımın yapılabilmesi için bir satırda en az iki hücre seçimi yapma şartı ekledim. Dilerseniz bu koşulu değiştirebilirsiniz.

Option Explicit

Sub Secili_Satirlari_Arsiv_Sayfasina_Aktar()
    Dim S1 As Worksheet, S2 As Worksheet, Alan As Range, Son As Long
    
    Set S1 = Sheets("Veri")
    Set S2 = Sheets("Arşiv")
    
    S1.Select
    
    Set Alan = Selection
    Son = S2.Cells(S2.Rows.Count, 1).End(3).Row + 1
    
    If Alan.Rows(1).Cells.Count = 1 Then
        MsgBox "Seçiminiz aktarım için uygun değlldir!" & vbCr & vbCr & "İşleminiz iptal edilmiştir.", vbCritical
        Set S1 = Nothing
        Set S2 = Nothing
        Set Alan = Nothing
        Exit Sub
    End If
    
    Alan.Copy S2.Cells(Son, 1)
    Alan.EntireRow.Delete

    Set S1 = Nothing
    Set S2 = Nothing
    Set Alan = Nothing
    
    MsgBox "Seçtiğiniz veriler ARŞİV sayfasına aktarılmıştır.", vbInformation
End Sub

Sub Secili_Satirlari_Veri_Sayfasina_Aktar()
    Dim S1 As Worksheet, S2 As Worksheet, Alan As Range, Son As Long
    
    Set S1 = Sheets("Veri")
    Set S2 = Sheets("Arşiv")
    
    S2.Select
    
    Set Alan = Selection
    Son = S1.Cells(S1.Rows.Count, 1).End(3).Row + 1
    
    If Alan.Rows(1).Cells.Count = 1 Then
        MsgBox "Seçiminiz aktarım için uygun değlldir!" & vbCr & vbCr & "İşleminiz iptal edilmiştir.", vbCritical
        Set S1 = Nothing
        Set S2 = Nothing
        Set Alan = Nothing
        Exit Sub
    End If
    
    Alan.Copy S1.Cells(Son, 1)
    Alan.EntireRow.Delete

    Set S1 = Nothing
    Set S2 = Nothing
    Set Alan = Nothing

    MsgBox "Seçtiğiniz veriler VERİ sayfasına aktarılmıştır.", vbInformation
End Sub

 

[valentino06]

Sayın Korhan Ayhan Hocam çok teşekkür ederim. Her zaman ki gibi mükemmelsiniz. çok sağ olun var olun.

 

[valentino06]

Sayın Korhan Ayhan Hocam Arşiv sayfasına aktarılan verileri üzerine yazıyor. eski olanları siliyor. Arşiv sayfasında tüm aktarılan verileri saklamak istiyorum. silme işlemini kaldırabilir miyiz. ve alt alta gelecek şekilde saklanmasını sağlayabilir miyiz. çok teşekkür ederim.

Saygılarımla,

İyi çalışmalar.

 

[Korhan Ayhan]

Bir yanlışlık olmalı.

Kod sadece aktardığı veriyi siliyor. Aktarılan yerden bir bilgi silmiyor.

 

[valentino06]

Sayın Korhan Ayhan Hocam benim hatam dolayı üzerine yazıyormuş düzelttim. çok sağ olun. lütfen kusura bakmayın. çok özür dilerim.