Kayıt Tarihi: 24.03.2013
Toplam 26 konu açtı.
Toplam 8.738 yorum yaptı.
Toplam
969
puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013,
Beğeniler: 48 / 211
Mesaj 5'i guncelledim, puantaj ayi duzenleme oncesi tablo kayitlari silinir.
Kayıt Tarihi: 22.03.2011
Toplam 56 konu açtı.
Toplam 283 yorum yaptı.
Toplam
0
puanı bulunmakta.
Mevcut Office Sürümü:
Office 2016,
Beğeniler: 0 / 0
Sezgin Hocam ve Jon206 Hocam emeklerinize ve ellerinize sağlık sizlere sonsuz teşekkürlerimi sunuyorum işlem tamamdır.
Sadece küçük bir sorun var oda olmazsa olmaz değildir. Puantaj raporunu aylara göre yazdırırken raporun üstüne aşağıda ki kodla ayını yazdırıyorum. Ancak bir türlü ocak 2020 ayı için 1 OCAK-14 OCAK SÜREKLİ İŞÇİ PUANTAJ CETVELİ yazısını yadıramadım.Bu konuda yardım edebilirseniz sevinirim. Şimdiden teşekkürlerimi iletiyorum
Private Sub RaporÜstbilgisi_Format(Cancel As Integer, FormatCount As Integer)
If Metin193 = 1 Then
Yıld = "15 OCAK-14 ŞUBAT SÜREKLİ İŞÇİ PUANTAJ CETVELİ"
ElseIf Metin193 = 2 Then
.............................................
ElseIf Metin193 = 12 Then
Yıld = "15 ARALIK-31 ARALIK SÜREKLİ İŞÇİ PUANTAJ CETVELİ"
End If
End Sub
Kayıt Tarihi: 24.03.2013
Toplam 26 konu açtı.
Toplam 8.738 yorum yaptı.
Toplam
969
puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013,
Beğeniler: 48 / 211
Metin193 kutu ozelligi metin kalmis ve aya ait sayi ile eslesmiyor olablir format degilde print olay yordamina tasiyin. Rapor ust bolumu bir seferlik yazar, birden fazla ay gruplamasi ile baslik yazdirilmasini ay grup bolumunde yaptirmalisiniz.
Kayıt Tarihi: 22.03.2011
Toplam 56 konu açtı.
Toplam 283 yorum yaptı.
Toplam
0
puanı bulunmakta.
Mevcut Office Sürümü:
Office 2016,
Beğeniler: 0 / 0
Hocam tavsiyeniz için teşekür ederim.
Aralık ayında Aralık ve Ocak birlikte geldiği için doğal olarak Ocak 2020 ayı için 1 OCAK-14 OCAK SÜREKLİ İŞÇİ PUANTAJ CETVELİ yazısını yazdıramıyoruz. Çünkü ay Sayısı 12
ElseIf Metin193 = 12 Then
Yıld = "15 ARALIK-31 ARALIK SÜREKLİ İŞÇİ PUANTAJ CETVELİ"
ElseIf Metin193 = 12 Then
Yıld="1 OCAK-14 OCAK SÜREKLİ İŞÇİ PUANTAJ CETVELİ"
End If
Doğal olarak başka bir paremtre gerekiyor Örneğin Aralık 15 den 31 kadar olan alanlar boş olacak ve ben denedim E15 alanı boşsa durumunu koydum yine olmadı.
ElseIf IsNull([E15] And Metin193 = 12 Then
Yıld="1 OCAK-14 OCAK SÜREKLİ İŞÇİ PUANTAJ CETVELİ"
Teşekür Ederim.
Kayıt Tarihi: 24.03.2013
Toplam 26 konu açtı.
Toplam 8.738 yorum yaptı.
Toplam
969
puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013,
Beğeniler: 48 / 211
Mesaj 5'i guncelledim, bir rapor olusturup, baslik yazdirilmasini inceleyebilirsiniz.