sırala makrosu

[airborne]

sayfa3 te a1 sütununda sıra no metni bulunmaktadır. kayıt sil butonu ile kayıt sildiğimde a2 den itibaren 1 den başlayarak sıralacak maro
Sub sirala()
Sheets("sayfa3").Select
Range("a2:a100").Select
Selection.Sort key1:=Range("a1"), order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A1").Select
For i = 2 To WorksheetFunction.CountA(Range("a:a"))
Sheets("Sayfa3").Cells(i, 1).Value = i
Next
End Sub
bu olmasına rağmen a2 hücresinde 2 den başlayarak sıra noyu sıralamatadır. benim yapmaya çalıştığım 1 den başlayarak sınalaması. Yardımcı olacak arkadaşlara şimdiden teşekkürler .
Not dosyanın boyutu büyük olduğu için ekleyemedim

 

[zafer]

Merhaba

Satırını değiştirin
Sheets("Sayfa3").Cells(i, 1).Value = i -1

Kodları denemedim ama siz i yi 2 den başlattığınız için öyle oluyor.

 

[osmantelci]

Cevabınız ektedir

 

[ozsah]

Sub sırala()
ActiveSheet.Unprotect "sy"
Range("a5:X200").Select
Selection.Sort Key1:=Range("C5"), Key2:=Range("D5"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
[c65536].End(3).Offset(1).Select
ActiveSheet.Protect "sy"
End Sub

Sırala makrom yukarıdaki gibi sorum şu doğal olarak hücreleri koruyorum makrom hücreyi önce açıyor sıralıyor sonra korumayı kapatıyor. sorum şu korumayı tekrar yaparken benim bazı ayarlarımı yok ediyor örneğin 1-hücreleri biçimlendir 2-sırala 3-süzü kullan 4-nesne düzenle gibi vs. bir iki tane daha var.
onları benim yaptığım gibi kapatsın oralara dokunmasın istiyorum. engin tecrubelerinize şimdiden teşekkür ederim.

 

[1Al2Ver]

("b4:h") aralığını "Sırala" düğmesi ile sadece alfabetik sıralayacak bir macro'ya ihtiyacım var, (sırala düğmesi, sıralanacak sayfada bulunuyor ; sayfa adı örneğin "Müşteri" olsun), yukarıdaki örnekler ile yapamadım, teşekkür ederim.

 

[Ali]

("b4:h") aralığını "Sırala" düğmesi ile sadece alfabetik sıralayacak bir macro'ya ihtiyacım var, (sırala düğmesi, sıralanacak sayfada bulunuyor ; sayfa adı örneğin "Müşteri" olsun), yukarıdaki örnekler ile yapamadım, teşekkür ederim.

Aşağıdaki linki incelermisiniz.

http://www.excel.web.tr/showthread.php?t=39298

 

[Levent Menteşoğlu]

Kodunuz içindeki son satırı aşağıdaki ile değiştirin.

ActiveSheet.Protect "sy", DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowFormattingCells:=True, AllowSorting:=True, AllowFiltering:= _
        True