find date in column A and copy, paste and transpose valuse

[myguess21]

Hi All,

I found this code online, which does what I want to do but further on my excel worksheet There is column A with date. date is in this format =3/9/2012.

I want to add to code:

find today's date in Column A and than run below code (copy & paste)

---found code ---
Sub Transpose()
Dim a As Long
Dim b As Long
Dim i As Long
a = Sheets("Sheet4").UsedRange.Rows.Count
b = 1
For i = 2 To a Step 437
Sheets("Sheet4").Range("a" & i & ":a" & i + 435).Copy
Sheets("Sheet2").Range("h2" & b).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
b = b + 1
Next i
End Sub

------------------------------------------------------------

[AB33]

Try this one,but if does not work, you may need to attach a sample with a desired result.

Please Login or Register  to view this content.