Çok Sayıda Satır Eklendikten Sonra Formüllerin Priyodik Yapıştırılması

[matriks]

Satır ekleme kısmında Sayın Leventm yardımları ile geliştirmeye çalışıtığım sorunumu diğer arkadaşların da yararlanabilceği düşüncesiyle
ayrı bir başlık altında yazmayı düşündüm.

İstenilen sayıda Satır(örn 26) eklendikten ve eklenilen satırlara A sütünunda bulunan isimler de tekrarlatılmakta ve toplamda her bir isimden 27 tane olan A sütunu elde edilmekte.
Sayın Leventm önerisi ile;

Sub YirmiAltı_SATIR_EKLE()
For x = [A65536].End(3).Row To 3 Step -1
If Cells(x, 1) <> Cells(x - 1, 1) Then
Rows(x & ":" & x + 26).Insert shift:=xlDown
Range("a" & x & ":a" & x + 26) = Cells(x - 1, 1)
Range("b" & x & ":aa" & x + 26) = Range("b" & x - 1 & ":aa" & x - 1).Formula
End If
Next
End Sub

Sorunumun son aşaması ise;
her bir ismin altına yeni 25 satır eklendikten sonra, BİRİNCİ ismin formülü olan c2-AA2 arasındaki formülün önceden bulunan ismin yanına yani C29-AA29 aralığına, yeni eklenen satır için C3-AA3 arasındaki formülün C30-AA30 arasına yapıştırılması......bu isim için son satır olan C55-AA55 arasına ise C28-AA28 arasındaki formülün yapıştırılması

Üçüncü isme gelindiğinde yani C56-AA56 arasına C2-AA2 arasındaki formülü;
C57-AA57 arasına C3-AA3 te bulunan formülü ........diye tekrarlanan formülü
yapıştırmak istiyorum.

Yapıştırılacak formüller eklenen satır sayısına göre ilk isim için bulunan formülleri yapıştırılabilir mi. Yani 3 satır eklersem isim sayısı 4 olacak,ve ilk baştaki 4 formülü alttaki isimlere ekleyebilirmiyim?

Deneme dosyasında da sorunuma ilişkin bir örnek bulunmaktadır.

Umarım açıklayıcı olabilmişimdir. Şimdiden çok teşekkürler.

 

[matriks]

Çok mu zor, olmayacak bir durum mu benim ki??:???:

x+27 . satıra X satırdaki formülün
x+28 . satıra X+1deki formül....... yapışması
...
..

:yardim:

 

[Levent Menteşoğlu]

Eklenen 26 satırın sadece ilk 3 satırınamı formüller kopyalanacak.

 

[matriks]

Eklenen 26 satırın sadece ilk 3 satırınamı formüller kopyalanacak.

26 satır eklenmişse her bir 26sına da en üstte bulunan 26 satırdakli formüller yapışacak