• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

Katılım
30 Kasım 2006
Mesajlar
625
Excel Vers. ve Dili
OFFICE 2003 Türkçe
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
 

Ekli dosyalar

Dosyanız ektedir.:cool:
Kod:
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
 
Evren Hocam;
Tam istediğim gibi
İlginize çok teşekkkür ediyorum, Bütün işleriniz gönlünüzce olsun.
 
Geri
Üst