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

Konu: Tarih Sıralama

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

    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
    Kıdemli Üye
    Üyelik tarihi
    Mar 2011
    Nereden
    İstanbul
    Versiyon
    Excel 2010 Türkçe
    Mesajlar
    106
    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
    Kıdemli Üye
    Üyelik tarihi
    Mar 2011
    Nereden
    İstanbul
    Versiyon
    Excel 2010 Türkçe
    Mesajlar
    106
    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
    66
    Kenan Bey ilginize teşekkür ederim.

  5. #5
    Üye
    Üyelik tarihi
    Jan 2010
    Nereden
    İstanbul
    Versiyon
    Microsoft Office 2010 Türkçe
    Mesajlar
    73
    Sadece sıralama ile ilgili bu kod yeterli olacaktır.

    PHP- Kodu:
    Sub Emre()
        
    Range("B11:J60").Sort Range("B11"), 1
    End Sub 

  6. #6
    Üye
    Üyelik tarihi
    May 2016
    Mesajlar
    66
    Murat 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
  •