Kayıt Defterine Data Sayfasından Otomatik Numara Vererek Kişi Ekleme

[acnidre]

merhaba forumdaşlar,

ekte örneğini paylaştığım dosyada, DATA sayfasındaki kişilerin GİRİŞ sayfası üzerinden kurslara (kurs1, kurs2 gibi sayfalara) EKLE butonu ile ve otomatik sıra no vererek kaydolması için çözüm önerilerinizi bekliyorum.

saygılarımla

kursiyer.xlsx - 11 KB

 

[yanginci34]

Bunun gibi 2. formuda derlerseniz işinizi görürmü?
Ekli dosyayı görüntüle kursiyer deneme.xlsm

 

[yanginci34]

pardon dosyanız bu link tedir.
http://s6.dosya.tc/server8/xu04zp/kursiyer_deneme.rar.html

 

[acnidre]

pardon dosyanız bu link tedir.
http://s6.dosya.tc/server8/xu04zp/kursiyer_deneme.rar.html

emeğinize sağlık, teşekkür ederim ama tam olarak istediğimiz şu şekilde:

DATA sayfasında kursiyer bilgileri var. Veri tabanı gibi. Normalde gizli bir sayfa bu ve binlerce kişi var listede.

GİRİŞ sayfasında evrak kayda bakacak arkadaşlar kursiyer geldiğinde kursa kaydı burada yapacak. Aynı anda bir-iki kurs kaydı söz konusu. TC girişi üzerinden düşeyara komutu ile bilgileri kontrol edilecek. Buraya kadar sıkıntımız yok.

Sıkıntımız: KURS1-KURS2 gibi sayfalara GİRİŞ'ten EKLE butonu ile kayıt yapmak... YAZDIR butonu ile de BELGE basmak.

YAZDIR komutunu faaliyete alabiliyoruz ama EKLE butonunun mantığını kavrayamadık? Size zahmet forumdaşlar... Şimdiden teşekkür ediyorum ilginize, cevaplarınıza

Saygılar
NOT: Yeniden yükledim örnek dosyayı
indir: kursiyer.xls

 

[yanginci34]

denermisiniz
http://s6.dosya.tc/server8/phh4sz/kursiyer_deneme_makro.rar.html

 

[acnidre]

denermisiniz
http://s6.dosya.tc/server8/phh4sz/kursiyer_deneme_makro.rar.html

süper k:: tam istediğim gibi

sayın @yanginci34 çok teşekkür ederim...
kodlarınızı inceliyorum. sağ olun, var olun

 

[yanginci34]

rica ediyorum kolay gelsin.

 

[yanginci34]

2. butondaki kodlardaki kodlardaki ilk satırdaki
Sheets("kurs2").Cells(Sheets("kurs2").Range("A65500").End(3).Row + 1, "A") = Sheets("kurs1").Range("d1")
düzeltmeyi yaparmısınız?

 

[yanginci34]

2. butonun kodlarında ilk satırda aşağıdaki gibi düzenleme yapabilirmisiniz?

Sheets("kurs2").Cells(Sheets("kurs2").Range("A65500").End(3).Row + 1, "A") = Sheets("kurs2").Range("d1")

 

[acnidre]

deniyorum...
D1 hücresindeki

=BÜYÜK(A:A;1)+1

formüle atfen mi çalışyor makro kodları?

mantığı anlamaya çalışıyorum. tam istediğim gibi oldu gerçekten de. teşekkür ederim tekrar

 

[yanginci34]

doğrudur sayı numarasını her iki sayfadan d1 den alıyor kodu buna göre yazdım