Soru Kodlama adımlarındaki hatalar.

[yasarcan]

Private Sub CommandButton1_Click()
Range("A11:U65536").Select
    Selection.Sort Key1:=Range("K11"), Order1:=xlDescending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Range("C11").Select
End Sub

Private Sub CommandButton2_Click()
Set s1 = ThisWorkbook.Worksheets("Sayfa1")
Call s1.Range("A11:U65536").Sort(s1.Range("C11"), xlAscending, s1.Range("K11"), , xlAscending, , , xlYes, , , xlSortColumns)
End Sub

Private Sub CommandButton3_Click()
Dim i As Long, x As Long
For i = 11 To Range("B65536").End(3).Row
On Error Resume Next
If (Range("b" & i).Value <> "") Then
Else
(Rows(i).RowHeight > 0) Then
Cells(Rows(i).Row, "A").Value = x
x = x + 1
End If
Next i
x = Empty
End Sub

İŞLEM SIRAM ŞU ŞEKİLDE:
ilk 10 satır sürekli sabit
değişken işlemlerim 11. satırdan başlıyor
satırların bazısını gizliyorum ve gizlediğim satıra sıra numarası vermesini istemiyorum.
K hücresinde yaptığım toplamı nedeniyle butonla büyükten küçüğe sıralıyorum
A hücesine sıra numarası veriyorum (gizli hücreleri atlayarak ve B hücresinde yazı varsa)
işim bitiyor orjinale dönmek için;
A hücesine sıra numarasını siliyorum
C hücresindeki orjinal sıralama nedeniylede küçükten büyüğe sıralıyorum.

bunları 4 ayrı butonla yapmak istedim.
CommandButton1 : sorunsuz büyükten küçüğe sıralıyor!!
CommandButton2 : küçükten büyüğe sıralarken 11. satır sabit kalıyor??
CommandButton3 : sıra numarası verirken b doluysa numara veri yapıyor ama gizli hücreyi atlatamadım kodu düzenleyemedim??
CommandButton4 : a sütununu temizle koduna henüz hiç başlamadım??

yardımcı olursanız sevinirim.
teşekkür ederim.

çalışmam burada (yandex)

 

[yasarcan]

Merhabalar 3 butonu çözdüm arkadaşlar
sadece bu kaldı:

Private Sub CommandButton3_Click()
Dim i As Long, x As Long
For i = 11 To Range("B65536").End(3).Row
On Error Resume Next
If (Range("b" & i).Value <> "") Then
Else
(Rows(i).RowHeight > 0) Then
Cells(Rows(i).Row, "A").Value = x
x = x + 1
End If
Next i
x = Empty
End Sub

 

[ÖmerFaruk]

if sorgunuzda
Rows(i).Hidden=True cümlesini de ekleseniz olacak sanki

 

[yasarcan]

if sorgunuzda
Rows(i).Hidden=True cümlesini de ekleseniz olacak sanki

malesef çalıştıramadım.

 

[ÖmerFaruk]

Private Sub CommandButton3_Click()
Dim i As Long, x As Long
    For i = 11 To Range("B65536").End(3).Row
        If Rows(i).Hidden = False And Range("b" & i).Value <> "" Then
            Cells(Rows(i).Row, "A").Value = x
            x = x + 1
        End If
    Next i
    x = Empty: i = Empty
End Sub

 

[yasarcan]

Çalıştı ve çözüldü tşk ederim

 

[ÖmerFaruk]

Eyvallah