Makroda Kopyalama

[iplikci_80]

Arkadaşlar EK'te sunduğum örnek belgesinin veri tabanı sayfasının J5 tenbaşlamak üzere J sütununabir tarih değeri girildiğinde o satırı silip arşiv sayfasnıa kopyalamasını istiyorum fakat bir türlü başaramadım yardımlarınıız bekliyorum HERKESE TEŞEKKÜRLER

 

[Necdet]

Merhaba,

Aşağıdaki kodları "VERİ TABANI" sayfasının kod bölümüne kopyalayıp deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Evet    As String, _
    Sat     As Long
MsgBox "geldim"
On Error GoTo Son
If Intersect(Target, [J:J]) Is Nothing Then Exit Sub
If Target.Row < 5 Then Exit Sub
Evet = MsgBox(Target.Offset(0, -8) & " Personeli Silinecek, Emin Misiniz ?", vbYesNo, "ARŞİVE EKLEME....")
If Evet = vbYes Then
    Sat = Sheets("ARŞİV").Cells(Rows.Count, "B").End(3).Row + 1
    Range("A" & Target.Row & ":CP" & Target.Row).Copy Sheets("ARŞİV").Cells(Sat, "A")
    Application.EnableEvents = False
    Rows(Target.Row).Delete
    Application.EnableEvents = True
End If
Son:
End Sub

 

[iplikci_80]

Emeğiniz ve ilginiz için çok teşekkür ederim: Fakat hücrelere bilgi girilirken "geldim" diye uyarı mesajı veriyor. Bu naslı silebiliriz.

 

[excel_ance]

merhabalar

Emeğiniz ve ilginiz için çok teşekkür ederim: Fakat hücrelere bilgi girilirken "geldim" diye uyarı mesajı veriyor. Bu naslı silebiliriz.

MsgBox "geldim"
merhabalar kod bölümünde bulunan msgbox "geldim" komutunu silerseniz bu uyarı bir daha gelmez. saygılar