Userformda değiştir ve sil

[taseraydin]

Değerli üstad arkadaşlar user formda başka bir formdan aldığım örnekle yapmış olduğum formda değiştir ve sil komutun da yardımcı olurmusunuz

 

[N.Ziya Hiçdurmaz]

yanıt

ListBox1.ListIndex = -1

Cells(ActiveCell.Row, "a").EntireRow.Delete

 

[taseraydin]

Ilginize teşekür ederim sil işleminde verileri siliyor ancak sıra numaralarını sıralamıyor

 

[taseraydin]

üstad arkadaşlar bir el atarmısınız

 

[Mustafa MUTLU]

üstad arkadaşlar bir el atarmısınız

Kayıt sil tuşuna atadığın kodun end Sub dan önce

If Range("A65536").End(3).Row > 2 Then
Range("A2:H65536").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
Range("A2") = 1
Range("A2").AutoFill Destination:=Range("A2:A" & Range("A65536").End(3).Row), Type:=xlFillSeries
End If

Bu Kodu yaz.........

Dosyan Ekte..

 

[taseraydin]

B stunundan itibaren satırı normal siliyor a srunundaki en son sıra numarasını silmiyor

 

[Mustafa MUTLU]

B stunundan itibaren satırı normal siliyor a srunundaki en son sıra numarasını silmiyor

Benim eklediğim dosyada sorunsuz çalışıyor.

 

[taseraydin]

Düzenlemiş olduğunuz dosyada 4 numaralı sıra silinmemiş ;
şöyleki silme işlemi muntazam olarak yapıyor ancak a stunundaki sıra numaralarını da düzenliyor ama her silme işleminde altta boşta kalan sıra numarası oluyor

 

[taseraydin]

Verileri silme

DEĞERLİ ÜSTAD ARKADAŞLAR SİLME İŞLEMİNDE SATIRLARI NORMAL OLARAK SİLİYOR " A "STUNUNDAKİ SAYILARI SIRALIYOR ANCAK EN ALTTA SATIRI BOŞ KALAN SON SAYIYI "A" STUNUNDA VERİYOR VERİYOR.İŞLEMİN SONAN NASIL BİR İŞLEM YAPTIRMALIYIM

KOD:
soru = MsgBox("**" & TextBox4 & "**" & " Ait Bilgiler Silinecektir...Eminmisiniz?", Buttons:=vbQuestion + vbYesNo)
If soru = vbNo Then
Exit Sub
Else
Range("b" & Selection.Row & ":H" & Selection.Row).Delete Shift:=xlUp
Cells([a65536].End(1).Row, "a").ClearContents
End If
MsgBox "BİLGİLER SİLİNMİŞTİR..!", vbQuestion
Unload Me
UserForm1.Show

 

[Mustafa MUTLU]

Evet Haklısın Yeni farkettim.
Biraz inceleyince gördüm ki
Range("B" & Selection.Row & ":H" & Selection.Row).Delete Shift:=xlUp
Bu kodla a sütununu silmesin diyormuşun ):


CommandButton5 Deki Kodları aşağıdaki ile değiştir.

Private Sub CommandButton5_Click()
soru = MsgBox("**" & TextBox4 & "**" & " Ait Bilgiler Silinecektir...Eminmisiniz?", Buttons:=vbQuestion + vbYesNo)
If soru = vbNo Then
Exit Sub
Else
Range("a" & Selection.Row & ":H" & Selection.Row).Delete Shift:=xlUp
If Range("A65536").End(3).Row > 1 Then
Range("A2:H65536").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
Range("A2") = 1
Range("A2").AutoFill Destination:=Range("A2:A" & Range("A65536").End(3).Row), Type:=xlFillSeries
End If
End If
MsgBox "BİLGİLER SİLİNMİŞTİR..!", vbQuestion
Unload Me
UserForm1.Show
End Sub

 

[taseraydin]

sn.Mustafa MUTLU ilginize çok teşekür ederim elinize sağlık

 

[taseraydin]

Sn.Mustafa MUTLU ilginize,emeğinize teşekür ederim

 

[Mustafa MUTLU]

Sn.Mustafa MUTLU ilginize,emeğinize teşekür ederim

Rica ederim...
İyi Günler...