Yardım nöbet listesinde yeni değer atama

Merhabalar. bu liste daha önce burada yapılmıştı. ancak şimdi başka bir birim tarafından kullanılması gerekti. ama, ekli excel de sarı alan olarak işaretli yerlerde 8 saat hesabı yerine 7 saat olacak şekiilde ayarlanması gerekiyor. anladığım kadarıyla makro yazılımı ile yapılması gerekiyor.bu düzenlemeyi yaptıktan sonra bana nasıl yapıldığı ve ya yapılacağı ile ilgili kısa bir bilgilendirme yazarsanız sevinirim . en azından bir dahaki sefere kendim yapmayı denerim. Teşekkür ederim. İyi çalışmalar.

Merhaba;
(Sanırım kodlamayı ben yapmıştım)
MAYIS sayfasında iken
ALT+F11 tuşlarına basın. (makro bölümüne geçersiniz)

Sub sayfa_analiz()
makrosunda aşağıdaki satırı bulun

If k >= 5 Then Cells(sonsatir, "ad") = 8

Bu satırın en sonundaki 8 rakamını 7 yapın ve makro alanından çıkın.
Sonra butonları kullanarak deneyin.
İyi çalışmalar.

teşekkür ederim. oldu, ama aynı excel için ikinci defa alt+F11 e basınca boş sayfa geliyor. aynı sayfayı tekrar ( makro bölümüne) nerden ulaşırız.

ALT+F11 tuşları ile makro bölümünü görmeniz gerekiyor.
İhtimalle tam yüklenmemiş bir versiyon kullanıyorsunuz.
Başka bir pc ile deneyin.
Buna göre ofis programınızı yenileyin.
İyi çalışmalar.

başka bir yere kopyaladığım dosya vardı. onda açabildim. ama aynı dosyada ikinci defada olmuyor. ekte gönderdim. bu şekilde boş gri bir alan çıkıyor. Yardımlarınız için teşekkür ederim. kolay gelsin iyi çalışmalar

Dosyada bir problem göremedim.
(Bu sizin kullandığınız versiyon yada ofis kısıtlamanızla ilgili)
Dediğim gibi dosyayı başka bir pc de çalıştırın.
Sorunsuz çalışıyorsa PCnizin yada Ofis Programınızın sorununu çözün.
İyi çalışmalar.

Aşağıdakiler ise yazılan kodlar;

MAYIS Sayfası kod bölümünde;

Sub sayfa_analiz()
Application.ScreenUpdating = False
On Error Resume Next
Range("z2:ad65536").ClearContents
For i = 0 To 30
sonsatir = Range("z65536").End(xlUp).Row + 1
Cells(sonsatir, "z") = Format(Cells(1, 1) + i, "dd.mm.yyyy")
If Month(Cells(1, 1)) <> Month(Cells(sonsatir, "z")) Then Cells(sonsatir, "z") = ""
Next i

For i = 5 To 35
For k = 3 To 8
If Cells(i, k) <> "" Then
sonsatir = Range("aa65536").End(xlUp).Row + 1
Cells(sonsatir, "aa") = Cells(i, 1)
Cells(sonsatir, "ab") = Cells(i, k)
If k <= 4 Then Cells(sonsatir, "ac") = "NB"
If k >= 5 Then Cells(sonsatir, "ac") = "M"

If k <= 4 Then Cells(sonsatir, "ad") = 24
If k >= 5 Then Cells(sonsatir, "ad") = 7 ' Bu satırın sonundaki rakamı değiştirebilirsiniz
End If
Next k
Next i

For k = 2 To Range("r65536").End(xlUp).Row
For i = 2 To Range("z65536").End(xlUp).Row
If Format(Cells(i, "z"), "dd.mm.yyyy") >= Format(Cells(k, "s"), "dd.mm.yyyy") And Format(Cells(i, "z"), "dd.mm.yyyy") <= Format(Cells(k, "t"), "dd.mm.yyyy") Then
sonsatir = Range("aa65536").End(xlUp).Row + 1
Cells(sonsatir, "aa") = Cells(i, "z")
Cells(sonsatir, "ab") = Cells(k, "r")
Cells(sonsatir, "ac") = Cells(k, "u")
Cells(sonsatir, "ad") = Cells(k, "u")

