• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Ücret bordrosunu şubelere göre otomatik oluşturma

  • Konbuyu başlatan Konbuyu başlatan msetr
  • Başlangıç tarihi Başlangıç tarihi

msetr

Altın Üye
Katılım
13 Kasım 2007
Mesajlar
46
Excel Vers. ve Dili
2019 tr
İyi akşamlar.

muygun arkadaşımızın vermiş olduğu kodlar şube adına göre otomatik olarak ücret pusulasını çok güzel şekilde oluşturuyor. Kendisinin yüklediği dosya 97-2003 formatında. Kodları ben kendi 2007 Excel sayfama uyarlayınca ya Excel kilitleniyor yada sadece şablonu boş olarak kopyalıyor. 2007 dosyasını 97-2003 olarak farklı kaydettim yine olmadı.

Ekte her iki dosyada ekte. Acaba nerede hata yapıyorum. Benden mi yoksa versiyon farkından mı kaynaklı problem var. Yardımlarınızı bekliyorum teşekkürler.

Not: muygun kendisinin Excel 2003 kullandığını ve diğer versiyonlarda denemediğini cevap olarak yazmıştı.
 

Ekli dosyalar

s2 tanımlamalarınız hatalı.
s2 = ThisWorkbook.Worksheets(s1.Cells(i, 6).Value)
şeklinde yaparsanız düzelecek sanırıkm.
(Sizin yaptığınızda oluşturulan sayfalar f sütununa göre oluşurken s2 tanımı b sütununa göre işlem yapıyor. Sayfayı bulamadığı için veri aktarmıyor.)
 
Şuan sorun düzeldi. Cevabınız için çok teşekkürler.
 
Rica ederim kolay gelsin.
 
Geri
Üst