Çözüldü Ado ile Personelleri puantaja aktarma

[xmenx]

Merhaba ustalar alttaki kod kapalı dosyadan aktarım yapıyor. halily hocamın yapmış oldugu kod. Kodun görevi izin tablosundaki personelin izinleri aktarıyor puantaja.
Benim yapmak istediğim personelleri aktarmak ama Şubesi merkez olanları aktarmak . sıra numarasını puantaja aktarırken düzgün sıra numarası versin . Birde Merkez hariç diğerlerini aktarmak ayrı kod olursa çok iyi olur şimdiden ellerinize sağlık

Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.

 

[xmenx]

Çok teşekkürler hocam tamamdır

 

[Alicimri]

Birde bunu deneyin

Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.

 

[Refaz]

Tar = Format(Range("H6"), "mmyy")

Hocam bu kod sadece H6 ya bakıyor H6:AL6 aralığına bakmadı gerekmiyor mu?

 

[xmenx]

Çalıştı hocam sizin ki baya kısa ve öz olmuş tek eksik sıra numarası hocam

 

[Alicimri]

Evet H6 daki tarihin ay ve yılını alıyor. örneği 0123 gibi
Diğer sütunlarda da aynı sonucu verir

 

[Refaz]

Evet H6 daki tarihin ay ve yılını alıyor. örneği 0123 gibi
Diğer sütunlarda da aynı sonucu verir

Ama gün yok.Her neyse abey kolay gelsin herkese.

 

[Alicimri]

En altta aşağıdaki kodu ekleyin.

Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.

 

[xmenx]

Range("C8").CopyFromRecordset rs buranın altına ekledim hocam

 

[xmenx]

Alicimri hocam giriş tarihini AZ sütununa yazdırmak istersem nasıl bir değişiklik yapmamız gerekir