Butonla Sıra Numarası Verme

[AyYıldızım]

Arkadaşlar ekteki dosyada sıralamyı a1 satırıdı değilde istediğim başka bir satırdan başlatmak istiyorum, diğer kısımları bozmadan nasıl başarabilirim, hangi kodu eklemem lazım, bir türlü yapamadım, yardımlarınızı bekliyorum, saygılar

 

[vardar07]

Aşağıdaki kodu bir butona atayıp denermisiniz. B sütununa göre sıralama yapar.

Sub sirala()
    Application.ScreenUpdating = False
    Range("B1:D12").Select
    ActiveWorkbook.Worksheets("Sayfa1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sayfa1").Sort.SortFields.Add Key:=Range("B1:B11") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sayfa1").Sort
        .SetRange Range("B1:D11")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
   ActiveSheet.Range("b1").End(xlDown).Offset(1, 0).Select
Application.ScreenUpdating = True
End Sub

 

[AyYıldızım]

kardeş çalıştıramadım hata veriyor, mevcut hali üzerinde yapamayızmı?

 

[AyYıldızım]

Bu Database örneğindede sıralama var istediğim oluyor yalnız bundada sadece aktif olan sayfa veri girişi yapılıyor, başka bir sayfa tanımlayamıyorum, farklı bir sayfalarda sayfa isimlerini yazarak bu kodlar dönüştürülebilirmi?

 

[ZorBey_]

Merhaba
İyi Çalışmalar
Dosyanız Ektedir.
--------------------------
Konuya Olumlu Veya Olumsuz
Dönüş Yapmanız.
Konuyu Takip Eden Diğer Site
Sakinleri Açısından Faydalı Olucaktır.

 

[AyYıldızım]

Merhaba
İyi Çalışmalar
Dosyanız Ektedir.
--------------------------
Konuya Olumlu Veya Olumsuz
Dönüş Yapmanız.
Konuyu Takip Eden Diğer Site
Sakinleri Açısından Faydalı Olucaktır.

Çok teşekkür ederim, emeğiniz için, vaktinizi aldım, beni büyük bir dertten kurtardınız.

 

[ZorBey_]

Çok teşekkür ederim, emeğiniz için, vaktinizi aldım, beni büyük bir dertten kurtardınız.

Kolay Gelsin İyi Çalışmalar.

 

[AyYıldızım]

birde bu ekteki dosyada kayıt yaptıramadım bir türlü listviewe ve excele, hata veriyor (runtime error 91)

Y = ListView1.SelectedItem.Index

işareleniyor nasıl çözebiliriz.

 

[Orion1]

dosyanız ektedir.

 

[AyYıldızım]

Teşekkür ederim lakin çalıştıramadım, dosyada bir problemmi var acaba?

 

[Orion1]

Teşekkür ederim lakin çalıştıramadım, dosyada bir problemmi var acaba?

Bende iyi çalıştı.
listviewi kaldırıp tekrar eklemeyi deneyin.

 

[AyYıldızım]

Eklemiş olduğunuz userformda zaten listview kaldırılmıştı, ekledim denedim ama yinede çalışmadı

compile error

Can2t find project or library hatası verip

Private Sub UserForm_Initialize()

Set sh = Sheets("Sayfa1")


satırında hata veriyor. Çalışmadı neden olabilirki bende çalışmama sebebi?

 

[Orion1]

Eklemiş olduğunuz userformda zaten listview kaldırılmıştı, ekledim denedim ama yinede çalışmadı

compile error

Can2t find project or library hatası verip

Private Sub UserForm_Initialize()

Set sh = Sheets("Sayfa1")


satırında hata veriyor. Çalışmadı neden olabilirki bende çalışmama sebebi?

sayfa1 diye bir sayfanız yok sanırım.Benim yolladığım dosya çalışıyormu?

 

[AyYıldızım]

Eklemiş olduğunuz userformda zaten listview kaldırılmıştı, ekledim denedim ama yinede çalışmadı

compile error

Can't find project or library hatası verip

Private Sub UserForm_Initialize()

Set sh = Sheets("Sayfa1")


satırında hata veriyor. Çalışmadı neden olabilirki bende çalışmama sebebi?

 

[Orion1]

Eklemiş olduğunuz userformda zaten listview kaldırılmıştı, ekledim denedim ama yinede çalışmadı

compile error

Can't find project or library hatası verip

Private Sub UserForm_Initialize()

Set sh = Sheets("Sayfa1")


satırında hata veriyor. Çalışmadı neden olabilirki bende çalışmama sebebi?

ben listviewi kaldırıp tekrar eklemiştim.Listview olması lazımdı.

 

[AyYıldızım]

Hayır Sayın Orion eklediğiniz dosyada Listview yok, ayrıca Sayfa1 de var, listviewi ekledim ama yinede olmadı.

 

[Orion1]

[/URL][/IMG]

 

[kotell]

burada user form üzerindeki bilgileri nasıl nereden degiştire bilirim kendime gore uyguluyacagım tesekkürler

 

[AyYıldızım]

Hocam haklısınızda bendede inanın gözükmüyor, anlamış değilim.

 

[AyYıldızım]

eklediğiniz dosyanın ilk açılışında could not load an object because it is not available on this machine hatası alıyorum muhtemelen bundan dolayı bende listview gözükmüyordur.