Taşıma ve listeleme

[herguder]

Ekli dosyamda yeni kayıtlar yaptığımızda sıralamanın da değişmesini istiyorum. Yardımlarınız için şimdiden teşekkürler.

 

[Orion1]

Ekli dosyayı inceleyiniz.

 

[herguder]

Sayin Orİon2 Öncelİkle İlgİnİze TeŞekkÜr Ederİm Ancak İŞlem YaptiĞimda A SÜtununda Siralarda Ayni Numaralar Çikiyor. A SÜtununu Da Siralayabİlİrsek İŞ Tamam Olacak.

 

[Orion1]

Sayin Orİon2 Öncelİkle İlgİnİze TeŞekkÜr Ederİm Ancak İŞlem YaptiĞimda A SÜtununda Siralarda Ayni Numaralar Çikiyor. A SÜtununu Da Siralayabİlİrsek İŞ Tamam Olacak.

Sorunuzu tam anlayamadım.A sütununuda sıralıyor.
Dosyada bir örnek yapıp açıklamasınıda yazıp dosyayı eklermisiniz?

 

[herguder]

sayın orion2 değiştirdiğimiz bir kaydı örneğin 5 numaralı öğretmeni 8 numaraya aldığımızda 2 tane sekiz oluyor. ben ise a sütununun yeniden birden başlayarak gitmesini istiyorum.

 

[Orion1]

İstediğiniz böyle bir şeyi?
Değiştirilen ile değişen yer ve numara değişiyor.
Ekli dosyayı inceleyiniz.

Private Sub CommandButton1_Click()
Set k = Range("A2:A65536").Find(TextBox1.Value, , xlValues, xlWhole)
If Not k Is Nothing Then
    Set c = Range("A2:A65536").Find(TextBox2.Value, , xlValues, xlWhole)
    If Not c Is Nothing Then
        Cells(c.Row, "A").Value = TextBox1.Value
        Cells(k.Row, "A").Value = TextBox2.Value
        Range("A2:C65536").Sort Range("A2")
    End If
End If
End Sub

 

[herguder]

Sayin Orİon2 Klawyenİz Dert GÖrmesİn. TŞk.

 

[herguder]

Sayin Orİon2 Klavyenİz Dert GÖrmesİn. TŞk.