Hey there!

It looks like you're enjoying Hesaptablosu - Akademik Excel Forumu but haven't created an account yet. Why not take a minute to register for your own free account now? As a member you get free access to all of our forums and posts plus the ability to post your own messages, communicate directly with other members and much more. Register now!

Already a member? Login at the top of this page to stop seeing this message.

Toplam 4 sonuçtan 1 ile 4 arasındakiler gösteriliyor.

Konu: Tarih Sıralama

  1. #1
    Üye
    Üyelik tarihi
    May 2016
    Mesajlar
    59

    Tarih Sıralama

    Arkadaşlar bu çalışmada "CARİLER" sayfasındaki herhangi bir cari adına çift tıkladığımda o cari adına yeni bir şablon oluşturan ve "ŞABLON" sayfasında ise sayfasındaki B11 ile J100 arasındaki verileri tarih sırasına göre sıralama yaptırmaya çalıştığım bir kod mevcut. Benim burada yapmak istediğim şey sıralamanın "ENTER" yaptıktan sonra gerçekleşmesi sağlamak ve bunu oluşturduğum tüm yeni cariler de gerçekleşmesini sağlayacak şekilde kodları düzletmek istiyorum.

    http://s7.dosya.tc/server2/xq4bjc/ca...____3.rar.html
    Konu ARS80 tarafından (04.02.2018 Saat 07:43 ) değiştirilmiştir.

  2. #2
    Üye
    Üyelik tarihi
    Mar 2011
    Nereden
    İstanbul
    Versiyon
    Excel 2010 Türkçe
    Mesajlar
    95
    Merhaba Sayın ARS80

    Sub sirala()
    Range("B11:J100").Select
    ActiveWorkbook.Worksheets("ŞABLON").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("ŞABLON").Sort.SortFields.Add Key:=Range("B11:B19") _
    , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("ŞABLON").Sort
    .SetRange Range("B11:J19")
    .Header = xlGuess
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
    End With
    End Sub


    İstemiş olduğunuz siralama makrosu yukarıdaki gibidir ayrıca bunu ENTER tuşuna bağlıyacağınıza sayfaya bir düğme koyun o düğmeyede bu makroyu atayın düğmeye basınca çalışır ve sıralar

  3. #3
    Üye
    Üyelik tarihi
    Mar 2011
    Nereden
    İstanbul
    Versiyon
    Excel 2010 Türkçe
    Mesajlar
    95
    Sub sirala()
    Range("B11:J100").Select
    ActiveWorkbook.Worksheets("ŞABLON").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("ŞABLON").Sort.SortFields.Add Key:=Range("B11:B19") _
    , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("ŞABLON").Sort
    .SetRange Range("B11:J100")
    .Header = xlGuess
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
    End With
    End Sub

    Çok özür dilerim küçük bir hata yapmışım yukarıda yazılı olanı kullanın düzeltilmiş hali budur.


  4. #4
    Üye
    Üyelik tarihi
    May 2016
    Mesajlar
    59
    Kenan Bey ilginize teşekkür ederim.

Konu Bilgisi

Users Browsing this Thread

Şu anda 1 üyemiz bu konuya göz atıyor. (0 kayıtlı üye ve 1 misafir.)

Yetkileriniz

  • Konu Acma Yetkiniz Yok
  • Cevap Yazma Yetkiniz Yok
  • Eklenti Yükleme Yetkiniz Yok
  • Mesajınızı Değiştirme Yetkiniz Yok
  •