End If
Next i
Next k
Application.ScreenUpdating = True
MsgBox "İşlem TAMAM.", vbInformation
End Sub

PUANTAJ sayfası kod bölümünde;

Sub puantaja_getir()
Application.ScreenUpdating = False
On Error Resume Next
Set s2 = ThisWorkbook.Worksheets(Cells(2, 1).Value)
Range("d8:ah24").ClearContents
Range("d8:ah24").Interior.ColorIndex = xlNone

For i = 4 To 34
Cells(8, i) = Cells(1, 1) + (i - 4)
If Month(Cells(8, i)) <> Month(Cells(1, 1)) Then Cells(8, i) = ""
If Cells(8, i) <> "" And Weekday(Cells(8, i)) = 7 Then Cells(8, i).Interior.ColorIndex = Cells(1, 1).Interior.ColorIndex
If Cells(8, i) <> "" And Weekday(Cells(8, i)) = 1 Then Cells(8, i).Interior.ColorIndex = Cells(2, 1).Interior.ColorIndex
Next i

For i = 10 To 25
For k = 4 To 34
For z = 2 To s2.Range("aa65536").End(xlUp).Row
If Format(s2.Cells(z, "aa"), "dd.mm.yyyy") = Format(Cells(8, k), "dd.mm.yyyy") And s2.Cells(z, "ab") = Cells(i, "c") Then
Cells(i, k) = s2.Cells(z, "ad")
End If
Next z
Next k
Next i
Application.ScreenUpdating = True
MsgBox "İşlem TAMAM.", vbInformation
End Sub

Sub özelgün_işlemi()
Application.ScreenUpdating = False
On Error Resume Next
Set s2 = ThisWorkbook.Worksheets(Cells(2, 1).Value)
For i = 10 To 25
For k = 4 To 34
For z = 2 To s2.Range("af65536").End(xlUp).Row
If Format(s2.Cells(z, "af"), "dd.mm.yyyy") = Format(Cells(8, k), "dd.mm.yyyy") And Cells(i, k) = s2.Cells(z, "ag") Then
Cells(i, k) = s2.Cells(z, "ah")
Cells(i, k).Interior.ColorIndex = Cells(1, 1).Interior.ColorIndex
End If
Next z
Next k
Next i

Application.ScreenUpdating = True
MsgBox "İşlem TAMAM.", vbInformation
End Sub

bunları yazmak için bilginizin en üst seviyelerde olduğunu fark ediyorum. Ancak biz bir form geliştirmek istediğimizde çözüm yolu olarak formül ile hallolacak kısımları yapabiliyoruz. ama bu tür kompoze işlemleri ancak makro yazılım ile yapılabildiğinin farkındayım. Ama eğitim olarak yada nasıl bir yol izleyerek seviye seviye yükselip buralara gelebiliriz. Teşekkür ederim.

muygun bey, yaptığınız excel de eklediğim resimdeki gibi formun başındaki günleri gösteren yerler PUANTAJ kısmında haftasonları olan yerler işaretli olarak geliyor. ama ilk NÖBET sekmesinde böyle bir şey yok. burada listeyi dolduran arkadaşlar hafta sonları olan yerleri kendileri boyama yapıyorlar. aklama gelen soru şu. tüm satır boyunca hafta sonu olan yerleri boyama yapabilirmiyiz. ikinci sayfadaki puantaj kısmında da tüm sütun boyunca üstte otomatik olan işaretlemeyi aşağı kadar indirme şansımız var mı. Teşekkürler.

Merhaba;
İki isteğinizle ilgili düzenleme yaptım.
Deneyin.
İyi çalışmalar.

