2.Sayfaya veri aktarımı

[seergin83]

Selamlar

Elimde bulunan Senet takibi dosyasında olmasını isteyeceğim bir şey var arkadaşlar. Ödenen senetlerin 2.sayfaya aktarılmasını istiyorum. ÖDENDİ kısmına ÖDENDİ yazdığımda 2.sayfaya aktarsın böyle bişey mümkünmüdür? Amaç 1.sayfada ödenmeyenlerin kalması.

 

[Orion1]

Dosyanzı ektedir.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("H3:H65536")) Is Nothing Then Exit Sub
On Error GoTo son
If UCase(Replace(Replace(Target.Value, "ı", "I"), "i", "İ")) = "ÖDENDİ" Then
    sat = Sheets("sayfa2").Cells(65536, "A").End(xlUp).Row + 1
    If sat >= 65533 Then
        MsgBox "Sayfa2de satır doldu." & vbLf & "İşlem iptal oldu.", vbCritical, "U Y A R I"
        Exit Sub
    End If
    Range("A" & Target.Row & ":I" & Target.Row).Copy
    Sheets("sayfa2").Range("A" & sat).PasteSpecial (xlPasteValuesAndNumberFormats)
    Range("A" & Target.Row & ":I" & Target.Row).Delete (xlUp)
End If
son:

 

[seergin83]

İlgilendiğiniz için çok teşekkür ederim fakat olmadı, güvenlik düzeyi hatası verdi, düşürdüm gene olmadı

 

[Orion1]

İlgilendiğiniz için çok teşekkür ederim fakat olmadı, güvenlik düzeyi hatası verdi, düşürdüm gene olmadı

vba projesi erişimine güven şıkkınıda işaretleyiniz

 

[seergin83]

Şimdi oldu çok teşekkür ederim.