Sil - Değiştir

[taseraydin]

Değerli Arkadaşlar
Sil / Değiştir ile ilgili herseferinde yapamadığım
bu kodları örnek dosyada açıklayarak yardımcı olurmusunuz

 

[taseraydin]

Değerli üstad Arkadaşlar bir el atan yokmu

 

[yerbakili]

Sil Butonu için;

Dim cevap
Dim i
cevap = MsgBox("Seçili kaydı silmek istediğinizden emin misiniz?", vbYesNo + vbQuestion, "Kayıt Sil")
If cevap = vbYes Then
Sheets("ARSIV").Select
ActiveCell.EntireRow.Delete
MsgBox "Seçili Kayıt Silindi."
End If

 

[taseraydin]

öcelikle ilginize teşekür ederim,
Sil için yazmış olduğunuz kod o A stunundan itibaren satırı tamamen siliyor
a stunundaki sayının sıralı takip etmesi gerekli

üstad arkadaşların yardımını bekliyorum,

 

[Murat OSMA]

Sıralı takip ettirilir ama siz satırı tamamen silmesin mi istiyorsunuz ?

Satırı sildikten sonra sıra no verir...
Sil butonu için tekrar deneyiniz...

[SIZE="2"]Private Sub CommandButton5_Click()
    Dim cevap
    Dim i
    Dim c As Integer
    cevap = MsgBox("Seçili kaydı silmek istediğinizden emin misiniz?", vbYesNo + vbQuestion, "Kayıt Sil")
    If cevap = vbYes Then
    Sheets("ARSIV").Select
    ActiveCell.EntireRow.Delete
    Application.ScreenUpdating = False
    For c = 3 To Range("A65536").End(3).Row
    Cells(c, 1) = c - 2
    Next c: c = Empty
    Application.ScreenUpdating = True
    MsgBox "Seçili Kayıt Silindi."
    End If
End Sub[/SIZE]

 

[taseraydin]

Cells(c, 1) = c - 2
satır hata verdi

 

[Murat OSMA]

Lütfen dosyanızın son hâlini tekrar ekler misiniz ?

 

[taseraydin]

Son hali vermiş olduğunuz kodla birlikte

 

[Murat OSMA]

Ben herhangi bir hata almıyorum..
Cells(c, 1).value = c - 2 olarak bir deneyiniz...

 

[assenucler]

Katkınız için teşekkürler üstadım...

 

[taseraydin]

sanırım benim office proğmında problem var
farklı hata mesajı verdi şimdide

 

[yerbakili]

Dün bu hatayı ben de aldım değiştir özelliği eklemeye çalışırken. Nedenini üstadlar açıklarlar sanırım.