Eksik olan serileri listelemek

[Korhan Ayhan]

Selamlar,

Forumda aradım gözüme çarpmıştı ama şimdi bulamadım. Yapmak istediğim Sayfa1 de A sütununda sıralı şekilde gitmesi gereken verilerim var fakat arada bazı seriler eksik bu eksik olan serileri B sütununa makro ile nasıl listeleyebilirim.

Ã?rnek dosya ekte;

 

[Levent Menteşoğlu]

Aşağıdaki linki inceleyin.

http://www.excel.web.tr/viewtopic.php?t=10412

 

[Korhan Ayhan]

Sn. leventm,

Verdiğiniz linki inceledim fakat kendime uyarlayamadım.

Yukarıdaki dosyayı güncelledim bakabilirseniz sevinirim. :arkadas:

 

[dost]

Merhaba,


Sayın leventm'nin yazdığı kodu size uyarladım.

[vb:1:b6778347be]
Sub ardisik()
c = 1
For a = 1 To [a65536].End(3).Row
If Not IsNumeric(Left(Cells(a, "a"), 1)) Then GoTo gec
deg1 = Mid(Cells(a, "a"), 5, Len(Cells(a, "a")) - 4)
basadon:
If Cells(a + 1, "a") = 0 Then Exit Sub
If Not IsNumeric(Left(Cells(a + 1, "a"), 1)) Then a = a + 1: GoTo basadon
deg2 = Mid(Cells(a + 1, "a"), 5, Len(Cells(a + 1, "a")) - 4)
If Val(deg2) - Val(deg1) <> 1 Then
For b = 1 To Val(deg2) - Val(deg1) - 1
c = c + 1
Cells(c, "b") = "'100." & WorksheetFunction.Rept(0, 3 - Len(deg1 + b)) & deg1 + b
Next
End If
gec:
Next
End Sub
[/vb:1:b6778347be]

 

[Korhan Ayhan]

Teşekkür ederim. :arkadas: