Veri girişi

[yusuf.sak]

Merhaba arkadaşlar,

Excel çalışma sayfasında tek bir satıra girilen verileri kaydet butonu ile farklı bir çalışma sayfasına aktaracak ve girilen verileri kaydedilen diğer satırların altına yazmaya devam edecek şekilde bir çalışma yapmak istiyorum.

Bu çalışma sayfası aynı zamanda paylaşılmış olacak ve fazla kullanıcı veri girişi yapacak.

Örnek çalışma kitabı ektedir.

Yardımcı olursanız çok memnun olacağım.

Teşekkürler.

 

[yerbakili]

Bir modül oluşturun ve bu kodları oraya yapıştırın. Sayfanızdaki butona da bu makroyu atayın.

Sub aktar()
Sheets("tablo").Select
Range("A2").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop

If Range("A2").Value = "" Then
Range("A2").Value = 1
Range("A2").Select
Else
ActiveCell.Value = ActiveCell.Offset(-1, 0) + 1
End If

    ActiveCell.Offset(0, 1).Value = Sheets("veri girişi").Range("b3").Value
    ActiveCell.Offset(0, 2).Value = Sheets("veri girişi").Range("c3").Value
    ActiveCell.Offset(0, 3).Value = Sheets("veri girişi").Range("d3").Value
    ActiveCell.Offset(0, 4).Value = Sheets("veri girişi").Range("e3").Value
    ActiveCell.Offset(0, 5).Value = Sheets("veri girişi").Range("f3").Value
    ActiveCell.Offset(0, 6).Value = Sheets("veri girişi").Range("g3").Value
    ActiveCell.Offset(0, 7).Value = Sheets("veri girişi").Range("h3").Value

    MsgBox "Veri girişi tamamlanmıştır."
    Sheets("veri girişi").Select
End Sub

Ya da aşağıdaki eki indirin. Çalışmanız ektedir.

 

[yusuf.sak]

Elinize sağlık,

Fakat paylaştırılmış sayfa da çalıştıramadım.

Çalıştırma yöntemi var mı acaba?

 

[yerbakili]

Elinize sağlık,

Fakat paylaştırılmış sayfa da çalıştıramadım.

Çalıştırma yöntemi var mı acaba?

Paylaştırılmış sayfada bildiğim kadarıyla makrolarda sıkıntı oluyor. Onun aşım yöntemi nedir inanın bilmiyorum.