Hastane Puantajı

[halilbayhan]

Office 2021 kullanıyorum Ekte bir puantaj dosyası yükledim bunu geliştirmek istiyorum.
tabloda örnek vermeye çalıştım. üstteki tabloda 01.09.2025 tarihinde Ahmet ismini yazdığımda bunu üstteki çalıştığı saat kısmı olan 8 ile çarpıp aşağıdaki tabloda karşılık gelen kısma 8 yazmasını istiyorum. Ali 01.09.2025 tarihinde 24 saatlik nöbeti var. Aşağıda tabloya karşılık gelen kısma 24 yazsın. bunu aşağıdaki tüm tabloya uygulamak istiyorum

 

[halit3]

dosya

 

[halilbayhan]

tamamdır çok iyi çalışıyor A sütünü 38-45 teki isimlere bakıyordu. makroyu yapay zekaya sorarak 45i 102 yaptım düzeldi. çok teşekkürler

 

[halit3]

Kodu birazcık sedeleştirdim.

Sub aktar()

With Application
.Calculation = xlManual '-4135
.ScreenUpdating = False
.EnableEvents = False
.DisplayAlerts = False
End With


Range("C38:AG102").ClearContents

For k = 38 To 102
isim1 = Cells(k, 1).Value

For j = 4 To 34

For s = 3 To 34
isim2 = Cells(j, s).Value

If isim2 = isim1 Then
Cells(k, j - 1).Value = Cells(2, s).Value
End If

Next s

Next j

Next k

With Application
.Calculation = xlAutomatic
.ScreenUpdating = True
.EnableEvents = True
.DisplayAlerts = True
End With

MsgBox "işlem tamam"

End Sub