veri aktarma

[metinavci23]

merhaba arkadaşlar,

veri aktarmada bir sorunum var.yardımcı olursanız sevinirim.
sorunum şöyle:
Ektesunulan dosyada Sayfa1 olan rakamları Sayfa2'ye aktarmak istiyorum.Yalnız Sayfa1 veriler tek satırda bulunuyor.ben bu verileri Sayfa 2'ye aktarmak istiyorum yalnız farklı hücrelere.Ben örnekte Sayfa1 1.satırdaki verileri Sayfa2'ye ilgili hücrelere formul ile aktardım.Bu işlemi makro ile yapmak istiyorum.Ve birde Sayfa1 2.satırdaki ve sonradakileri Sayfa2'nin aktarılan Sayfa1 1.satırdaki verilerin tam 20 satır altına .ve bu boyle devam etmesi ta ki Sayfa1 veriler bitene kadar.Umarım anlatabilmişimdir.şimdiden teşekür .

 

[Necdet]

Merhaba,

Neden öyle bir format izlediniz merak ettim gerçekten.

Dosyayı inceleyiniz.

Public Sub Aktar()
Application.ScreenUpdating = False
Set s1 = Sheets("Sayfa1")
Set S2 = Sheets("Sayfa2")
S2.Cells.ClearContents
s1.Select
Satır = 8
For i = 1 To [A65536].End(3).Row
    S2.Cells(Satır, "D") = Cells(i, "A")
    Satır = Satır + 5
    S2.Cells(Satır, "B") = Cells(i, "B")
    S2.Cells(Satır, "B").NumberFormat = "m/d/yyyy"
    S2.Cells(Satır, "F") = Cells(i, "C")
    S2.Cells(Satır, "F").NumberFormat = "#,##0.00"
    Satır = Satır + 1
    S2.Cells(Satır, "B") = Cells(i, "D")
    Satır = Satır + 20
Next i
MsgBox i - 1 & " Adet Veri Aktarılmıştır"
End Sub

 

[metinavci23]

cevap

Sn.Necdet Yesertener ben müşterilerimize yıl sonu bakiyelerle ilgili yazı göndericeğim.Kullandığımız paket programdan bakiyeleri alım bu makroyu biraz daha geliştirip kendilerine yazı göndericeğim. Size çok teşekür ederim.Ellerinize sağlık.

 

[Necdet]

Sayın metinavci23,

Müşterilerinize yazı gönderecekseniz bunun başka bir yolu da Word ile Adres Mektup Birleştirme olanağını da kullanabilirsiniz.

Yazılar Word, ilgili datalar excelde olabilir.

Tek bir şablonla tüm müşterilerinize yazı gönderebilirsiniz. İlginizi çekerse mail merge yada adres mektup birleştirme olarak aratırsanız forumda gerekli açıklamaları bulursunuz. vbmenu_register("postmenu_232221", true);

 

[metinsirin]

Selam Arkadaşlar
Benimde de buna benzer bir sorunum var.
Ekte irsaliye kesmekte kullandığım bir XLS var
Yapmak istediyim irsaliyeyi yazmaya hazırladıktan sonra yazma işleminden önce bir buton aracılığı ile belirlediyim kolonları bir başka sayfaya aktarmak bunu nasıl yapa bilirim
Teşekkürler