Satırda yazan tarihlerin üzerine ayları yazma

[oguzka]

Merhaba;

Çalışma sayfasının bir satırında tarihler sırası ile yan yana yazılmış durumda. Yapmak istediğim bu tarihlerin üzerine ilgili tarihin ay adının yazılması. Aynı ayın hücreleri birleştirilecek. Yardımcı olabilirmisiniz?

Ekteki dosyaya baktığınızda makrodan önceki durum ve makrodan sonra istenen durumu görebilirsiniz.

 

[uzmanamele]

merhaba

bu kod işinizi görür mü?

Sub isprgdatarihyaz()
    Rows("6:6").ClearContents
    Rows("6:6").UnMerge
ssüt = [d7].End(2).Column
For i = 4 To ssüt
Cells(6, i) = Format(Cells(7, i), "mmmm")
If Format(Cells(7, i), "mmmm") = Format(Cells(7, i + 1), "mmmm") Then
Range(Cells(6, i), Cells(6, i + 1)).Merge
End If
Next
End Sub

 

[oguzka]

Teşekkür ederim Süleyman Abi. Ellerine sağlık....