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ı ?
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
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
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.