Soru Sıralama

[sanane64]

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]

Merhaba,

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

Dosya Yükle - Dosya Upload

Dosyalarınızı ücretsiz yükleyebilir ve paylaşabilirsiniz.

dosya.co

 

[sanane64]

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.

İndir Kitap12

Dosyayı indir Kitap12

dosya.co

Tekrar teşekkürler.

 

[Ömer]

Deneyiniz.

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

İndir Kitap12 Kopya

Dosyayı indir Kitap12 Kopya

dosya.co