Çözüldü Aylık Kişi Bazlı Mesai Raporu Hesaplama

O

omerBey

Ömer

• 12 May 2019

• #2

Merhaba,
Örnek dosyanız için aşağıdaki kodu deneyiniz.

VBA:Panoya kopyala

Görüntülemek için giriş yapmalısınız.
(27 satır)

 

Oyla 1 Olumsuz oyla

G

gicimi

Normal Üye

• 12 May 2019

• #3

@ÖmerBey Hocam elinize sağlık teşekkür ederim.

 

Oyla 0 Olumsuz oyla

O

omerBey

Ömer

• 13 May 2019

• #4

Rica ederim,
İyi çalışmalar...

 

Oyla 0 Olumsuz oyla

G

gicimi

Normal Üye

• 13 May 2019

• #5

@ÖmerBey hocam merhaba;
L sütunundaki yazılı Saatlerin yanında 2 “(Saat)”, 5 “(Saat)”yazılı olur ise kodda nasıl bir değişiklik yapmak gerekir.

 

Oyla 0 Olumsuz oyla

O

omerBey

Ömer

• 13 May 2019

• #6

gicimi' Alıntı:

L sütunundaki yazılı Saatlerin yanında 2 “(Saat)”, 5 “(Saat)”yazılı olur ise kodda nasıl bir değişiklik yapmak gerekir.

Genişletmek için tıklayın ...

Şunu bir deneyin dz(a, 3) = dz(a, 3) + Replace(say, "“(Saat)”", "")

Metin ifadeleri, hesaplamalarda her daim sorun olacaktır. O sebeple hesaplama yapacağınız durumlarda metin kullanmayınız. Bunun yerine hücre biçimlendirme ile metin gözükmesini sağlayabilirsiniz.

 

Oyla 0 Olumsuz oyla

G

gicimi

Normal Üye

• 13 May 2019

• #7

Hocam L sütundaki (Saat) standart yazı olduğundan dolayı şöyle bir şey yapılabilir mi

(Saat) yazısını L sütunundaki tüm satırlardan silip daha sonra hesaplama yaptırılabilir mi -? Yoksa ben tek tek dosyaları açıp (Saat) silmem gerekecek.

 

Moderatörün son düzenlenenleri: 13 May 2019

Oyla 0 Olumsuz oyla

O

omerBey

Ömer

• 14 May 2019

• #8

ÖmerBey' Alıntı:

Şunu bir deneyin dz(a, 3) = dz(a, 3) + Replace(say, "“(Saat)”", "")

Genişletmek için tıklayın ...

6 numaralı mesajda belirttiğim çözümü uyguladınız mı?
Eğer işe yaramadı diyorsanız belirttiğiniz formatın yer aldığı örnek dosyalar yükleyiniz. Dosya üzerinden gidersek daha sağlıklı sonuç alabiliriz.

 

Oyla 0 Olumsuz oyla

G

gicimi

Normal Üye

• 14 May 2019

• #9

@ÖmerBey Hocam ektedir. #6 mesajınızda belirtiniz kodu ekledim. Fakat olmadı. İnceler misiniz. Teşekkürler.

 

Ekli dosyalar

• Fazla Mesai.rar

  72.7 KB · Görüntüleme: 11

Oyla 0 Olumsuz oyla

O

omerBey

Ömer

• 14 May 2019

• #10

Şu şekilde yapınca şimdilik halloldu gibi...

VBA:Panoya kopyala

Görüntülemek için giriş yapmalısınız.
(4 satır)

Eğer saatlerin küsüratlı olma ihtimali varsa kırmızı kısmı şu şekilde düzenleyin. dz(a, 3) = dz(a, 3) + CDbl((Replace(say, "(Saat)", "")))

 

Oyla 0 Olumsuz oyla

G

gicimi

Normal Üye

• 14 May 2019

• #11

@ÖmerBey Hocam eline sağlık. Yarın bir gün toplama işleminde hata vermeye başlar ise, #7 mesajda belirttiğim şekilde de alternatif olması için yardımcı olabilir misiniz.

 

Oyla 0 Olumsuz oyla

O

omerBey

Ömer

• 14 May 2019

• #12

Buyurunuz...
İlk koddan tek farkı kırmızı satır.

VBA:Panoya kopyala

Görüntülemek için giriş yapmalısınız.
(28 satır)

 

Oyla 0 Olumsuz oyla

Çözüm

G

gicimi

Normal Üye

• 14 May 2019

• #13

@ÖmerBey Hocam çok çok teşekkür ederim. Allah razı olsun.

 

Oyla 0 Olumsuz oyla

O

omerBey

Ömer

• 9 Şub 2024

• #14

Allah hepimizden razı olsun.
İyi çalışmalar...

 

Oyla 0 Olumsuz oyla