Arşiv

[eminuslu]

Sevgili arkadaşlar hepinize iyi geceler sitemizden aldığım bir formda hafif değişiklik yapılmasını istiyorum dosyam ekte olup yardım etme gayretinde olan herkese sonsuz selam ve saygılar
Sorum şu formdan aktar butonu ile kayıt sayfasına aktarılan bilgileri çağırıp Arşivle butonuna tıkladığımızda Kayıt sayfasındaki bilgiler siliniyor.Benim istediğim Arşivleme yaparken kayıt sayfasındaki bilgilerde silinmesin ve kayıt sayfasına kişiler kayıt yapıldıkça otomatik sıra numarası versin

 

[excel_ance]

Sevgili arkadaşlar hepinize iyi geceler sitemizden aldığım bir formda hafif değişiklik yapılmasını istiyorum dosyam ekte olup yardım etme gayretinde olan herkese sonsuz selam ve saygılar
Sorum şu formdan aktar butonu ile kayıt sayfasına aktarılan bilgileri çağırıp Arşivle butonuna tıkladığımızda Kayıt sayfasındaki bilgiler siliniyor.Benim istediğim Arşivleme yaparken kayıt sayfasındaki bilgilerde silinmesin ve kayıt sayfasına kişiler kayıt yapıldıkça otomatik sıra numarası versin

günaydın bu kodu kendinize uyarlayabilirsiniz.

Sheets("BORDRO").Range("M3:M250").Copy _
Sheets("MATRAH").Range("D250").End(3).Offset(1)
MsgBox "Ocak Ayı Maaş Matrahınız Aktarılmıştır.", vbInformation