Makro ile satır sildirme ve satır ilave etme

[ottoman71]

Merhaba arkadaşlar.

Örneğin 1 sütünda 100 satırlık bilgi bulunmakta.Bu sütün "A" sütünu olsun.

1-) Satır başından insert yaparak 24 satırlık bilgi ekleyeceğiz.Toplam satır sayısı 124 oldu. (24 satırlık bilgi sabit değer. Her zaman eklenecek)
2-) Eklenen 24 satırın; 5.,6.,7. ve 8. satırlarını 30., 31., 32. ve 33. satırdaki bilgi ile değiştireceğiz. (kopyala - yapıştır olacak)
3-) Yine eklenen 24 satırın 12. satırdaki bilgi, 38. satırdaki bilgi ile değişecek.
4-) 25. satırdan itibaren 63. satıra kadar olan 38 satırlık kısım silinecek.
5-) 70. satır silinecek

Bu yukarıdaki aşamaları makro ile yapabilirmiyiz.

Yardım ederseniz çok memnun olurum.
Şimdiden teşekkur ederim.

 

[N.Ziya Hiçdurmaz]

yanıt

Sub satirislemleri()
s = 1
    For sat = 1 To Cells(65536, "a").End(xlUp).Row
      s = s + 1
      Cells(s - 1, "a").Insert
      If s = 25 Then Exit For
    Next
Rows("5:5") = Rows("31:31").Value
Rows("6:6") = Rows("32:32").Value
Rows("7:7") = Rows("33:33").Value
Rows("8:8") = Rows("34:34").Value

Rows("12:12") = Rows("38:38").Value
Rows("25:63") = ""
Rows("70:70") = ""
End Sub

 

[ottoman71]

Sub satirislemleri()
s = 1
    For sat = 1 To Cells(65536, "a").End(xlUp).Row
      s = s + 1
      Cells(s - 1, "a").Insert
      If s = 25 Then Exit For
    Next
Rows("5:5") = Rows("31:31").Value
Rows("6:6") = Rows("32:32").Value
Rows("7:7") = Rows("33:33").Value
Rows("8:8") = Rows("34:34").Value

Rows("12:12") = Rows("38:38").Value
Rows("25:63") = ""
Rows("70:70") = ""
End Sub

Ziya hocam teşeşkkur ederim.
Yalnız ben tam ifade edemediğim için eksik oldu. Gönderdiğim dosyaları inceleyip tekrar yardımcı olursanız sevinirim.

Kolay gelsin.

 

[ottoman71]

Lütfen yardım....!

 

[ottoman71]

Ziya Hocam,

Bu konu ile alakalı bir yardım daha isteyecektim.
Rows("25:63") = ""
Rows("70:70") = ""
sildirmiş olduğumuz bu satırlardaki sadece verileri siliyor.
Bu satırları nasıl delete yaptırabiliriz. Yani satırlar arası boşluk olmayacak.

Yardımcı olabilirmisiniz.