verileri tekrarlama

[unreal_avci]

ekteki dosyada istedigim sonucu formul ile nasil bulurum.

ters mukerrer islemi gibi.
verileri kac kere tekrarlanacagi degisken.
cevaplar icin tesekkur ederim.

 

[Korhan Ayhan]

Selamlar,

Bu verileri makro ile listelemek daha uygun olacaktır.

 

[unreal_avci]

macro ile cozum olursa daha iyi olur
cozebilirseniz sevinirim.

 

[unreal_avci]

yardim edecebilecek yokmu

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub TEKRARLI_LİSTE_OLUŞTUR()
    Dim X As Long, Satır As Long
    
    Range("D2:D65536").ClearContents
    Satır = 2
        
    For X = 2 To Range("A65536").End(3).Row
        If Cells(X, 1) <> "" And Cells(X, 2) <> "" And Cells(X, 2) > 0 Then
            Range("D" & Satır & ":D" & Satır + Cells(X, 2) - 1) = Cells(X, 1)
            Satır = Range("D65536").End(3).Row + 1
        End If
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[ekvator]

Korhan Bey Örnek İçin Teşekkürler,Benim Çok İşime Yaradı,bu değerli bilgileri paylaştığınız için hepinize teşekkürler

 

[unreal_avci]

korhan bey cok tesekkur ederim istedigim gibi oldu.

fakat b sutununa formul ile tekrarlama sayilarini getirdigimde olmuyor.
0 olan sonuclar olabiliyor.

bu durumda 0 olan sonucu atlayip sonrakini devam etmesini nasil saglayabilirim.

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımdaki kodu güncelledim. İncelermisiniz.