excel vba silinen satırın başka bir sayfaya taşınması

[muhsinde]

Excell sayfasında vba kodla silinecek satırın başka bir sayfaya taşınması ile düzenlediğim kodda bir hata var, bu hatanın çözümü için yardımcı olacak arkadaşlara teşekkür ederim. örnek dosya ektedir

 

[Necdet]

Merhaba.
İstediğiniz bilginin hangi kodlar içinde olduğunu da belirtseydiniz, dosyayı inceleyen arkadaşa kolaylık olurdu.
Umarım yanıt alırsınız.

 

[muhsinde]

Merhaba Üstad...
Yazdırma işlemi olan userform da pasife al butonu ile Sheet5 te silinecek satırın Sheet6 ya taşınmasında kod hata veriyor. Bu açıklama yeterli olurmu bilmiyorum.

 

[DoğanD]

Merhaba,

Aşağıdaki kodları dener misiniz?

Private Sub CommandButton4_Click()
Dim lr As Long
lr = Sheet6.Range("A" & Rows.Count).End(xlUp).Row + 1
Sheet5.Rows(WorksheetFunction.Match(MesMudYazdir.TextBox1, Sheet5.Range("A:A"), 0)).Delete xlUp
With Sheet6
    .Cells(lr, "A").Value = TextBox1.Value
    .Cells(lr, "B").Value = TextBox2.Value
    .Cells(lr, "C").Value = TextBox3.Value
    .Cells(lr, "D").Value = TextBox4.Value
    .Cells(lr, "E").Value = TextBox5.Value
    .Cells(lr, "F").Value = TextBox6.Value
    .Cells(lr, "G").Value = TextBox7.Value
    .Cells(lr, "H").Value = TextBox8.Value
    .Cells(lr, "I").Value = TextBox9.Value
End With

MsgBox "Belge No: " & MesMudYazdir.TextBox1 & _
" Basariyla Pasife Tasindi", _
vbInformation, "Sayin " & Environ("UserName")

'Unload Me
End Sub

 

[muhsinde]

Teşekkürler DoğanD kod çalıştı