Veri aktarımı

[m.gur]

Ek dosyadaki Form 1 sayfasındaki mavi ile belirlediğim alanlardaki bilgileri VERİ sayfasına aktarmak istiyorum. Bilgiler aktarıldıktan sonra yeni bilgiler yazılacak tekrar aktarılacak. İleriki zamanlarda istendiğinde herhangi bir veriyi bu forma aktarıp yazdırabilmeliyim. Nasıl bir işlem yapılabilir. Teşekkürler.

 

[Necdet]

Merhaba,

Aşağıdaki kodları aynı mantıkla siz tamamlamaya çalışınız.

Sub aktar()
Dim sf  As Worksheet
Dim sv  As Worksheet
Dim i   As Long
Set sf = Sheets("FORM 1")
Set sv = Sheets("VERI")
i = sv.[A65536].End(3).Row + 1
sv.Cells(i, "A") = sf.Range("AN5")
sv.Cells(i, "C") = sf.Range("B18")
sv.Cells(i, "E") = sf.Range("L18")
End Sub

 

[m.gur]

Sayın Necdet hocam; çok teşekkür ederim. Geri kalan formülleri yaptım sorunsuz çalışıyor. İyi çalışmalar dilerim.

 

[kemalist]

Arkadaşlar Bir Dosya Oluşturdum.Şimdide Bu Dosyaya Bir Form İlave Etmek İstiyorum.
Dosyanın Üzerine Bir Resim Yapıştırıp Açıklamaya Çalıştım
DOSYALAR EKTEDİR.YARDIMLARINIZ İÇİN ŞİMDİDEN TEŞEKKÜRLER.

 

[kemalist]

şifre 1234

 

[m.gur]

konu başka yere taşınmıştır