Şimdi Ara

VB6 da birden çok sayfada sıralama

Daha Fazla
Bu Konudaki Kullanıcılar: Daha Az
1 Misafir - 1 Masaüstü
3
Cevap
0
Favori
254
Tıklama
Tüm Forumlar >> Web Tasarım - Programlama >> Yazılım Geliştirme >> Delphi / C++ /Vb >> VB6 da birden çok sayfada sıralama
Sayfaya Git:
Sayfa:
1
Giriş
Mesaj
  • Onbaşı
    35 Mesaj
    Merhabalar;

    Elimde oldukça fazla sayıda sayfası olan bir excel var ve her sayfa için aşağıdaki kodu yazmak zorunda kalıyorum. Sayfa2.Range("a3:av1000").Sort key1:=Sayfa2.Range("a3"), order1:=xlAscending
    Sayfa3.Range("a3:av1000").Sort key1:=Sayfa3.Range("a3"), order1:=xlAscending
    Sayfa4.Range("a3:av1000").Sort key1:=Sayfa4.Range("a3"), order1:=xlAscending
    .
    .

    Bir kaç yere bakmama rağmen maalesef çalıştırabildiğim bir kod bulamadım.
    Denediğim kodlar ise kısaca;

    x= "sayfa"&p
    p = 3 to 36
    sheets("x").range(........

    aldığım hata : subscript out of range
    _____________________________


    dim x(3 to 36) as string

    sayfa.........

    aldığım hata : constant expression required


    yardımcı olabilirseniz sevinirim. İyi günler



    |
    |
  • Yarbay
    3658 Mesaj
    Dim sayfa As Worksheet
    For Each sayfa In ThisWorkbook.Sheets
    sayfa.Range("a3:av1000").Sort key1:=sayfa.Range("A3"), order1:=xlAscending
    Next


    bi bakın
    |
    |
    _____________________________
    Senin de XAMLına korum Senin de XAMLına korum
  • Onbaşı
    35 Mesaj
    Çok teşekkürler yardımcı olduğunuz için. İyi günler dilerim.
    |
    |
    _____________________________
    İmzanız kural dışıdır! :)
Sayfaya Git:
Sayfa:
1
Reklamlar
Orjinal Laptop Yedek Parça
SEO
SEO
üniversite
Canlı Tv izle
Bu sayfanın
Mobil sürümü
Mini Sürümü

BR3
0,187
1.2.165

Reklamlar
- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.