Stop Dates Transposing

[cwhaley1]

Hello,

I have a code which takes the data from a range and copy/pastes it onto the row of a table (on a separate sheet) which bears the same name as the tab.

It works very well, but fails me when it changes the format of the data. The data I'm copying over is in the format dd/mm/yyyy, however Excel is pasting it in the format mm/dd/yyyy.

I know this format is the standard in Excel as that's the way it was written, but to the users of this workbook the dd and mm are the wrong way around.

I'm not clever enough to work out how to amend the below to fix this! Is there a way?

  Set sh1 = Sheets("Document Date Log")
  For Each sh In Sheets
    If sh.Name <> sh1.Name Then
      Set f = sh1.Range("A:A").Find(sh.Name, , xlValues, xlWhole, , , False)
      If Not f Is Nothing Then
        f.Offset(, 1).Resize(1, 12).Value = Application.Transpose(sh.Range("H5:H16").Value)
      Else
    End If
    End If
  Next

 

[Georgiboy]

Remove '.Value' from

Application.Transpose(sh.Range("H5:H16").Value)

 

[cwhaley1]

Remove '.Value' from

Application.Transpose(sh.Range("H5:H16").Value)

Wow was it really that simple!

Thank you. I need to re-look at some of the VBA basics...