Sayı Tamamlama Hk.

[Ömer2134]

Arkadaşlar Merhaba

İstediğim örnek dosyada detaylı şekilde anlatılmıştır.

Kısa bir şekilde anlatacak olursak, en çok olandan, olmayana adet aktarımı yapılacaktır.

Şimdiden kolay gelsin.

Teşekkürler.

 

[Ömer2134]

arkadaşlarım hocalarım yardımlarınızı bekliyorum.

 

[Ömer2134]

Konu günceldir. Desteklerinizi bekliyorum.

 

[askm]

Aşağıdaki kodları kullanabilirsiniz.

Sub askm_sirala()
Dim SonSatir As Long
Dim deger, deger2 As Integer

satir = 3
SonSatir = Range("A" & Rows.Count).End(xlUp).Row
Range("D3:D" & SonSatir).ClearContents
For i = 3 To SonSatir
    If Cells(i, 3) > 1 Then
        deger = Cells(i, 3)
        For k = satir To SonSatir
            satir = satir + 1
            deger2 = Cells(k, 3)
            If deger2 = 0 Then
                Cells(k, 4) = Cells(i, 2)
                deger = deger - 1
                
                If deger = 1 Then
                    GoTo 10
                End If
            End If
            
        Next k
    End If
10:
Next i
MsgBox "İşlem Tamam...", vbInformation, "ASKM"
End Sub
[code]

 

[Ömer2134]

Hocam eline sağlık. Kodlar tam istediğim şekilde olmuş. Yalnız bir kaç sorum daha olacaktı.

makro 9 satıra göre çalışıyor.elimdeki data 20000 satırdan oluşuyor.

Örnek verecek olursam

Peynir 9 satır
yağ 15satır
Zeytin 6 satır

vs...

Bunun için ne yapabiliriz. Acaba her ürün grubundan sonra bir boşluk olsa ve makroda her boşluktan sonra kendi yenilese nasıl olur?

Teşekkürler

 

[hasankardas]

Hocam eline sağlık. Kodlar tam istediğim şekilde olmuş. Yalnız bir kaç sorum daha olacaktı.

makro 9 satıra göre çalışıyor.elimdeki data 20000 satırdan oluşuyor.

Örnek verecek olursam

Peynir 9 satır
yağ 15satır
Zeytin 6 satır

vs...

Bunun için ne yapabiliriz. Acaba her ürün grubundan sonra bir boşluk olsa ve makroda her boşluktan sonra kendi yenilese nasıl olur?

Teşekkürler

kod içindeki 10 değerini hücre sayınızla değiştirebilirsiniz.