copy and paste cells according to a calendar

[abozmaoglu]

I want to paste some numbers (as a template) into some other cells in the same row according to a calendar. here is the example.
I mean that when I click the button, the numbers under the template column will be pasted into the cells under the dates. but the dates are changeable.

[Sintek]

Hi abozmaoglu

Give this a try:

Option Explicit

Sub Distribute()
Dim lRow As Long
Dim c As Range
Dim d As Integer, n As Integer, i As Integer
Application.ScreenUpdating = False
lRow = Sheets("Sayfa1").Cells(Rows.Count, "A").End(xlUp).Row
For Each c In Range("A1:AI" & lRow)
    For d = 11 To 34
        For n = 3 To 9
            For i = 3 To lRow
                If Format(Cells(2, d), "dddd") = Cells(2, n) Then
                    Cells(i, d) = Cells(i, n)
                End If
            Next i
        Next n
    Next d
Next c
Application.ScreenUpdating = True
End Sub

[abozmaoglu]

thanks for reply but it didnt work.

[Sintek]

Works perfectly in my sample. Have a look at attached.

[abozmaoglu]

I checked but but it doesnt work. I will check another version of excel . thanks again

[Sintek]

That's strange...Gives following result.

[abozmaoglu]

that's ok. I made a mistake. I had written the names of the days in my own language. when I changed it, it worked perfectly. thanks again....

[Sintek]

Hi abozmaoglu

So...Did the code work...if so, please mark thread as solved and add to rep...Thanks