satır arasına boş satır ekleme sorunu

[güven]

Merhabalar
İnşallah doğru bölüme soruyorumdur.Arkadaşlar işyerinde çalışanların hepsini bilgisayara arşivledim.Yani sicil numarası 1 den sicil numarası 30.000 e kadar tüm çalışanları bilgisayara özlük bilgilerini kaydettim ama bir sorunum var.1-2-3-4-5 sicil numarası olarak gidiyor ama arada örneğin 25-26-28-30 gibi sırası ile gitmeyen alt alta yazdığım sicil numaraları var yani arada atlananlar var bunları nasıl bulabilirim.Yani 26-28 sicil numaralarının olduğu satırları bulup araya boş satır ekleyip 27 sicil numarasını yazmam lazım. 1 den 30.000 e kadar sicil numarası var tek tek bakıp arada atlanan sicil numarası olduğunu bulmam çok zor. Bu konuda makro yada başka bir alternatifi olan arkadaşların yardımına ihtiyacım var derdimi İnşallah anlatabilmişimdir.Cevap veren kardeşlerime sonsuz teşekkür ederim.

 

[N.Ziya Hiçdurmaz]

Yanıt

Sub TEST()
Dim SUT, S As Integer
For SUT = 1 To Cells(65536, "A").End(3).Row
Dim DEG()
S = S + 1
ReDim Preserve DEG(1 To 1)
DEG(1) = S
If Cells(SUT, "A") <> S Then
Cells(SUT, "A").EntireRow.Insert Shift:=xlDown
Cells(SUT, "A") = S
End If
Next
End Sub

 

[güven]

çok değerli üstadım eklemiş olduğunuz dosyayı indirdim ama bir türlü bu makroyu çalıştıramıyorum. Eklediğiniz düğmeyi tıklıyorum ama bir türlü örneğin 67-69 satırların arasına boş satır ekleyip 68 yapmıyor yada ben beceremiyorum.Yardımcı olurmusunuz teşekkür ederim.

 

[N.Ziya Hiçdurmaz]

Araçlardan makro güvenliğini orta seviye yapıp ilk açılışta makroları etkinleştirmelisiniz. Eğer bunları yaptıysanız istediğinizi küçük bir örnek ekleyerek izah ediniz.

 

[güven]

üstadım örnek bir dosya ekledim ama İnşallah açıklayıcı olmuştur.Teşekkürler