makro düzeltme(yanayana aktarımın aynı hücreye altalta yapılması)

[muhsar]

iyi günler ,değerli arkadaşlarım ekteki nöbet çalışmasında aralık ayında 08.08 seçtiğim veya diğer mesai saatlerini seçtiğim kişileri çalışma listesi oluştur dediğimde nöbet yazılı sayfaya yanyana getiriyor. örneğin 3 tane 08.08 seçtiysem yanyana isimleri getiriyor.

benim yapmak istediğim yanyana değilde 08.08 olanları aynı hücreye alt alta yazması.bu şekildede sahifeyi daraltmak ve basitleştirmek istiyorum.
bu konuda yardımınızı rica ediyorum.örneğin 08.08 için kodu nasıl düzelteceğim gösterilirse diğer mesai saatlerini kendim uyarlamaya çalışırım.şimdiden vakit ayırabilen arkadaşa teşekkür ediyorum
şifre 436100

Sub NOBET_HAZIRLA()
Sheets("NOBET").Range("C6:X36").ClearContents

For XX1 = 6 To 36
MM1 = "08-08"
MM2 = "08-24"
MM3 = "08-16"
MM4 = "16-24"
MM5 = "E"
MM6 = "T"
MM7 = "SPV"
MSTF1 = 3
MSTF2 = 12
MSTF3 = 6
MSTF4 = 19
MSTF5 = 22
MSTF6 = 23
MSTF7 = 24
For YY1 = 3 To 48

If Cells(XX1, YY1) = MM1 Then
Sheets("NOBET").Cells(XX1, MSTF1) = Cells(5, YY1)
MSTF1 = MSTF1 + 1
End If

If Cells(XX1, YY1) = MM2 Then
Sheets("NOBET").Cells(XX1, MSTF2) = Cells(5, YY1)
MSTF2 = MSTF2 + 1
End If

If Cells(XX1, YY1) = MM3 Then
Sheets("NOBET").Cells(XX1, MSTF3) = Cells(5, YY1)
MSTF3 = MSTF3 + 1
End If

If Cells(XX1, YY1) = MM4 Then
Sheets("NOBET").Cells(XX1, MSTF4) = Cells(5, YY1)
MSTF4 = MSTF4 + 1
End If

If Cells(XX1, YY1) = MM5 Then
Sheets("NOBET").Cells(XX1, MSTF5) = Cells(5, YY1)
MSTF5 = MSTF5 + 1
End If

If Cells(XX1, YY1) = MM6 Then
Sheets("NOBET").Cells(XX1, MSTF6) = Cells(5, YY1)
MSTF6 = MSTF6 + 1
End If

If Cells(XX1, YY1) = MM7 Then
Sheets("NOBET").Cells(XX1, MSTF7) = Cells(5, YY1)
MSTF7 = MSTF7 + 1
End If
Next
Next
Application.ScreenUpdating = True
End Sub

 

[muhasebeciyiz]

08.08 mesai saati için örnek olup, diğer mesai saatleri için de benzer şekilde kodu adapte edebilirsiniz.
Eğer bu yapıyı diğer mesai saatlerine de uyarlarsanız, her mesai saatinin kişilerini aynı hücreye alt alta yazabilirsiniz.
Lütfen deneyiniz.

 

[muhsar]

08.08 mesai saati için örnek olup, diğer mesai saatleri için de benzer şekilde kodu adapte edebilirsiniz.
Eğer bu yapıyı diğer mesai saatlerine de uyarlarsanız, her mesai saatinin kişilerini aynı hücreye alt alta yazabilirsiniz.
Lütfen deneyiniz.

çok teşekkür ederim elinize emeğinize sağlık,
diğer saatleride kodda siz düzenlemişsiniz sanırım,ben müdahale edilecek alanı göremedim.