Makro Kodunda sorun var ama nerde ?

[Azizeasya]

Arkadaşlar merhaba uzun süredir sağlık sorunları yüzünden katılmadım foruma, tekrar burada olmak güzel.. Kod lar konusunda çok acemiyim, ekli dosyada (K sütünu) HASAR TOPLAMI butonunu tıklatınca gerekli sıralamayı yapmıyor. Tarihler sıralanıyor, ancak aradaki boş satırlar yine arada kalıyor, DOĞUM TARİHİ butonunu tıklattığımda yapmış olduğu sıralama şeklinde yapmasını istiyorum ama sorunu çözemedim.
Ayrıca Buton tıklatıldığında "HSARA TOPLAMI'na GÖRE SIRALANDI" olarak pencere açılması gerekirken, "TOPLAM'A GÖRE SIRALANDI" penceresi çıkıyor?

Yardımlarınız için çok teşekkür ediyorum şimdiden,

 

[exam77]

Dosyanız ektedir.

İyi Çalışmalar...

 

[Azizeasya]

Çok teşekkür ederim hem hızlı cevabınız hemde dosya için.. nerde hata yapmışım yazarsanız çok sevinirm, yeni yeni öğreniyorum makroları, ve hata yaptıkça yeni bir şeyler öğreniyorum sayenizde,

 

[Azizeasya]

Buldum hatamı utandım bu kadar basit bir şeyi nasıl atlarım

 

[exam77]

Çok teşekkür ederim hem hızlı cevabınız hemde dosya için.. nerde hata yapmışım yazarsanız çok sevinirm, yeni yeni öğreniyorum makroları, ve hata yaptıkça yeni bir şeyler öğreniyorum sayenizde,

Rica Ederim...

Buldum hatamı utandım bu kadar basit bir şeyi nasıl atlarım

Canınızı sıkmayın, olur böyle şeyler...

 

[Azizeasya]

Sevgili arkadaşım, daha önceki yardımın için tekrar teşekkür ediyorum, benim ineklerden bıktınız biliyorum ama yeni girdiğim verilerin sıralamaya sokmadığını farkettim , 197 sıralı inek Ayla , isme göre sırala dediğim zaman en son satırda duruyor mesela.. noldu gene bu tabloya ya

 

[exam77]

bi incelim dosyanızı

 

[exam77]

tekrar mrb.
kodlarınızda bulunan bu stringi

Range("A2:K" & [A65536].End(3).Row - 13).Sort

şu şekilde düzeltin

Range("A2:K" & [A65536].End(3).Row).Sort

İyi Çalışmalar...

 

[Azizeasya]

Oldu teşekkür ederim

 

[exam77]

Rica ederim.

İyi Çalışmalar...

 

[kaan75a]

Selam

Arkadaslar ben yurtdısında ıs yapan bır kişiyim.buradaki yapılanlara göre bazı şeyleri değiştirerek bir takım program yapmaya çalışıyorum.sizden yardımcı olmanızı istiyorum yukarıdakı örneği ben biraz daha geliştirmek istiyorum buna göre eklemek istediğimde kodları nasıl değiştireceğim.

 

[exam77]

Arkadaslar ben yurtdısında ıs yapan bır kişiyim.buradaki yapılanlara göre bazı şeyleri değiştirerek bir takım program yapmaya çalışıyorum.sizden yardımcı olmanızı istiyorum yukarıdakı örneği ben biraz daha geliştirmek istiyorum buna göre eklemek istediğimde kodları nasıl değiştireceğim.

Macrodaki şu kodları:

Sub Düğme12_Tıklat()
Range("A2:K" & [A65536].End(3).Row).Sort Key1:=Cells(5, 12)
MsgBox " VİZE SON TARIHI'NE Göre Sıralama Tamamlandı..."
[a2].Select
End Sub

Şu şekilde değiştirin:

Sub Düğme12_Tıklat()
Range("A2:L" & [A65536].End(3).Row).Sort Key1:=Cells(5, 12)
MsgBox " VİZE SON TARIHI'NE Göre Sıralama Tamamlandı..."
[a2].Select
End Sub

İyi Çalışmalar...

 

[kaan75a]

Macrodaki şu kodları:

Sub Düğme12_Tıklat()
Range("A2:K" & [A65536].End(3).Row).Sort Key1:=Cells(5, 12)
MsgBox " VİZE SON TARIHI'NE Göre Sıralama Tamamlandı..."
[a2].Select
End Sub

Şu şekilde değiştirin:

Sub Düğme12_Tıklat()
Range("A2:L" & [A65536].End(3).Row).Sort Key1:=Cells(5, 12)
MsgBox " VİZE SON TARIHI'NE Göre Sıralama Tamamlandı..."
[a2].Select
End Sub

İyi Çalışmalar...

PEKİ DİGER SUTUNLARDA KI ÇALIŞAN KOTLARDA
Range("A2:K" & [A65536].End(3).Row).Sort Key1:=Cells(5, 12)

ŞEKLİNDE YAZILMIS.BUNLARI DEGIŞTIRDIGIMDE SORUN OLACAK MI

 

[exam77]

PEKİ DİGER SUTUNLARDA KI ÇALIŞAN KOTLARDA
Range("A2:K" & [A65536].End(3).Row).Sort Key1:=Cells(5, 12)

ŞEKLİNDE YAZILMIS.BUNLARI DEGIŞTIRDIGIMDE SORUN OLACAK MI

Diğer kısımlara dokunmayın. Sadece belirttiğim kısmı değiştirin. Aksi taktirde tabiki sorun olur...