DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
a.b.c.d sutunlarında çok fazla değer var.
d sutunundaki değer birden fazla ve ben d sutunundaki değeri aynı olan tüm kodları sırlamak istiyorum.
yanlız a.b.c. sütünlarıda d sutununu takip edecek.
Option Explicit
Sub sıralama()
Dim ts, kaplan, trabzonspor
trabzonspor = MsgBox("Sıralama Yapıyorum", vbYesNo, "Onay")
If trabzonspor = vbNo Then Exit Sub
ts = "A:D"
kaplan = "D1"
Range(ts).Sort key1:=Range(kaplan), order1:=xlAscending
MsgBox "Sıralama Yaptım", vbInformation, "Bitiş"
End Sub
yardım için tesekkür ederim ama ben yapamadım formul yardımı ile yapabilirmiyiz.
yada eklediğim sayfaya ekleyip sorunu halledebilirmisiniz.
tesekkür ederim.
listedeki verilecek fazla aşağı kadar sıralama yapmadı. yardım edermisin.
Kitap1 - ihsan tank.rar (15.2 KB, 1 Görüntülenme)
gönderdiğin ekte ben bu liste üzerine eklemeler yasptım ama liste çok uzun olduğu için hepsini sırlamadı 23 satıra kadar sıralama yapıyor. ben 5000. satıra kadar sıralam yapmasını isitiyorum.
umarım anlatabilmişimdir.