Kayıt Formundaki bilgileri, Data sayfasında listelemek

[kmlpyrz]

Örnek olarak hazırldığım formda kişi bilgileri var. Ancak bu bilgilerin hepsi aynı satırda olmadığından, DATA sayfasına kopyalama yapamıyorum. Yapmak istediğim şey "EKLE" butonuna tıkladığımda, bu form üzerindeki kişye ait bilgilerin, DATA sayfasındaki boş satıra kopyalanıp liste oluşturmasını sağlamak. İlginizden ve yardımlarınızdan dolayı teşekkür ederim.

 

[AS3434]

Sayın kmlpyrz

Aşağıdaki linki inceleyin.

http://www.excel.web.tr/showthread.php?t=15160&highlight=veri+y%F6netimi

 

[N.Ziya Hiçdurmaz]

yanıt

Private Sub CommandButton1_Click()
Set g = Sheets("GİRİŞ")
Set d = Sheets("DATA")
For sut = 1 To d.[b65536].End(3).Row
d.Range("b" & sut + 1) = g.[c4].Value
d.Range("c" & sut + 1) = g.[g8].Value
d.Range("d" & sut + 1) = g.[I8].Value
d.Range("e" & sut + 1) = g.[K8].Value
d.Range("f" & sut + 1) = g.[e12].Value
d.Range("g" & sut + 1) = g.[g11].Value
Next
For say = 1 To d.[b65536].End(3).Row
d.Range("a" & say) = say
Next
End Sub

 

[kmlpyrz]

Sayın AS3434 ve V.Basic For Applications ilginizden dolayı teşekkürler.

Sayın V.Basic For Applications yeni bir kiş eklediğimde, Data sayfasındaki kişi isimleri kayboluyor. Yani her satırda aynı kişinin bilgileri görülüyor.

 

[veyselemre]

Böyle deneyin.

Private Sub CommandButton1_Click()
    Set g = Sheets("GİRİŞ")
    With Sheets("DATA").[b65536].End(3).Offset(1)
        .Value = g.[c4].Value
        .Offset(, 1) = g.[g8].Value
        .Offset(, 2) = g.[I8].Value
        .Offset(, 3) = g.[K8].Value
        .Offset(, 4) = g.[e12].Value
        .Offset(, 5) = g.[g11].Value
        .Offset(, -1) = .Offset(-1, -1) + 1
    End With
End Sub

 

[kmlpyrz]

Sayın veyselemre'nin yardımlarıyla, yeni kişinin bilgileri DATA sayfasına aktarabiliyor. Bende excel.web.tr'nin sayesinde dosyama küçük bir ekleme yaptım. Böylece kayıt formu hem veri girme hemde veri alma amacıyla kullanılabiliyor. C4 hücresinin değeri değiştirildiğinde, ilgili kişinin bilgileri DATA sayfasından bulunup bu forma getiriliyor.

Ancak diyelim ilgili kişinin bilgilerinde değişiklik oldu ve ben C4 hücresinden o kişiyi seçip bilgilerini güncelledim. EKLE / DÜZELT butonuna tıkladığımda o kişiyi DATA sayfasında bulup, değerleri üzerine yazsın. Yani yeni kişi olarak alta eklemesin. Yardımcı olursanız sevinirim.

Bu arada ben seçilen kişiyi silmek için biraz araştırma yapayım.

Not: Sayın veyselemre ilginizden ve yardımlarınızdan dolayı teşekkür ederim.