Soru Veri Girişi ile Sütun Taşıma - Yardım

[kubi3659]

Merhaba arkadaşlar,

Elimde bir iş takip formum var 2 Sayfadan oluşuyor ve bu forumda Sayfa 1 de belirlenen hücreye veri girildiğinde o stunu Sayfa 1 den silip Sayfa 2 ye taşımasını istiyorum yardımcı olabilecek var mı ?

Görsel

 

[kubi3659]

Merhaba cevabınız için teşekkür ederim.

Resim ekledim konuya burayada koyuyorum, L3 hücresine değer girildiğinde bulunduğu stunu komple Sayfa2 ye taşıyacak ve Sayfa1 den silecek tam olarak istediğim bu

Şimdiden teşekkür ederim

Resim

Böyle bir şey iş görür mü ?

Çünkü ortada örnek dosya yok.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim ws1 As Worksheet
    Dim ws2 As Worksheet
    Dim rng As Range
    Dim lastRow As Long
  
    ' Sayfa 1 ve Sayfa 2'yi tanımlayalım
    Set ws1 = ThisWorkbook.Sheets("Sayfa1")
    Set ws2 = ThisWorkbook.Sheets("Sayfa2")
  
    ' Takip etmek istediğimiz hücrenin aralığını belirtelim
    Set rng = ws1.Range("A1") ' A1 hücresine veri girildiğini varsayalım
  
    ' Eğer değiştirilen hücre takip ettiğimiz hücre ise
    If Not Intersect(Target, rng) Is Nothing Then
        ' Sayfa 2'de son satırı bulalım
        lastRow = ws2.Cells(ws2.Rows.Count, "A").End(xlUp).Row + 1
      
        ' Sayfa 2'ye değeri taşıyalım
        ws2.Cells(lastRow, "A").Value = rng.Value
      
        ' Sayfa 1'deki değeri silelim
        rng.ClearContents
    End If
End Sub