Satırlardaki Biçimlere Göre Formül Uygulama

Arkadaşlar yardımlarınızı rica ediyorum.

İnternet kod bularak yapma çalıştım ama sonuç alamadım. Arkadaşlar yardımlarınızı bekliyorum.

Arkadaşlar yardımlarınızı rica ediyorum.

@YasarPiskin
Açıkçası LİSTE sayfasındaki tabloyu çok anlamlandıramadım.
Zira tablodaki formüller sadece TEK satırda (N sütunundaki en büyük sayının satırı) sonuç veriyor durumda.

İsteğiniz LİSTE sayfasıyla ilgili bir işlem ama LİSTE sayfasındaki alanların tümü FORMÜLlerle oluştuğuna ve
bu formüller de DATA sayfasındaki verilere bağlı olduğuna göre;

DATA sayfasının kod bölümünde yer alan Worksheet_Change kod blokunda bulunan
If son > 5 Then Range("B" & son - 2 & ":Q" & son - 2).Copy: Range("B" & son).PasteSpecial Paste:=xlPasteFormats
satırını silip, bunun yerine
If son > 3 Then Range("B" & son - 2 & ":Q" & son - 2).Copy: Range("B" & son).PasteSpecial Paste:=xlPasteFormats Sheets("LİSTE").[B4:N4].Copy Sheets("LİSTE").Range("B" & 4 & ":N" & son - 1) End If

satırlarını eklerseniz, DATA sayfasındaki tablodaki satır sayısına göre LİSTE sayfasındaki tablo da formüllerle beraber uzatılmış olur.

Dediğiniz değişiklikleri yaptım fakat, sonuç alamadım.

Çok teşekkür ederim.