Sil butonu ile işlem yaptıktan sonra otomatik sıralama

[erkankesemen]

iyi çalışmalar herkese

userformda oluşturduğum sil butonu çalışıyor fakat sil işlemi yaptıktan sonra otomatik sıra numarası 1-2-3-4-5-6.... şeklinde devam etmesini bir türlü sağlayamadım. örnek vermek gerekirse 1-2-3-4-5-6 numaralı verilerden 3 numarayı sildiğimde yeni sıralama 1-2-4-5-6 şeklinde devam ediyor.

http://s4.dosya.tc/server5/l2g3gu/yeni.rar.html

 

[PLİNT]

Merhaba
İlgili butonun kodlarını; şöyle deneyin.
Kırmızı bölümü "B" yerine "C" de (isimler olduğu için) olabilir

[SIZE="2"]Private Sub CommandButton12_Click()
Dim sor As String
Dim alan As Range
Dim i As Long
sor = TextBox11.Text
Set alan = Range("B8:B65536").Find(what:=sor, lookat:=xlWhole, LookIn:=xlValues)
If Not alan Is Nothing Then
    Rows(alan.Row).Delete
End If
With Range("B8")
    .Value = "1"
i = Cells(Rows.Count, [COLOR="Red"]"B"[/COLOR]).End(3).Row
   .AutoFill Destination:=Range("B8:B" & i), Type:=xlFillSeries
   End With
Unload Me
UserForm3.Show
End Sub[/SIZE]

 

[erkankesemen]

Merhaba
İlgili butonun kodlarını; şöyle deneyin.
Kırmızı bölümü "B" yerine "C" de (isimler olduğu için) olabilir

[SIZE="2"]Private Sub CommandButton12_Click()
Dim sor As String
Dim alan As Range
Dim i As Long
sor = TextBox11.Text
Set alan = Range("B8:B65536").Find(what:=sor, lookat:=xlWhole, LookIn:=xlValues)
If Not alan Is Nothing Then
    Rows(alan.Row).Delete
End If
With Range("B8")
    .Value = "1"
i = Cells(Rows.Count, [COLOR="Red"]"B"[/COLOR]).End(3).Row
   .AutoFill Destination:=Range("B8:B" & i), Type:=xlFillSeries
   End With
Unload Me
UserForm3.Show
End Sub[/SIZE]

Elinize sağlık çok teşekkür ederim.