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: Makroda Revize

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

    Makroda Revize

    Arkadaşlar EK'teki çalışmadaki kodu çalışmayı kapatıp açtığımda D sütunundaki tarih değerlerine göre sıralamayı B sütunundaki isimler ile birlikte yapacak şekilde düzeltmek istiyorum.


    http://s3.dosya.tc/server13/484mmv/I_Z_I_N.rar.html
    Konu ARS80 tarafından (24.01.2018 Saat 10:52 ) değiştirilmiştir.

  2. #2
    Yeni Üye
    Üyelik tarihi
    Dec 2017
    Mesajlar
    28
    D4:L600 olan kısmı istediğiniz aralığa uyarladığınızada olmuyor mu?

  3. #3
    Kıdemli Üye
    Üyelik tarihi
    Jun 2010
    Nereden
    ankara
    Mesajlar
    250
    bu kodu denermisiniz.

    Kod:
    Sub Makro1()
    ActiveWorkbook.Worksheets("VERİ").Range("B4:L600").Select
    ActiveWorkbook.Worksheets("VERİ").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("VERİ").Sort.SortFields.Add Key:=Range("D4"), _
    SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("VERİ").Sort
    .SetRange Range("B4:L600")
    .Header = xlNo
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
    End With
    End Sub

  4. #4
    Üye
    Üyelik tarihi
    May 2016
    Mesajlar
    66
    Halit3 bey çok teşekkürler.

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
  •