Şartlı olarak diğer sayfaya veri aktarımı

[frestylee]

Merhaba excel üstatları içinden çıkamadığım bir soru ile yine karsınızdayım
ekli dosya da da tarif ettiğim şekilde bi sıkıntı ile karsı karsıyayım,burada ki sorun ; talep sayfasındaki taleplerim geldikten sonra ben bunları giriş sayfasına aktarmak aktardıktan sonra da talep alanındaki şartları tamamlananları silmek istiyorum. ve yardımlarınız için şimdiden tşk ederim.

 

[Orion1]

Dosyanız ektedir.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sat As Long
If Intersect(Target, Range("N4:N22")) Is Nothing Then Exit Sub
If Trim(Range("R" & Target.Row).Value) = "TAMAM" Then
    With Sheets("Giriş")
        sat = .Cells(65536, "C").End(xlUp).Row + 1
        If sat >= 65533 Then
            MsgBox "Giriş sayfasında Satır doldu.Kayıt yapılmadı.", vbCritical, "UYARI"
            Exit Sub
        End If
        .Cells(sat, "A").Value = Cells(Target.Row, "A").Value
        .Cells(sat, "B").Value = Cells(Target.Row, "I").Value
        .Cells(sat, "C").Value = Cells(Target.Row, "D").Value
        .Cells(sat, "D").Value = Cells(Target.Row, "E").Value
        .Cells(sat, "E").Value = Cells(Target.Row, "F").Value
        .Cells(sat, "F").Value = Cells(Target.Row, "G").Value
        .Cells(sat, "G").Value = Cells(Target.Row, "J").Value
        .Cells(sat, "H").Value = Cells(Target.Row, "M").Value
        .Cells(sat, "I").Value = Cells(Target.Row, "H").Value
    End With
End If
        

End Sub

 

[frestylee]

İlginiz için çok teşekkür ederim Evren Bey,istediğim tam da böyle idi,iyi çalışmalar

 

[Orion1]

İlginiz için çok teşekkür ederim Evren Bey,istediğim tam da böyle idi,iyi çalışmalar

Rica ederim.
İyi çalışmalar.