vba copy range to new workbook

[hajiali]

Hello all,

Im needing a macro when pressed to Copy range("T:AD") to new sheet in "A1" and to copy the sheet the amount of time as the number of days in the month that's in "AD1"

Ex. if AD1=12/1/2020 then to copy the sheet 31 times as there are 31 days in December.
with each New sheet to change the value in "K1" to next day. and rename the sheet to value of "K1" with the "DD" format.

any help is greatly appreciate.

 

[hajiali]

This is really strange. The name of each sheet changes but not the value. not sure what could be wrong. I really appreciate your help

 

[JLGWhiz]

[
Sheets("Ramp SUP").Columns("T:AD").Copy
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveSheet.Columns("L:O").Hidden = True
Next
End Sub[/CODE]

See above adjustments that I have made. AD1 still has the date 12/1/2020 when T:AH is copied to new sheet in A1 the date is in K1 on each new sheets however with my model it does not add the day to K1 of each sheet. It does name each sheet as 01,02,03,... etc up to the end of the month however in all sheets "02" to all last sheet "31" value in K1 is 12/1/2020. The value of K1 in sheet "02" should be 12/2/2020, Value in K1 in sheet "03" should be 12/3/2020..etc.

I have no idea what you are trying to do here. It appears to be beyond the scope of the original thread and should be started as a new thread.
Regards, JLG

 

[JLGWhiz]

This is really strange. The name of each sheet changes but not the value. not sure what could be wrong. I really appreciate your help

The dt variable is based on the value in cell K1 of the original worksheet that was active at runtime. That dt variable is incremented by 1 to name the sheets. I don't know for sure, but it seems that you expect the value in K1 to change, but this code does not do that. The code does the incrementing and applies the calculated value as the new sheets names.