Fazla Çalışma Uyarısı !

[elowym]

Herkese günaydın...Umarım keyifler yerindedir,öyle olmasını temenni ederim

Benim bir sorum olucak.Ekte sizinle paylaşmış olduğum tabloda sürücülerin günlük çalışmaları mevcut.

Bir sürücü 6 gün çalışıp,7.gün izinli olması gerekiyor.Sizden ricam sürücünün 6.günü tamamlayıp 7.günde çalışması durumunda sürücünün izinli olduğuna dair uyarı gelsin istiyorum.

Normal çalışma günlerini Ç olarak,izinli günlerini ise D olarak tabloda belirttim.

Bazen 2-yada 3 gün çalışıp izin kullandırdığım da oluyor.Ama bu süre izinli olduğu günden sonra 6 günü geçmemeli.Yardımlarınızı rica eder,iyi çalışmalar dilerim..

Saygılarımla,

 

[elowym]

Lütfen aşağıdaki konuya acill yardım...

 

[elowym]

herkese günaydın...umarım keyifler yerindedir,öyle olmasını temenni ederim

benim bir sorum olucak.ekte sizinle paylaşmış olduğum tabloda sürücülerin günlük çalışmaları mevcut.

Bir sürücü 6 gün çalışıp,7.gün izinli olması gerekiyor.sizden ricam sürücünün 6.günü tamamlayıp 7.günde çalışması durumunda sürücünün izinli olduğuna dair uyarı gelsin istiyorum.

Normal çalışma günlerini ç olarak,izinli günlerini ise d olarak tabloda belirttim.

Bazen 2-yada 3 gün çalışıp izin kullandırdığım da oluyor.ama bu süre izinli olduğu günden sonra 6 günü geçmemeli.yardımlarınızı rica eder,iyi çalışmalar dilerim..

Saygılarımla,

arkadaşlar konu ile ilgili yardımcı olacak yokmu ?

 

[elowym]

Arkadaşlar konu hakkında yardımcı olabilecek yokmu ?

 

[elowym]

Arkadaşlar lütfen konu hakkında yardımcı olun...Konu çok acillll

 

[sarhud]

her hangı bır hucre de 2 basamaklı rakamdan fazla yazmaması ıcın ne yapmam gerek cok acıl 2 basamaklı dan fazla yazdıgımda uyarı versın yada yazmasın

 

[YUSUF44]

Sayın elowym, aşağıdaki kodları ilgili sayfanın kod bölümüne yapıştırınız. C4:AF50 arasında aynı satıra peşpeşe 7 kere Ç girmek istediğinizde uyarı verecektir:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [c4:af50]) Is Nothing Then Exit Sub
a = Target.Row
b = Target.Column
If b < 8 Then Exit Sub
süre = WorksheetFunction.CountIf(Range(Cells(a, b - 6), Cells(a, b)), "Ç")
If süre > 6 Then
uyarı = MsgBox(Cells(a, 2) & " son 7 günde 6 gün çalıştığından bugün için çalışma verilemez", vbCritical)
Target.ClearContents
End If
End Sub

 

[YUSUF44]

Sayın sarhud siz de aşağıdaki kodları ilgili sayfanın kod bölümüne yapıştırdığınızda A sütununa 2 kararkterden uzun veri girmenize engel olur:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
If Len(Target) > 2 Then
uyarı = MsgBox("Hücreye en fazla 2 karakter girilebilir", vbCritical)
Target.ClearContents
Target.Select
End If
End Sub

Aynı zamanda veri doğrulama ile de yapabilirsiniz ki ben veri doğrulamayı tavsiye ederim.

 

[elowym]

Sayın elowym, aşağıdaki kodları ilgili sayfanın kod bölümüne yapıştırınız. C4:AF50 arasında aynı satıra peşpeşe 7 kere Ç girmek istediğinizde uyarı verecektir:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [c4:af50]) Is Nothing Then Exit Sub
a = Target.Row
b = Target.Column
If b < 8 Then Exit Sub
süre = WorksheetFunction.CountIf(Range(Cells(a, b - 6), Cells(a, b)), "Ç")
If süre > 6 Then
uyarı = MsgBox(Cells(a, 2) & " son 7 günde 6 gün çalıştığından bugün için çalışma verilemez", vbCritical)
Target.ClearContents
End If
End Sub

Yusuf bey,teşekkür ederim.

Göndermiş olduğunuz formulü sayfanın kod bölümüne yazın demişsiniz.Bu konuda çok fazla bilgim yok.Ekteki tabloya işleyip,bana da nasıl işlendiğini tarif ederseniz inanın çok mutlu olurum.

Saygılarımla,

 

[YUSUF44]

Sayfa adının yani sekmenin üzerine sağ tıklayın ve kod görüntüle deyin. ya da Alt+F11 tuşlarına birlikte basın. çıkan sayfa, bahsettiğim kod bölümüdür.

yalnız dosyayı kaydederken makro içerebilen excel dosyası olarak kaydetmelisiniz ki makro silinmesin (uzantısı xlsm olur).

 

[elowym]

Sayfa adının yani sekmenin üzerine sağ tıklayın ve kod görüntüle deyin. ya da Alt+F11 tuşlarına birlikte basın. çıkan sayfa, bahsettiğim kod bölümüdür.

yalnız dosyayı kaydederken makro içerebilen excel dosyası olarak kaydetmelisiniz ki makro silinmesin (uzantısı xlsm olur).

Yusuf bey,

Gönderdiğim tablo için tarif ettiğiniz gibi girdim ve oldu.Şimdi bu tablo haziran ayına ait.Bu formülü başka bir tabloda yani Temmuz ayı içinde kullanabilirmiyim ?

Teşekkürler,

 

[YUSUF44]

evet aynı şekilde/aynı işlemleri yaparak diğer sayfalarda/dosyalarda da kullanabilirsiniz.

 

[elowym]

evet aynı şekilde/aynı işlemleri yaparak diğer sayfalarda/dosyalarda da kullanabilirsiniz.

Çok teşekkür ederim iyiki varsınız

 

[drykcktl]

Günaydın

evet aynı şekilde/aynı işlemleri yaparak diğer sayfalarda/dosyalarda da kullanabilirsiniz.

yusuf bey arkadaşın yapmış olduğu bu program arşivinizde mevcutmu??

 

[YUSUF44]

Elimde yok ancak oluşturmak zor değil. Burdan dosyayı indirin ve verdiğim kodları yine yukarda belirttiğim şekidle sayfaya ekleyin.

 

[drykcktl]

Elimde yok ancak oluşturmak zor değil. Burdan dosyayı indirin ve verdiğim kodları yine yukarda belirttiğim şekidle sayfaya ekleyin.

indirme mevcut değil maalesef 2008 öncesi olduğu için

 

[YUSUF44]

Siz bu başlıktaki dosyadan bahsetmiyorsunuz herhalde, çünkü bu başlık daha bir kaç gün önce açılmış ve dosya indirilebiliyor.

 

[drykcktl]

ilginç sabah hata verdi