mesai çalışması

[juxbox]

elimde misal 130 tane araç var 3-10-17-24-31 ****z tarihlerinde 130 tane aracın herhangi birini seçtiğimde
mesai sayfasındaki sarı işaretli tarihe x atmasını istemedi seçtiğim günlerde p harfi atmasını istiyorum

 

[juxbox]

arkadaşlar gerçekten benim için çok önemli uzman arkadaşlar bir el atarsa sevinirim

 

[juxbox]

yokmu yardım edicek

 

[Huseyinkis]

Ekteki Kodları Pazar sayfasının Kod kısmına yapıştırıp denermisiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [D2:H200]) Is Nothing Then Exit Sub
Set s1 = Sheets("Pazar")
Set s2 = Sheets("Mesai")

Plk = Day(Cells(1, Target.Column).Value)
Kişi = Cells(Target.Row, 3)

a = s2.Rows(1).Find(What:=Plk, LookAt:=xlWhole).Column
b = s2.Columns(3).Find(What:=Kişi, LookAt:=xlWhole).Row
If a = 0 Then
GoTo son
End If

If Target.Value <> "İSTEMEDİ" And Target.Value <> "istemedi" Then
s2.Cells(b, a).Value = "X"
Else
s2.Cells(b, a).Value = "P"
End If
son:
End Sub

 

[juxbox]

Ekteki Kodları Pazar sayfasının Kod kısmına yapıştırıp denermisiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [D2:H200]) Is Nothing Then Exit Sub
Set s1 = Sheets("Pazar")
Set s2 = Sheets("Mesai")

Plk = Day(Cells(1, Target.Column).Value)
Kişi = Cells(Target.Row, 3)

a = s2.Rows(1).Find(What:=Plk, LookAt:=xlWhole).Column
b = s2.Columns(3).Find(What:=Kişi, LookAt:=xlWhole).Row
If a = 0 Then
GoTo son
End If

If Target.Value <> "İSTEMEDİ" And Target.Value <> "istemedi" Then
s2.Cells(b, a).Value = "X"
Else
s2.Cells(b, a).Value = "P"
End If
son:
End Sub

denedim çalışmadı dosyayyı yeniden düzenliyorum gerçekten yardımcı olursanız çok sevinirim

 

[Huseyinkis]

Ekli dosyayı incelermisiniz.

 

[juxbox]

çok sağolun gerçektende beki ben bunu 1 personele değil aynı anda 200 personel için istiyorum altata nasıl yaparım tutup çektim ama olmadı

 

[Huseyinkis]

çok sağolun gerçektende beki ben bunu 1 personele değil aynı anda 200 personel için istiyorum altata nasıl yaparım tutup çektim ama olmadı

Program Zaten 1 kullanıcı için çalışmıyor siz pazar ve mesai kısımlarına isimleri açın sonra istedi istemedi kısımlarını hucre den secerek devam edin kod sizin seçtiğiniz hücre için işlem yapar eğer toplu bir şekilde başka bir kişinin bilgilerini kopyalarsanız işaretleme yapmaz.

 

[juxbox]

çok teşekür ederim gerçekten son bir ricam olucak sizeden istemedi gibi birde pazar - bayram-bayram çalışması seçeneklerini ekledim aynı şekilde pazarıda seçtiğimde sarı yerlere p atsa bayramı seçtiğimde b atsa bayram çalışmasını seçtiğimde x atsa birde ve her hafta çalışanların bana bir listesini alfabetik olarak ve karşısında hangi araçta çıktıklarını yazsa dosya ekte şimdiden sağolun varolun

 

[Huseyinkis]

çok teşekür ederim gerçekten son bir ricam olucak sizeden istemedi gibi birde pazar - bayram-bayram çalışması seçeneklerini ekledim aynı şekilde pazarıda seçtiğimde sarı yerlere p atsa bayramı seçtiğimde b atsa bayram çalışmasını seçtiğimde x atsa birde ve her hafta çalışanların bana bir listesini alfabetik olarak ve karşısında hangi araçta çıktıklarını yazsa dosya ekte şimdiden sağolun varolun

Pazar ve Bayram gunlerini işeretmelemesini sağladım kodlar ektedir.

Listede Haftalık hangi araçları aldığını zaten seçiyorsunu bunu alt alt olarak mı istiyorsunuz?

Bayram çalışması seçtiğinizde X işarati koyuyuor ozaman plaka hangisi olacak?

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [D2:H200]) Is Nothing Then Exit Sub
Set s1 = Sheets("Pazar")
Set s2 = Sheets("Mesai")

Plk = Day(Cells(1, Target.Column).Value)
Kişi = Cells(Target.Row, 3)

a = s2.Rows(1).Find(What:=Plk, LookAt:=xlWhole).Column
b = s2.Columns(3).Find(What:=Kişi, LookAt:=xlWhole).Row
If a = 0 Then
GoTo son
End If

If Target.Value <> "İSTEMEDİ" And Target.Value <> "PAZAR" And Target.Value <> "BAYRAM" Then
s2.Cells(b, a).Value = "X"
ElseIf Target.Value = "PAZAR" Or Target.Value = "İSTEMEDİ" Then
s2.Cells(b, a).Value = "P"
ElseIf Target.Value = "BAYRAM" Then
s2.Cells(b, a).Value = "B"
End If
son:
End Sub

 

[juxbox]

olay şu hocam mesala bayram günlerini ben belirliyim x atılan tabloda mesala 30 unu bayram nasıl yaparım yada diğer herhangi bir günü yani her ay hafta tatil günleri değişiyor onu formulde kendim nasıl düzenlerim