[Yardım]  Sütunu adede göre tekrar sırala

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Sütunu adede göre tekrar sırala

İleti#1)  erseldemirel2 » 16 Kas 2022 18:13

Arkadaşlar ekteki dosyada A sütununda 1 den ... belirsiz sayıya kadar sıra var. B sütunundaki illerin adedi kadar C sütununda yeniden sıralama yapılması lazım. B sütunu alfabetik sıralı oluyor. C sütununda sonuç verecek makro koda ihtiyacım var. Örnek ektedir teşekkürler yardımlarınız için
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Site Dostu
 
Kayıt: 31 Oca 2019 14:51
Meslek: Mühendis
Yaş: 38
İleti: 1055
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

Yıllık Maaş Bordrosu Hesaplama 2022

Cevap: Sütunu adede göre tekrar sırala

İleti#2)  Mesut Topal » 16 Kas 2022 23:20

Şöyle bir şey mi lazım,
tam anlayamadım.

Sub sırala()
son = Sheets(1).Cells(Rows.Count, 1).End(3).Row
Cells(1, 2).Resize(son, 2).Sort Key1:=Cells(1, 3), Order1:=xlAscending, Header:=xlNo
Cells(1, 2).Resize(son, 2).Sort Key1:=Cells(1, 2), Order1:=xlAscending, Header:=xlNo

End Sub
Kullanıcı avatarı
Mesut Topal
Site Dostu
 
Kayıt: 15 Eyl 2016 21:19
Meslek: Matematik Öğretmeni
Yaş: 36
İleti: 522
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Samsun/Ladik

Cevap: Sütunu adede göre tekrar sırala

İleti#3)  erseldemirel2 » 16 Kas 2022 23:46

Hayır bu değil. İstediğim sonuç C de yazılanlar zaten. Elimde bir çözüm var ancak bu formül ile yapılan. Ben C2 den C14 e kadar sonuçları VBA ile istiyorum. Örnek formüllü dosya ektedir.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Site Dostu
 
Kayıt: 31 Oca 2019 14:51
Meslek: Mühendis
Yaş: 38
İleti: 1055
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

Cevap: Sütunu adede göre tekrar sırala

İleti#4)  Mesut Topal » 17 Kas 2022 08:51

Kod: Tümünü seç
Sub say()
    Set sayfa = Sheets("Sayfa1")
With sayfa
    son = .Cells(Rows.Count, 2).End(3).Row
    For i = son To 1 Step -1
        .Cells(i, 3) = Application.WorksheetFunction.CountIf(.Cells(1, 2).Resize(i), .Cells(i, 2))
    Next i
End With
End Sub
Kullanıcı avatarı
Mesut Topal
Site Dostu
 
Kayıt: 15 Eyl 2016 21:19
Meslek: Matematik Öğretmeni
Yaş: 36
İleti: 522
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Samsun/Ladik

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Sütunu adede göre tekrar sırala

İleti#5)  erseldemirel2 » 17 Kas 2022 11:46

Teşekkür. Formül ve VBA ile 2 Çözüm elde ettik. Kolay gelsin
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Site Dostu
 
Kayıt: 31 Oca 2019 14:51
Meslek: Mühendis
Yaş: 38
İleti: 1055
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 3 misafir

Bumerang - Yazarkafe