MS Office Forum

Ask Question   UnAnswered
Home » Forum » MS Office       RSS Feeds

dates in excel sheet

  Asked By: Margaret    Date: Jan 13    Category: MS Office    Views: 613

I have the data in an excel sheet where the dates are in column
headings with qty.I need to get the date into rows with the qty column.

For eg my data is like this

Sr No Item 2006/2/1 2006/2/2 2006/2/3
1 A 5 6 7
2 B 1 2 3
3 C 4 5 6

The data is arranged like this.Now i want the data like this

Sr No Item Date Amount
1 A 2006/2/1 5
2 A 2006/2/2 6
3 A 2006/2/3 7

I tried to do a Transpose but thats not working.Is there any other
way.Please help as this is pretty urgent.Really appreciate any help.



3 Answers Found

Answer #1    Answered By: Christie Bradley     Answered On: Jan 13

I would like to help, but I can't understand exactly what you're
asking. Please clarify what you have and what you want.

Answer #2    Answered By: Wendy Harrison     Answered On: Jan 13

I got a work around for this.I basically wanted to
convert a Crosstab structure into list type.

Answer #3    Answered By: Noah Evans     Answered On: Jan 13

In case if anyone needed the answer for
themselves here is how I did it.

Option Explicit

Dim username As String
Dim passNum As String
Dim passName As String
Dim password As String

Sub CommandButton1_Click()
Call createUsername
Call createPassword
Call moveActiveDate
Call moveActivePW
End Sub

Sub moveActiveDate()
Worksheets("Password Generator").Activate

If Range("G4").Value = " " Then
Cells(Rows.Count, "G").End(xlUp).Offset(1, 0).Select
End If

ActiveCell.Value = Date
End Sub

Sub moveActivePW()
Worksheets("Password Generator").Activate

If Range("H4").Value = " " Then
Cells(Rows.Count, "H").End(xlUp).Offset(1, 0).Select
End If

ActiveCell.Value = password
End Sub

Sub createPassword()
passNum = CStr(Int(100000 + (Rnd * 900000)))
passName = "pcla"
password = passName + passNum

Worksheets("Password Generator").Range("E13").Value = password
End Sub

Sub createUsername()
username = "pcla"
Worksheets("Password Generator").Range("E12").Value = username
End Sub

Didn't find what you were looking for? Find more on dates in excel sheet Or get search suggestion and latest updates.