liste sablonlama ve vadelı fıyat bılgısı cıkarma

[kakara]

Merhaba ustadlarım ekte yolladıgım dosyada detaylı acıklamaları yaptım. lıstemın dınamık bır sablon halıne gelmesı ve gelen sablondan toplam tutar kısmında vadelı odeme hesaplatmasını amaçlıyorum ılgınız ıcın sımdıden tesekkurler

 

[YUSUF44]

Aynı şeyleri iki ayrı yerde yapmaktansa tek tabloda halledebilirsiniz. ekli dosyada Tablo olarak biçimlendirerek tablonuzu oluşturdum. K5 hücresindeyken Tab tuşuna bastığınızda alta yeni satır açılır ve formüller yeni duruma göre güncellenir.

 

[kakara]

@YUSUF44 ustadım ben bu tabloyuda baska sayfadan cekerek olusturucam yanı tablo ham halde gelıcek ve kac satır olucagı bellı olmayacak ben o ham haldekı tabloyu toplam adet toplam tutar ıle bır sablon halıne getırıp cıkan toplam tutara da vade hesaplatması yapmak ıstıyordum sızın hazırladıgınız sanırım benım rıcamı karşılamıyor zaman ayırdıgınız ıcın tesekkur ederım.

 

[kakara]

sorunum devam etmektedır yardımcı olucak ustadlara sımdıden tesekkurler.

 

[YUSUF44]

Tablonuzun ham hali nasıl?

 

[kakara]

@YUSUF44 ustadım tekrar dosyamı yukledım daha detaylı anlatmaya calıstım. ılgınız ıcın tesekkur ederım sız aslında bır sayfa daha eklemıssınız sayfa eklemeden yapmanın ımkanı var mıdır ?

 

[YUSUF44]

Aşağıdaki makroyu dener misiniz? Ben örnek dosyanızda 9. satır ve altındakileri sildikten sonra çalıştırdım:

Sub duzenle()
    sonsat = 3
    For i = 3 To 14
        son = Cells(Rows.Count, i).End(3).Row
        If son > sonsat Then sonsat = son
    Next
    Range("C3:N" & sonsat).Borders().LineStyle = 1
    Range("H" & sonsat + 1) = "Aylık Vade"
    With Range("H" & sonsat + 2).Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=Sayfa2!$A$3:$A$14"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
    Range("H" & sonsat + 2) = 1
    Range("I8").Select
    Range("I" & sonsat + 1).Formula = "=SUM(I4:I" & sonsat & ")"
  
    Range("K" & sonsat + 1).Formula = "=SUM(K4:K" & sonsat & ")"
    Range("K9").Select
    Range("K" & sonsat + 2).FormulaR1C1 = "=R[-1]C*VLOOKUP(RC[-3],Sayfa2!R3C1:R14C2,2,0)"
End Sub