Koşula Bağlı Olarak Satırın Silinip Aktarılması

[quesh]

Herkese Selamlar
Arkadaslar ekteki dosyayla ilgili yapmak istediklerimi ve yapamadıklarımı dilim döndügünce anlatmaya calısıcam.

SİPARİŞ GİRİŞ sayfasında Z sütunundaki ''Durum'' kısmından 4.satırdan başlayarak ''Sevk''i tıkladığım zaman, buna ait satırın tamamen silinmesini ve silinen satırın içeriğinin otomatik olarak ''ARŞİV1'' sayfasınının 4.satırından başlamak üzere buraya aktarılmasını istiyorum.
bunu yapabilmemiz mümkün müdür ?
özetle anlatmak istediğim SİPARİŞ GİRİŞ sayfasının Z4 hücresinde SEVK yazdığı an SİPARİŞ GİRİŞ SAYFASI 4.satırının silinerek aynen ARŞİV1 sayfasın 4.satırına aktarılmasını istiyorum.

okuyan ve düşünen herkese cok teşekkür ederim şimdiden

 

[Orion1]

Satrıa çift tıklayın.
Dosyanız ektedir.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim sat As Long
If Intersect(Target, Range("A4:Z" & Cells(65536, "A").End(xlUp).Row)) Is Nothing Then Exit Sub
If UCase(Cells(Target.Row, "Z").Value) = "SEVK" Then
    sat = Sheets("ARŞİV1").Cells(65536, "A").End(xlUp).Row + 1
    If sat < 4 Then sat = 4
    If sat > 65533 Then
        MsgBox "ARŞİV1 sayfasında satır doldu.Kayıt Aktarılmadı.", vbCritical, "UYARI"
        Exit Sub
    End If
    Cancel = True
    Range("A" & Target.Row & ":Z" & Target.Row).Copy
    Sheets("ARŞİV1").Range("A" & sat).PasteSpecial xlPasteValuesAndNumberFormats
    Range("A" & Target.Row & ":Z" & Target.Row).Delete (xlUp)
End If
End Sub

 

[quesh]

cok özür dilerim ancak anlamadım ne yapmam gerektgini ?

 

[Orion1]

cok özür dilerim ancak anlamadım ne yapmam gerektgini ?

Sevk yazan satıra herhangi bir yere çift tıklarsanız istediğinizi işlem gerçekleşecek.

 

[quesh]

cok tesekkür ederim emeginiz için yalnız bir sorum olucak, bunu yapabilmek için makroların calısıtrılmasını aktif olması gerekir degil mi ?=

 

[Orion1]

cok tesekkür ederim emeginiz için yalnız bir sorum olucak, bunu yapabilmek için makroların calısıtrılmasını aktif olması gerekir degil mi ?=

Evet.Güvenlik seviyesinin en düşük olması lazım.

 

[quesh]

tekrar defalarca tesekkür ederim sayın Evren Gizlen

 

[Orion1]

tekrar defalarca tesekkür ederim sayın Evren Gizlen

Rica ederim iyi çalışmalar.