İyi günler;
Sayfa1 deki karışık sıradaki verileri , Sayfa2 deki gibi nasıl gruplayıp sıralattırabilirim? Gruplamada A sütunu baz alınacak. B sütunu da artan sırada sıralanacak.
Şimdiden teşekkürler...
Karışık verileri otamatik olarak nasıl gruplayabilirim
Sn Nihat Hocam acele cevap için teşekkürler. O şekilde yapabiliyorum. Sürekli veriler değişeceği için başka sayfada otomatik takip etmek istiyorum.
(16/02/2010, 17:30)derebeyi yazdı: Sn Nihat Hocam acele cevap için teşekkürler. O şekilde yapabiliyorum. Sürekli veriler değişeceği için başka sayfada otomatik takip etmek istiyorum.
Ozaman bir makro hazırlamak lazım. nekadar uzunlukta bu sıralacak veriler. ona göre bir makro hazırlanır. ya düğmeyle yada her dosya açılışında sıraya dizebilir.
250 satır var. Makro ile denedim oldu. Satır sayısı artınca ne yaparım? en kötüsü yeniden makro yaparım. Teşekkürler.
ekteki kodu modül olrak ekleyin otomatikman sıralamayı her açlışıta kendisi yapacaktır. yok ben kendim yapayım derseniz macro olarak yapmak lazım. hangisini isterseniz.
hem kodu ekledim hemde ikisine ait birer örnek.
Not satır sayısı önemli değil yeterki sutun D den dışarı çıkmasın
Private Sub auto_open()
Range("A265000").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("B2") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
:=xlSortNormal
Range("H2").Select
End Sub
hem kodu ekledim hemde ikisine ait birer örnek.
Not satır sayısı önemli değil yeterki sutun D den dışarı çıkmasın
Private Sub auto_open()
Range("A265000").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("B2") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
:=xlSortNormal
Range("H2").Select
End Sub
Konuyu Okuyanlar: 1 Ziyaretçi