Giriş sayfasında yazılan her bir hasta bilgisini Kayıt sayfasına aktarma

[saglikci71]

Giriş sayfasında yazılan her bir hasta bilgisini Kayıt sayfasına aktarma

arkadaşlar ekdeki dosya "giriş" sayfasında yazılan herbir hasta bilgisini "kayıt" sayfasına her hastayı bir kere kaydetmesini istiyorum. yardımcı olursanız sevinirim...

 

[ileriexcel]

Sub aktar()
Set sg = Sheets("GİRİŞ")
Set sk = Sheets("kayıt")
For Each bak In sk.Range("a1:a1000")
If bak = sg.Range("d3").Value Then
MsgBox "bu isimde kaydınız var"
Exit Sub
End If
Next
say = WorksheetFunction.CountA(sk.[a1:a65000])
sg.Range("alan").Copy
sk.Range("a" & say + 1).PasteSpecial
Application.CutCopyMode = False
End Sub

 

[saglikci71]

hocam ya kimse yardım etmeyecek mi?
çok uğraştım ama yapamadım...
yardımlarınızı bekliyorum..
teşekkürler...

 

[ileriexcel]

Biraz sabırlı olmalısınız yazdığım kodu bir deneyin.

 

[saglikci71]

hocam ilgilendiğiniz için teşekkür ediyorum .
kodu kopyaladım. ama çalışmadı. sözdizimi hatası var mesaji veriyor..

 

[ileriexcel]

®

Ekli dosyanızda uygulamayı deneyiniz.(Dosyanızda"alan"isimli ad tanımlaması yapılmıştır)

 

[saglikci71]

Hocam zaman ayırdığınız ve yardımlarınız için teşekkür ediyorum.
sorun halloldu...