Tediye dekontu içeriğini diğer sayfaya aktarma

[akalkat]

Ekte bulunan tediye dekontunun içeriğini (adı soyadı-bölümü-açıklama-ödeme tutarı gibi) sayfa 2 ye aktarmak istiyorum.dikkat edilecek konu yeni bir kayıt yaptığımda sayfa 2 de eski kayıdı alt satıra alması.böylelikle uzun süre kayıtlar kalmış olsun.yardımlarınız için şimdiden teşekkürler.

 

[dEdE]

Merhaba,
Aşağıdaki kodu Modüle yapıştırarak dener misiniz?
Örnek dosyanızın ÖDEME isimli sayfasının sayfa adının başındaki ve sonundaki boşlukları silerek ya da kodu ona göre değiştirerek denemelisiniz.

Sub Aktar()
Set s1 = Sheets("ÖDEME")
Set s2 = Sheets("Sayfa2")
ss = s2.Range("B" & Rows.Count).End(3).Row + 1
    s2.Cells(ss, 2).Value = s1.Cells(7, 3).Value
    s2.Cells(ss, 3).Value = s1.Cells(7, 8).Value
    s2.Cells(ss, 4).Value = s1.Cells(5, 9).Value
    s2.Cells(ss, 5).Value = s1.Cells(10, 3).Value
    s2.Cells(ss, 6).Value = s1.Cells(12, 8).Value
    s2.Cells(ss, 7).Value = s1.Cells(9, 3).Value
End Sub

 

[akalkat]

'Tediye dekontu içeriğini diğer sayfaya aktarma'

Sayın Dede öncelikle ilginize teşekkür ederim.tam istediğim gibi olmuş.birde tediye kısmında makro yu çalıştıracak bir büton ekleyebilirmisiniz.

 

[dEdE]

Sayın Dede öncelikle ilginize teşekkür ederim.tam istediğim gibi olmuş.birde tediye kısmında makro yu çalıştıracak bir büton ekleyebilirmisiniz.

Merhaba
Dosyanız ilişiktedir.

 

[akalkat]

Teşekkür

Sn.YETKİLİ,

Benim gibi excel konusunda yeterli bilgiye sahip olmayanlar için yardımcı olduğunuzdan için sonsuz TEŞEKKÜRLER.

Ayrıca Sn.dEdE ye yardımlarından dolayı Teşekkür ederim.SAYGILARIMLA,