mercmannick
05-22-2007, 10:51 AM
Sub SetDate()
Dim strFileName As String
Set WS = Sheets("ZF")
WS.Range("B:B").Replace What:=".", Replacement:="/", LookAt:=xlPart
End Sub
hi im using this to change Date in excel , when i paste it to my workbook it defaults to american date format is there something im missing ??
and this to copy and paste
Set wkbkZF = Workbooks("ZF.xls")
Set wkbkSS = Workbooks("IMF stage starts WK " & CStr(VBAWeekNum(Now(), 1)) & "." _
& CStr(Application.WorksheetFunction.Weekday(Now())) - 1 & ".xls")
Set tgt = wkbkSS.Sheets("Everything").Range("B3")
With wkbkZF.Sheets(1)
Set MyRange = .Range("B5:M" & .Cells(Rows.Count, 2).End(xlUp).Row)
End With
MyRange.Copy Destination:=tgt
Many thanks
Merc
Dim strFileName As String
Set WS = Sheets("ZF")
WS.Range("B:B").Replace What:=".", Replacement:="/", LookAt:=xlPart
End Sub
hi im using this to change Date in excel , when i paste it to my workbook it defaults to american date format is there something im missing ??
and this to copy and paste
Set wkbkZF = Workbooks("ZF.xls")
Set wkbkSS = Workbooks("IMF stage starts WK " & CStr(VBAWeekNum(Now(), 1)) & "." _
& CStr(Application.WorksheetFunction.Weekday(Now())) - 1 & ".xls")
Set tgt = wkbkSS.Sheets("Everything").Range("B3")
With wkbkZF.Sheets(1)
Set MyRange = .Range("B5:M" & .Cells(Rows.Count, 2).End(xlUp).Row)
End With
MyRange.Copy Destination:=tgt
Many thanks
Merc