Diğer sayfaya aktarılan verilerin alfabetik sıraya göre yerleşmesi

[sdegirmenci]

Merhaba;
Ekteki dosyam üzerinde de açıkladığım gibi, Anamenü sayfasından Stok sayfasına aktardığım ürünleri aktardıktan sonra alfabetik sıralama yapmasını istiyorum.Ancak Bunu yaparken Stok sayfasının seçilip sıralama yaptığı gibi hareketlenme görünmesin, Yardımcı olabilirseniz sevinirim. Saygılarımla

 

[Orion1]

Dosyanız ektedir.

Private Sub CommandButton1_Click()
[B][COLOR="Red"]Application.ScreenUpdating = False[/COLOR][/B]
SAYFA = ("STOK")
sOn = WorksheetFunction.CountA(Sheets(SAYFA).[B3:B50])
Sheets(SAYFA).Cells(sOn + 3, "B") = [C4]
Sheets(SAYFA).Cells(sOn + 3, "C") = [C6]
Sheets(SAYFA).Cells(sOn + 3, "D") = [C8]
Sheets(SAYFA).Cells(sOn + 3, "E") = [C10]
Sheets(SAYFA).Cells(sOn + 3, "F") = [C12]
[C4:C10] = ""
[B][COLOR="Red"]Sheets(SAYFA).Range("B3:F65536").Sort Sheets(SAYFA).Range("B3")
Application.ScreenUpdating = True[/COLOR][/B]
cevap = MsgBox(" YENİ ÜRÜN GİRİŞİ YAPILMIŞTIR.", vbExclamation)


End Sub

 

[sdegirmenci]

Evren Hocam;
Tam istediğim gibi
İlginize çok teşekkkür ediyorum, Bütün işleriniz gönlünüzce olsun.

 

[Orion1]

Evren Hocam;
Tam istediğim gibi
İlginize çok teşekkkür ediyorum, Bütün işleriniz gönlünüzce olsun.

Rica ederim.
İyi çalışmalar.