Soru Sıralama

Katılım
11 Mart 2015
Mesajlar
2
Excel Vers. ve Dili
2013
Aşağıdaki örnekte yapmak istediğim sol stundaki kodlar aynı olduğu sürece "0" dan sonra 1 er artarak devam edip tekrar "0" a geldiğinde alt satırı kaldığı yerden 3-4-5-6 şeklinde devam etmesini nasıl sağlayabiliriz. Yardımcı olabilir misiniz. Şimdiden teşekkürler.

2120135084

0​

2120135084

1

2120135084

2

2120135084

0​

2120135084

3

2120135084

4

2120135084

5

2120135084

6

 

Ömer

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
22,184
Excel Vers. ve Dili
Microsoft 365 Tr
Ofis 2016 Tr
Merhaba,

Sorunuzu örnek dosya ekleyerek açıklayınız.

 
Katılım
11 Mart 2015
Mesajlar
2
Excel Vers. ve Dili
2013
Merhaba,

Örnekte sıra sütunundaki "0" değerleri sabit değerler. Benim istediğim Malzeme kodu aynı olduğu sürece sıralama 1 er artarak devam etsin. Yani kaba örnek olacak kurusa bakmayın "0" sabit olduğu için 0-1-2-0-3-4-5-6-0-7-8-9.... gibi artarak devam edecek.


Tekrar teşekkürler.
 

Ömer

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
22,184
Excel Vers. ve Dili
Microsoft 365 Tr
Ofis 2016 Tr
Deneyiniz.
Kod:
Sub sira_no()
  
    Dim i As Long, s As Double

    Application.ScreenUpdating = False

    For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
        If Cells(i, "B") > 0 Or Cells(i, "B") = "" Then
            On Error Resume Next
            s = 1
            s = Evaluate("=LOOKUP(2,1/((A1:A" & i - 1 & "=A" & i & ")*(B1:B" & i - 1 & "<>0" & ")),B1:B" & i - 1 & ")")
            If Err.Number <> 0 Then
                Cells(i, "B") = s
              Else
                Cells(i, "B") = s + 1
            End If
            On Error GoTo 0
         End If
    Next i
  
    MsgBox "İşlem Bitti.", vbInformation

End Sub
 

Ekli dosyalar

Üst