Not: Bazı alanları formülle düzenledim.

Valla ne kadar teşekkür etsem azdır, ne söylesem bilemedim. Öncelikle teşekkür ederim. Ancak ben şunu anladım, makro biliyorsan yapılamayacak bir şey yok gibi. Ama yine de sormak istedim. Kendim Alt+F11 ile makro kısmını açıp baktım, nerede değişiklik yapıldı da bu şekilde oldu diye. Ama yine fark edemedim. Kendinize iyi bakın, yeni çalışmalarda görüşmek üzere.

Tekrar merhaba. peki benim hazırladığım EĞERSAY formülünde isim satırına yeni birini eklersem yada diziliş sırasını değiştirirsem EĞERSAY( HÜCRE);" İSİM") şeklinde saydığını varsayalım. bu işlemde her defasında hangi ismi arayacağını yazmak zorunda kalıyorum. İsim yerine soldaki isim yazılan hücreyi boş seçersem yine olmuyor. Bununla ilgili ne yapabilirim. Yani isim listesine yeni birileri eklendi, sağındaki eğersay yeri o ismi otomatik görüp sayma yada isim listesinde yerler değiştiğinde de aynı şekilde bir otomatik sayma mümkün mü. Teşekkürler.

Merhaba;
Doğru anladıysam MAYIS Sayfası J4 hücresindeki Mevcut formülünüzü;
EĞERSAY($C$5:$D$35;"ZAFER BAYRAKTUTAR")

EĞER($I4="";"";EĞERSAY($C$5:$D$35;$I4))
şeklinde düzenleyin.
İyi çalışmalar.

teşekkür ederim. bu da oldu. ne kadar teşekkür etsem azdır size.

muygun bey, uzun bir aradan sonra tekrar merhaba. Burada eklediğim listenin makrolarını siz oluşturmuştunuz. Burada puantaj kısmında yeni isimler ekledim. Ama puantaja getir şeklinde butona basınca eklenen satırları ve yan nöbet kısmında eklenen sütunları görmüyor galiba. yardım eder misiniz? İlk nöbet kısmında fazladan 3 sütün ekledim. onların formüllerini ayarladım. fazladan eklediğim isimleri ve mesai saatlerini saydırdım. Ama puantaj kısmında "satır ekle" ile isim ekleim. olmadı. alt+F11 ile makroya baktım. ama olmadı. Teşekkür ederim.

Merhaba;
Tabloyu çözmem bile epey zaman aldı. (Tablonun doğru sonuç verdiğini bilmiyorum. Gereken kontrolü yapın.)
İstenilen sonucu vermiyorsa net açıklama yapın. (... sayfasında şu alana sütun yada satır ekledim. ... sayfasına bu veri şu hücreye 08 yada 24 şeklinde gelmesi gerekiyor... gibi...)
Deneyin.
İyi çalışmalar.

Tekrar merhaba. bu tablonun orjinal halini sizinle paylaşayım öncelikle. Laboratuvar yazan tablo, ilk sayfasında nöbetin, ikinci sayfasında ise puantajların otomatik getirildiği bir çalışma. İkinci ek dosyam ise yoğun bakım için oluşturduğum. tablo. içinde ekleme yaptığım yerleri açıklama ile gösterdim. o eklemelerden sonra makroda sıkıntı oldu galiba çalışmıyor.

Merhaba;
think15-YOĞUN BAKIM NÖBET VE PUANTAJ LİSTESİ OTOMATİK-1 dosyasında herhangi bir sorun göremedim.
YOĞUN BAKIM NÖBET VE PUANTAJ LİSTESİ OTOMATİK dosyasında PUANTAJ sayfasına (C sütunu) isimlerin yerleştirilmesinde bir sorun vardı. Bunu makro kodu ile yerleşmesini sağladım.
Deneyin. isteğiniz yada farklılık varsa belirtin.
İyi çalışmalar.