Kayıt Makrosu

[alptun20]

Dosyada derdimi anlatmaya çalıştım, ilgilenenlere teşekkürler...

 

[leumruk]

Merhaba,

Sub Aktar()
Set s2 = Sheets("Sayfa2")
Sut = Cells(1, 256).End(1).Column
Application.ScreenUpdating = False
For x = 2 To [a65536].End(3).Row
Sat = s2.[a65536].End(3).Row + 1
Range(Cells(x, 1), Cells(x, Sut)).Copy
s2.Cells(Sat, 1).PasteSpecial Paste:=xlValues
Next
Application.ScreenUpdating = True
Application.CutCopyMode = False
MsgBox "Aktarma işleminiz tamamlanmıştır.", vbInformation, "İŞLEM TAMAM"
End Sub

 

[alptun20]

Teşekkürler Leumruk yalnız bu makro F sütununa kadar aktarma yapıyor. Bütün satırın aktarılması için makroyu nasıl düzeltebilirim.

 

[alptun20]

Birde Adı ve Soyadı bölümüne göre daha önceden yapılan kayıt olduğunda o kaydı atlayıp diğerlerini kayıt etmesi için bir makro yazılabilirmi.. Teşekkürler

 

[leumruk]

Birde Adı ve Soyadı bölümüne göre daha önceden yapılan kayıt olduğunda o kaydı atlayıp diğerlerini kayıt etmesi için bir makro yazılabilirmi.. Teşekkürler

Merhaba,
Nasıl bir şey yapmaya çalıştığınız konusunda biraz açıklama yapabilir misiniz? Bazı kısımların mantığını iyi anlamam gerekiyor. Örneğin Ad-Soyad kısmı aynıysa aktarmasın demişsiniz. Ad-Soyad aynı olup girilen veriler farklıysa. Baba adı gibi...
Bununyerine bir sütun daha açsanız ve TC kimlik numarasını ekleseniz, Herkesin TC'si farklı olacağından daha doğru sonuca ulaşabiliriz. Ayrıca TC kontrolü ile oluşturacağımız kod çok daha hızlı çalışacaktır.