otomatik yazdırma

[aşgabatlı]

selam arkadaşlar gönderdiğim örnek dosyada TAKİP FORMUN`daki işlediğim verilerin otamatik olarak MALİYET sayfasınada işlenmesini istiyorum yardımlarınız için şimdiden teşekkür ederim.

 

[dEdE]

Merhaba,
Aşağıdaki kodları TAKİP FORMU isimli sayfanın kod bölümüne yapıştırıp, güle güle kullanınız.
Sorunuz fonksiyonlar bolümünde ama ben VBA olarak yanıtladım. Fonksiyon olarak yapmak kolay ama hem dosya boyutunu büyütür, hem de VBA kadar kullanışlı olmaz.

Private Sub Worksheet_Change(ByVal Target As Range)
    Set s1 = Sheets("TAKİP FORMU")
    Set s2 = Sheets("MALİYET")
satir = s1.[K65536].End(3).Row
    For i = 6 To satir + 1
        s2.Cells(i, 1) = s1.Cells(i - 1, 6)
        s2.Cells(i, 7) = s1.Cells(i - 1, 11)
        s2.Cells(i, 10) = s1.Cells(i - 1, 16)
    Next
End Sub