Tek Formdan Birden Çok Kayıt

[NeFuSa]

Öncelikle foruma yeni kayıt oldum, gördüğüm içerikten ve paylaşımdan dolayı oldukça minettarım. Excelde bir form sayfası ve birde kayıtların tutulacağı sayfam olsun istiyorum. Form sayfasından "Ad Soyad" - "Tarih" - "Tutar" - "Açıklama" gibi bilgileri gireceğim ve kayıtların tutulacağı sayfaya bunları listeleyecek. Bunu yapabilmem için biraz açıklama yapabilirmisiniz?

Saygılar...

 

[N.Ziya Hiçdurmaz]

yanıt

Merhaba.

Sub test()
Set s1 = Sheets("Forum")
Set s2 = Sheets("Kayıtlar")
s1.[a2:d2].Copy
s = WorksheetFunction.CountA(s2.[a1:a65536])
s2.Range("a" & s + 1).PasteSpecial
s1.[a2:d2].Clear
Application.CutCopyMode = False
End Sub

 

[Seyit Tiken]

İlgili örnek dosyayı inceleyiniz.

Sub Düğme1_Tıklat()
Range("A210").Copy Destination:=[sayfa2!a6500].End(3).Offset(1)
[sayfa2!a:d].ClearFormats
MsgBox "Aktarma yapılmıştır", vbInformation
End Sub

 

[Orion1]

Merhaba.
Formumuza hoş geldiniz.
Sizin için hemencecik bir örnek dosya hazırladım.
Form sayfasında verileri girip Buton basıyorsunuz.
Veri sayfasında alt alta kaydediyor.
Bir inceleyin .Gerekli değişiklikleri yapabiliriz.:
Kolay gelsin

 

[NeFuSa]

Merhaba.
Formumuza hoş geldiniz.
Sizin için hemencecik bir örnek dosya hazırladım.
Form sayfasında verileri girip Buton basıyorsunuz.
Veri sayfasında alt alta kaydediyor.
Bir inceleyin .Gerekli değişiklikleri yapabiliriz.:
Kolay gelsin

Aradığım şey tam olarak buydu, çok teşekkür ederim yardımcı olan herkese.

 

[Orion1]

Rica ederim.
İyi çalışmalar.