veri girişi

[takirti]

sayfa1 de veri girişi yapıldığında personeller sayfasına alt alta gelecek şeklinde kayıtedilmesini istiyorum. acaba makro ile nasıl yapabiliriz. tşkler

 

[Seyit Tiken]

kodu kendinize göre ilaveler yaparak deneyiniz. Kodlar biraz uzun olabilir.

Sub Düğme3_Tıklat()
Sheets("personeller").[b65000].End(3).Offset(1, 0) = Sheets("Sayfa1").[C2]
Sheets("personeller").[c65000].End(3).Offset(1, 0) = Sheets("Sayfa1").[C3]
Sheets("personeller").[d65000].End(3).Offset(1, 0) = Sheets("Sayfa1").[C4]
Sheets("personeller").[e65000].End(3).Offset(1, 0) = Sheets("Sayfa1").[C5]
Sheets("personeller").[f65000].End(3).Offset(1, 0) = Sheets("Sayfa1").[C6]
Sheets("personeller").[g65000].End(3).Offset(1, 0) = Sheets("Sayfa1").[C7]
End Sub

 

[Mahmut Kök]

dosyanız ekte..

 

[takirti]

Sayin Seyİt Tİken Ve Meslekİ Elİnİze SaĞlik. Yardimlariniz İÇİn TŞkler. Sayenİzde BİrŞeyler ÖĞrenİyoruz.

 

[takirti]

Sayın mesleki
makronuz gayet güzel çalışıyor. Veri Girişi yapıldıkça aktarma yapıyor. Yalnız sormak istediğim bir konu daha var. Mesela 2. satıra veri girişi yapıldıkdan sonra diğer veri girişi 3 .satıra yapılıyor. Eğer daha sonra 2. satırdaki verileri sildiğimizde bir sonraki veri girişi 4 .satırdan başlıyor. Acaba aradaki boşluğu silerek (Alttaki veriler üste gelmesi sartıyla) en son boş hücreye veri girişi yapabilimriiyz. Tşkler

 

[takirti]

Ek Olarak. Ayrica BoŞ Şekİlde Aktarma Yapilmasini Nasil Önlerİz. Şİmdİden TŞkler

 

[Mahmut Kök]

Boş satırı kendiniz silip aşağıdaki kodu, önceki kodla değiştirirseniz sorun kalmaz. Yani, 4. satır boş ise, satır numarasını sağ tıklayıp, silin. Sonra kaydetmeye devam edin. Satırı el ile silmek istemezseniz belirtin..


Sub taşı()

Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("personeller")
If s1.Range("c2") = Empty Then
MsgBox "LÜTFEN PERSONEL BİLGİLERİNİZİ GİRİNİZ"
Exit Sub
Else
End If

For a = 3 To 65000
If s2.Cells(a, 1) = Empty Then GoTo 2
s2.Cells(a, 1) = a - 2
Next

2

For b = 1 To 34
s2.Cells(a, b + 1) = s1.Cells(b + 1, 3)
Next
s2.Cells(a, 1) = a - 2
MsgBox "taşındı"
End Sub

 

[Mahmut Kök]

koda ilave yaptım, giriş sayfasında personel ismini boş bırakırsanız kayıt yapmaz.

 

[takirti]

Sayın mesleki
verdiğiniz kodu denedim. Bilgisayarımda kasma yaptı. alt+ctrl+del yapmak zorunda kaldım.