GRUPLARA GÖRE SAYFALARA PERSONELİ DAĞITMA

[metin_0606]

Değerli üstatlarım saygılar. ekteki excel dosyamda çalışma gruplarına göre personel listesi bulunmaktadır. Bu personeller A,B,C,D ve Gündüz gruplarında çalışmaktadır. Benim yapmak istediğim bir butonla çalışanları çalıştığı gruplara göre ayrı ayrı sayfalara listelemesini istiyorum. Sayfalarıda kendisi otomatik açıp dağıtırsa çok iyi olur. Şimdiden yardımlarınız için teşekkürler

 

[metin_0606]

güncel

 

[metin_0606]

güncel

 

[kulomer46]

Değerli Arkadaşım

Dosyanız hazır halde Ek' tedir.

Ayrıca kodlar revize edilerek programın daha hızlı ve daha etkin çalışması sağlanmıştır.

Selamlar...

 

[metin_0606]

Değerli Arkadaşım

Dosyanız hazır halde Ek' tedir.

Selamlar...

hocam ellerine sağlık istediğim gibi olmuş Allah razı olsun senden

 

[metin_0606]

Değerli Arkadaşım

Dosyanız hazır halde Ek' tedir.

Selamlar...

Hocam listem 4000 kişilik olduğu için hata verdi acaba sayının çok olmasındanmı kaynaklandı

 

[Necdet]

Hocam listem 4000 kişilik olduğu için hata verdi acaba sayının çok olmasındanmı kaynaklandı

Merhaba,

Lütfen belirsiz bir açıklama yapmayın. "Hata verdi" ile sonuca gidilmez. Verilen hatayı yazarsanız kodları yazan arkadaşımıza yardımcı olursunuz.

 

[metin_0606]

If Trim(Cells(t, 25)) = Trim(sayfaadı) Then Makro bir süre çalıştıktan sonra kodun bu satırında hata veriyor

 

[kulomer46]

Hocam listem 4000 kişilik olduğu için hata verdi acaba sayının çok olmasındanmı kaynaklandı

Değerli Arkadaşım

Dosyayı revize edip yukarıya #4 nolu mesajıma yeniden son halini ekledim.
Kodlar hem daha hızlı çalışmakta, hemde 7000-8000 satırlı işlemlerde sorunsuz işlem yapmaktadır.

İşinize yaraması ve faydalı olması umuduyla..

Selamlar..

 

[metin_0606]

Değerli Arkadaşım

Dosyayı revize edip yukarıya #4 nolu mesajıma yeniden son halini ekledim.
Kodlar hem daha hızlı çalışmakta, hemde 7000-8000 satırlı işlemlerde sorunsuz işlem yapmaktadır.

İşinize yaraması ve faydalı olması umuduyla..

Selamlar..

çok teşekkür ederim üstadım Allah razı olsun

 

[metin_0606]

Değerli Arkadaşım

Dosyayı revize edip yukarıya #4 nolu mesajıma yeniden son halini ekledim.
Kodlar hem daha hızlı çalışmakta, hemde 7000-8000 satırlı işlemlerde sorunsuz işlem yapmaktadır.

İşinize yaraması ve faydalı olması umuduyla..

Selamlar..

Do While Trim(Cells(t, 25)) <> Trim(sayfaadı) hocam bu seferde bu satırda hata verdi

 

[metin_0606]

hocam 4000 kişilik makrolu listeyi gödereyim bu şekilde hatayı görmüş olursunuz

 

[metin_0606]

Değerli Arkadaşım

Dosyayı revize edip yukarıya #4 nolu mesajıma yeniden son halini ekledim.
Kodlar hem daha hızlı çalışmakta, hemde 7000-8000 satırlı işlemlerde sorunsuz işlem yapmaktadır.

İşinize yaraması ve faydalı olması umuduyla..

Selamlar..

hocam 4000 kişilik makrolu listeyi gödereyim bu şekilde hatayı görmüş olursunuz

 

[kulomer46]

Değerli Arkadaşım

Dosyanızda Y sütununda toplam 12 yerde '#YOK' değeri bulunuyor. Bu '#YOK' değerlerinin tamamını silerseniz program çalışacaktır.

Selamlar...

 

[metin_0606]

İlgi ve alakanızdan dolayı çok teşekkür ederim hocam

 

[metin_0606]

Değerli Arkadaşım

Dosyanızda Y sütununda toplam 12 yerde '#YOK' değeri bulunuyor. Bu '#YOK' değerlerinin tamamını silerseniz program çalışacaktır.

Selamlar...

Ekli dosyayı görüntüle 208982

İlgi ve alakanızdan dolayı çok teşekkür ederim hocam

 

[kulomer46]

İlgi ve alakanızdan dolayı çok teşekkür ederim hocam

: ) Selamlar...

 

[Necdet]

İlgi ve alakanızdan dolayı çok teşekkür ederim hocam

ilgi = alaka

 

[metin_0606]

ilgi = alaka

ikisi eş anlamlı olsada buna toplumda katmerli teşekkür denir necdet bey

 

[Necdet]

ikisi eş anlamlı olsada buna toplumda katmerli teşekkür denir necdet bey

hahahah bu açıklama güzeldi.