Home Menu

Menu


ExcelBanter » Excel Newsgroups » Excel Programming > Macro Required....
Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 65
Default Macro Required....
Hi All,
I have a report as follows

Site Case ID+ Priority* Arrival Time Response Time Status* Case Type*
Pakistan AAHD00000376417 Medium 01/01/2009 12:45 01/01/2009
12:48 Closed Incident
Malaysia AAHD00000376584 Medium 02/01/2009 9:29 02/01/2009
9:32 WIP Incident
Indonesia AAHD00000376695 Low 02/01/2009 13:21 02/01/2009
14:08 Closed Request
India AAHD00000377262 Medium 05/01/2009 10:00 05/01/2009
10:03 Resolved Incident
Korea AAHD00000377363 Medium 05/01/2009 11:32 05/01/2009
12:19 Closed Question
India AAHD00000377630 Medium 05/01/2009 15:19 05/01/2009
15:20 Closed Incident
India AAHD00000377669 Medium 05/01/2009 16:34 05/01/2009
16:35 Resolved Incident
China AAHD00000377681 Medium 05/01/2009 17:25 05/01/2009
17:26 Closed Question
China AAHD00000378016 Medium 06/01/2009 9:54 06/01/2009
9:58 Closed Incident
Philippines AAHD00000378024 Medium 06/01/2009 10:01 06/01/2009
10:01 Closed Incident
Thailand AAHD00000378058 Medium 06/01/2009 10:30 06/01/2009
10:31 WIP Incident

I want country wise output in diffrent sheets
Out put should look as follows:-
Site CaseType Priority Status CaseID
India Incident Medium Closed AAHD00000377630
India Incident Medium Resolved AAHD00000377669

like wise I want in all the sheets for each country wise.

TIA
Reply With QuoteReply With Quote
  #2   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 9,101
Default Macro Required....
The code below assumes the orignal worksheet is c all Summary. change as
required.


Sub CreateSheets()

With Sheets("Summary")

Lastrow = .Range("A" & Rows.Count).End(xlUp).Row
.Rows("2:" & Lastrow).Sort _
Key1:=.Range("A2"), _
Order1:=xlAscending, _
Header:=xlNo

RowCount = 2
Start = RowCount
Do While .Range("A" & RowCount) < ""
If .Range("A" & RowCount) < .Range("A" & (RowCount + 1)) Then
'Create New sheet
Set NewSht = Sheets.Add(after:=Sheets(Sheets.Count))
Country = .Range("A" & RowCount)
NewSht.Name = Country
'Make Header Row
.Range("A1") = "Site"
.Range("B1") = "CaseType"
.Range("C1") = "Priority"
.Range("D1") = "Status"
.Range("E1") = "CaseID"
'copy rows of data
.Range("A" & Start & ":A" & RowCount).Copy _
Destination:=NewSht.Range("A2")
.Range("G" & Start & ":G" & RowCount).Copy _
Destination:=NewSht.Range("B2")
.Range("C" & Start & ":C" & RowCount).Copy _
Destination:=NewSht.Range("C2")
.Range("F" & Start & ":F" & RowCount).Copy _
Destination:=NewSht.Range("D2")
.Range("B" & Start & ":B" & RowCount).Copy _
Destination:=NewSht.Range("E2")

NewSht.Columns("A:E").AutoFit

Start = RowCount + 1

End If

RowCount = RowCount + 1
Loop
End With
End Sub


"kiran" wrote:

Hi All,
I have a report as follows

Site Case ID+ Priority* Arrival Time Response Time Status* Case Type*
Pakistan AAHD00000376417 Medium 01/01/2009 12:45 01/01/2009
12:48 Closed Incident
Malaysia AAHD00000376584 Medium 02/01/2009 9:29 02/01/2009
9:32 WIP Incident
Indonesia AAHD00000376695 Low 02/01/2009 13:21 02/01/2009
14:08 Closed Request
India AAHD00000377262 Medium 05/01/2009 10:00 05/01/2009
10:03 Resolved Incident
Korea AAHD00000377363 Medium 05/01/2009 11:32 05/01/2009
12:19 Closed Question
India AAHD00000377630 Medium 05/01/2009 15:19 05/01/2009
15:20 Closed Incident
India AAHD00000377669 Medium 05/01/2009 16:34 05/01/2009
16:35 Resolved Incident
China AAHD00000377681 Medium 05/01/2009 17:25 05/01/2009
17:26 Closed Question
China AAHD00000378016 Medium 06/01/2009 9:54 06/01/2009
9:58 Closed Incident
Philippines AAHD00000378024 Medium 06/01/2009 10:01 06/01/2009
10:01 Closed Incident
Thailand AAHD00000378058 Medium 06/01/2009 10:30 06/01/2009
10:31 WIP Incident

I want country wise output in diffrent sheets
Out put should look as follows:-
Site CaseType Priority Status CaseID
India Incident Medium Closed AAHD00000377630
India Incident Medium Resolved AAHD00000377669

like wise I want in all the sheets for each country wise.

TIA
Reply With QuoteReply With Quote
  #3   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 9,101
Default Macro Required....
The code below assumes the orignal worksheet is c all Summary. change as
required.


Sub CreateSheets()

With Sheets("Summary")

Lastrow = .Range("A" & Rows.Count).End(xlUp).Row
.Rows("2:" & Lastrow).Sort _
Key1:=.Range("A2"), _
Order1:=xlAscending, _
Header:=xlNo

RowCount = 2
Start = RowCount
Do While .Range("A" & RowCount) < ""
If .Range("A" & RowCount) < .Range("A" & (RowCount + 1)) Then
'Create New sheet
Set NewSht = Sheets.Add(after:=Sheets(Sheets.Count))
Country = .Range("A" & RowCount)
NewSht.Name = Country
'Make Header Row
.Range("A1") = "Site"
.Range("B1") = "CaseType"
.Range("C1") = "Priority"
.Range("D1") = "Status"
.Range("E1") = "CaseID"
'copy rows of data
.Range("A" & Start & ":A" & RowCount).Copy _
Destination:=NewSht.Range("A2")
.Range("G" & Start & ":G" & RowCount).Copy _
Destination:=NewSht.Range("B2")
.Range("C" & Start & ":C" & RowCount).Copy _
Destination:=NewSht.Range("C2")
.Range("F" & Start & ":F" & RowCount).Copy _
Destination:=NewSht.Range("D2")
.Range("B" & Start & ":B" & RowCount).Copy _
Destination:=NewSht.Range("E2")

NewSht.Columns("A:E").AutoFit

Start = RowCount + 1

End If

RowCount = RowCount + 1
Loop
End With
End Sub


"kiran" wrote:

Hi All,
I have a report as follows

Site Case ID+ Priority* Arrival Time Response Time Status* Case Type*
Pakistan AAHD00000376417 Medium 01/01/2009 12:45 01/01/2009
12:48 Closed Incident
Malaysia AAHD00000376584 Medium 02/01/2009 9:29 02/01/2009
9:32 WIP Incident
Indonesia AAHD00000376695 Low 02/01/2009 13:21 02/01/2009
14:08 Closed Request
India AAHD00000377262 Medium 05/01/2009 10:00 05/01/2009
10:03 Resolved Incident
Korea AAHD00000377363 Medium 05/01/2009 11:32 05/01/2009
12:19 Closed Question
India AAHD00000377630 Medium 05/01/2009 15:19 05/01/2009
15:20 Closed Incident
India AAHD00000377669 Medium 05/01/2009 16:34 05/01/2009
16:35 Resolved Incident
China AAHD00000377681 Medium 05/01/2009 17:25 05/01/2009
17:26 Closed Question
China AAHD00000378016 Medium 06/01/2009 9:54 06/01/2009
9:58 Closed Incident
Philippines AAHD00000378024 Medium 06/01/2009 10:01 06/01/2009
10:01 Closed Incident
Thailand AAHD00000378058 Medium 06/01/2009 10:30 06/01/2009
10:31 WIP Incident

I want country wise output in diffrent sheets
Out put should look as follows:-
Site CaseType Priority Status CaseID
India Incident Medium Closed AAHD00000377630
India Incident Medium Resolved AAHD00000377669

like wise I want in all the sheets for each country wise.

TIA
Reply With QuoteReply With Quote
  #4   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 9,101
Default Macro Required....
The code below assumes the orignal worksheet is c all Summary. change as
required.


Sub CreateSheets()

With Sheets("Summary")

Lastrow = .Range("A" & Rows.Count).End(xlUp).Row
.Rows("2:" & Lastrow).Sort _
Key1:=.Range("A2"), _
Order1:=xlAscending, _
Header:=xlNo

RowCount = 2
Start = RowCount
Do While .Range("A" & RowCount) < ""
If .Range("A" & RowCount) < .Range("A" & (RowCount + 1)) Then
'Create New sheet
Set NewSht = Sheets.Add(after:=Sheets(Sheets.Count))
Country = .Range("A" & RowCount)
NewSht.Name = Country
'Make Header Row
.Range("A1") = "Site"
.Range("B1") = "CaseType"
.Range("C1") = "Priority"
.Range("D1") = "Status"
.Range("E1") = "CaseID"
'copy rows of data
.Range("A" & Start & ":A" & RowCount).Copy _
Destination:=NewSht.Range("A2")
.Range("G" & Start & ":G" & RowCount).Copy _
Destination:=NewSht.Range("B2")
.Range("C" & Start & ":C" & RowCount).Copy _
Destination:=NewSht.Range("C2")
.Range("F" & Start & ":F" & RowCount).Copy _
Destination:=NewSht.Range("D2")
.Range("B" & Start & ":B" & RowCount).Copy _
Destination:=NewSht.Range("E2")

NewSht.Columns("A:E").AutoFit

Start = RowCount + 1

End If

RowCount = RowCount + 1
Loop
End With
End Sub


"kiran" wrote:

Hi All,
I have a report as follows

Site Case ID+ Priority* Arrival Time Response Time Status* Case Type*
Pakistan AAHD00000376417 Medium 01/01/2009 12:45 01/01/2009
12:48 Closed Incident
Malaysia AAHD00000376584 Medium 02/01/2009 9:29 02/01/2009
9:32 WIP Incident
Indonesia AAHD00000376695 Low 02/01/2009 13:21 02/01/2009
14:08 Closed Request
India AAHD00000377262 Medium 05/01/2009 10:00 05/01/2009
10:03 Resolved Incident
Korea AAHD00000377363 Medium 05/01/2009 11:32 05/01/2009
12:19 Closed Question
India AAHD00000377630 Medium 05/01/2009 15:19 05/01/2009
15:20 Closed Incident
India AAHD00000377669 Medium 05/01/2009 16:34 05/01/2009
16:35 Resolved Incident
China AAHD00000377681 Medium 05/01/2009 17:25 05/01/2009
17:26 Closed Question
China AAHD00000378016 Medium 06/01/2009 9:54 06/01/2009
9:58 Closed Incident
Philippines AAHD00000378024 Medium 06/01/2009 10:01 06/01/2009
10:01 Closed Incident
Thailand AAHD00000378058 Medium 06/01/2009 10:30 06/01/2009
10:31 WIP Incident

I want country wise output in diffrent sheets
Out put should look as follows:-
Site CaseType Priority Status CaseID
India Incident Medium Closed AAHD00000377630
India Incident Medium Resolved AAHD00000377669

like wise I want in all the sheets for each country wise.

TIA
Reply With QuoteReply With Quote
  #5   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 9,101
Default Macro Required....
The code below assumes the orignal worksheet is c all Summary. change as
required.


Sub CreateSheets()

With Sheets("Summary")

Lastrow = .Range("A" & Rows.Count).End(xlUp).Row
.Rows("2:" & Lastrow).Sort _
Key1:=.Range("A2"), _
Order1:=xlAscending, _
Header:=xlNo

RowCount = 2
Start = RowCount
Do While .Range("A" & RowCount) < ""
If .Range("A" & RowCount) < .Range("A" & (RowCount + 1)) Then
'Create New sheet
Set NewSht = Sheets.Add(after:=Sheets(Sheets.Count))
Country = .Range("A" & RowCount)
NewSht.Name = Country
'Make Header Row
.Range("A1") = "Site"
.Range("B1") = "CaseType"
.Range("C1") = "Priority"
.Range("D1") = "Status"
.Range("E1") = "CaseID"
'copy rows of data
.Range("A" & Start & ":A" & RowCount).Copy _
Destination:=NewSht.Range("A2")
.Range("G" & Start & ":G" & RowCount).Copy _
Destination:=NewSht.Range("B2")
.Range("C" & Start & ":C" & RowCount).Copy _
Destination:=NewSht.Range("C2")
.Range("F" & Start & ":F" & RowCount).Copy _
Destination:=NewSht.Range("D2")
.Range("B" & Start & ":B" & RowCount).Copy _
Destination:=NewSht.Range("E2")

NewSht.Columns("A:E").AutoFit

Start = RowCount + 1

End If

RowCount = RowCount + 1
Loop
End With
End Sub


"kiran" wrote:

Hi All,
I have a report as follows

Site Case ID+ Priority* Arrival Time Response Time Status* Case Type*
Pakistan AAHD00000376417 Medium 01/01/2009 12:45 01/01/2009
12:48 Closed Incident
Malaysia AAHD00000376584 Medium 02/01/2009 9:29 02/01/2009
9:32 WIP Incident
Indonesia AAHD00000376695 Low 02/01/2009 13:21 02/01/2009
14:08 Closed Request
India AAHD00000377262 Medium 05/01/2009 10:00 05/01/2009
10:03 Resolved Incident
Korea AAHD00000377363 Medium 05/01/2009 11:32 05/01/2009
12:19 Closed Question
India AAHD00000377630 Medium 05/01/2009 15:19 05/01/2009
15:20 Closed Incident
India AAHD00000377669 Medium 05/01/2009 16:34 05/01/2009
16:35 Resolved Incident
China AAHD00000377681 Medium 05/01/2009 17:25 05/01/2009
17:26 Closed Question
China AAHD00000378016 Medium 06/01/2009 9:54 06/01/2009
9:58 Closed Incident
Philippines AAHD00000378024 Medium 06/01/2009 10:01 06/01/2009
10:01 Closed Incident
Thailand AAHD00000378058 Medium 06/01/2009 10:30 06/01/2009
10:31 WIP Incident

I want country wise output in diffrent sheets
Out put should look as follows:-
Site CaseType Priority Status CaseID
India Incident Medium Closed AAHD00000377630
India Incident Medium Resolved AAHD00000377669

like wise I want in all the sheets for each country wise.

TIA
Reply With QuoteReply With Quote
  #6   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 9,101
Default Macro Required....
The code below assumes the orignal worksheet is c all Summary. change as
required.


Sub CreateSheets()

With Sheets("Summary")

Lastrow = .Range("A" & Rows.Count).End(xlUp).Row
.Rows("2:" & Lastrow).Sort _
Key1:=.Range("A2"), _
Order1:=xlAscending, _
Header:=xlNo

RowCount = 2
Start = RowCount
Do While .Range("A" & RowCount) < ""
If .Range("A" & RowCount) < .Range("A" & (RowCount + 1)) Then
'Create New sheet
Set NewSht = Sheets.Add(after:=Sheets(Sheets.Count))
Country = .Range("A" & RowCount)
NewSht.Name = Country
'Make Header Row
.Range("A1") = "Site"
.Range("B1") = "CaseType"
.Range("C1") = "Priority"
.Range("D1") = "Status"
.Range("E1") = "CaseID"
'copy rows of data
.Range("A" & Start & ":A" & RowCount).Copy _
Destination:=NewSht.Range("A2")
.Range("G" & Start & ":G" & RowCount).Copy _
Destination:=NewSht.Range("B2")
.Range("C" & Start & ":C" & RowCount).Copy _
Destination:=NewSht.Range("C2")
.Range("F" & Start & ":F" & RowCount).Copy _
Destination:=NewSht.Range("D2")
.Range("B" & Start & ":B" & RowCount).Copy _
Destination:=NewSht.Range("E2")

NewSht.Columns("A:E").AutoFit

Start = RowCount + 1

End If

RowCount = RowCount + 1
Loop
End With
End Sub


"kiran" wrote:

Hi All,
I have a report as follows

Site Case ID+ Priority* Arrival Time Response Time Status* Case Type*
Pakistan AAHD00000376417 Medium 01/01/2009 12:45 01/01/2009
12:48 Closed Incident
Malaysia AAHD00000376584 Medium 02/01/2009 9:29 02/01/2009
9:32 WIP Incident
Indonesia AAHD00000376695 Low 02/01/2009 13:21 02/01/2009
14:08 Closed Request
India AAHD00000377262 Medium 05/01/2009 10:00 05/01/2009
10:03 Resolved Incident
Korea AAHD00000377363 Medium 05/01/2009 11:32 05/01/2009
12:19 Closed Question
India AAHD00000377630 Medium 05/01/2009 15:19 05/01/2009
15:20 Closed Incident
India AAHD00000377669 Medium 05/01/2009 16:34 05/01/2009
16:35 Resolved Incident
China AAHD00000377681 Medium 05/01/2009 17:25 05/01/2009
17:26 Closed Question
China AAHD00000378016 Medium 06/01/2009 9:54 06/01/2009
9:58 Closed Incident
Philippines AAHD00000378024 Medium 06/01/2009 10:01 06/01/2009
10:01 Closed Incident
Thailand AAHD00000378058 Medium 06/01/2009 10:30 06/01/2009
10:31 WIP Incident

I want country wise output in diffrent sheets
Out put should look as follows:-
Site CaseType Priority Status CaseID
India Incident Medium Closed AAHD00000377630
India Incident Medium Resolved AAHD00000377669

like wise I want in all the sheets for each country wise.

TIA
Reply With QuoteReply With Quote
  #7   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 9,101
Default Macro Required....
The code below assumes the orignal worksheet is c all Summary. change as
required.


Sub CreateSheets()

With Sheets("Summary")

Lastrow = .Range("A" & Rows.Count).End(xlUp).Row
.Rows("2:" & Lastrow).Sort _
Key1:=.Range("A2"), _
Order1:=xlAscending, _
Header:=xlNo

RowCount = 2
Start = RowCount
Do While .Range("A" & RowCount) < ""
If .Range("A" & RowCount) < .Range("A" & (RowCount + 1)) Then
'Create New sheet
Set NewSht = Sheets.Add(after:=Sheets(Sheets.Count))
Country = .Range("A" & RowCount)
NewSht.Name = Country
'Make Header Row
.Range("A1") = "Site"
.Range("B1") = "CaseType"
.Range("C1") = "Priority"
.Range("D1") = "Status"
.Range("E1") = "CaseID"
'copy rows of data
.Range("A" & Start & ":A" & RowCount).Copy _
Destination:=NewSht.Range("A2")
.Range("G" & Start & ":G" & RowCount).Copy _
Destination:=NewSht.Range("B2")
.Range("C" & Start & ":C" & RowCount).Copy _
Destination:=NewSht.Range("C2")
.Range("F" & Start & ":F" & RowCount).Copy _
Destination:=NewSht.Range("D2")
.Range("B" & Start & ":B" & RowCount).Copy _
Destination:=NewSht.Range("E2")

NewSht.Columns("A:E").AutoFit

Start = RowCount + 1

End If

RowCount = RowCount + 1
Loop
End With
End Sub


"kiran" wrote:

Hi All,
I have a report as follows

Site Case ID+ Priority* Arrival Time Response Time Status* Case Type*
Pakistan AAHD00000376417 Medium 01/01/2009 12:45 01/01/2009
12:48 Closed Incident
Malaysia AAHD00000376584 Medium 02/01/2009 9:29 02/01/2009
9:32 WIP Incident
Indonesia AAHD00000376695 Low 02/01/2009 13:21 02/01/2009
14:08 Closed Request
India AAHD00000377262 Medium 05/01/2009 10:00 05/01/2009
10:03 Resolved Incident
Korea AAHD00000377363 Medium 05/01/2009 11:32 05/01/2009
12:19 Closed Question
India AAHD00000377630 Medium 05/01/2009 15:19 05/01/2009
15:20 Closed Incident
India AAHD00000377669 Medium 05/01/2009 16:34 05/01/2009
16:35 Resolved Incident
China AAHD00000377681 Medium 05/01/2009 17:25 05/01/2009
17:26 Closed Question
China AAHD00000378016 Medium 06/01/2009 9:54 06/01/2009
9:58 Closed Incident
Philippines AAHD00000378024 Medium 06/01/2009 10:01 06/01/2009
10:01 Closed Incident
Thailand AAHD00000378058 Medium 06/01/2009 10:30 06/01/2009
10:31 WIP Incident

I want country wise output in diffrent sheets
Out put should look as follows:-
Site CaseType Priority Status CaseID
India Incident Medium Closed AAHD00000377630
India Incident Medium Resolved AAHD00000377669

like wise I want in all the sheets for each country wise.

TIA
Reply With QuoteReply With Quote
  #8   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 65
Default Macro Required....
Thanks Joel one small change can I get Heading in all the country pages also

TIA

"Joel" wrote:

The code below assumes the orignal worksheet is c all Summary. change as
required.


Sub CreateSheets()

With Sheets("Summary")

Lastrow = .Range("A" & Rows.Count).End(xlUp).Row
.Rows("2:" & Lastrow).Sort _
Key1:=.Range("A2"), _
Order1:=xlAscending, _
Header:=xlNo

RowCount = 2
Start = RowCount
Do While .Range("A" & RowCount) < ""
If .Range("A" & RowCount) < .Range("A" & (RowCount + 1)) Then
'Create New sheet
Set NewSht = Sheets.Add(after:=Sheets(Sheets.Count))
Country = .Range("A" & RowCount)
NewSht.Name = Country
'Make Header Row
.Range("A1") = "Site"
.Range("B1") = "CaseType"
.Range("C1") = "Priority"
.Range("D1") = "Status"
.Range("E1") = "CaseID"
'copy rows of data
.Range("A" & Start & ":A" & RowCount).Copy _
Destination:=NewSht.Range("A2")
.Range("G" & Start & ":G" & RowCount).Copy _
Destination:=NewSht.Range("B2")
.Range("C" & Start & ":C" & RowCount).Copy _
Destination:=NewSht.Range("C2")
.Range("F" & Start & ":F" & RowCount).Copy _
Destination:=NewSht.Range("D2")
.Range("B" & Start & ":B" & RowCount).Copy _
Destination:=NewSht.Range("E2")

NewSht.Columns("A:E").AutoFit

Start = RowCount + 1

End If

RowCount = RowCount + 1
Loop
End With
End Sub


"kiran" wrote:

Hi All,
I have a report as follows

Site Case ID+ Priority* Arrival Time Response Time Status* Case Type*
Pakistan AAHD00000376417 Medium 01/01/2009 12:45 01/01/2009
12:48 Closed Incident
Malaysia AAHD00000376584 Medium 02/01/2009 9:29 02/01/2009
9:32 WIP Incident
Indonesia AAHD00000376695 Low 02/01/2009 13:21 02/01/2009
14:08 Closed Request
India AAHD00000377262 Medium 05/01/2009 10:00 05/01/2009
10:03 Resolved Incident
Korea AAHD00000377363 Medium 05/01/2009 11:32 05/01/2009
12:19 Closed Question
India AAHD00000377630 Medium 05/01/2009 15:19 05/01/2009
15:20 Closed Incident
India AAHD00000377669 Medium 05/01/2009 16:34 05/01/2009
16:35 Resolved Incident
China AAHD00000377681 Medium 05/01/2009 17:25 05/01/2009
17:26 Closed Question
China AAHD00000378016 Medium 06/01/2009 9:54 06/01/2009
9:58 Closed Incident
Philippines AAHD00000378024 Medium 06/01/2009 10:01 06/01/2009
10:01 Closed Incident
Thailand AAHD00000378058 Medium 06/01/2009 10:30 06/01/2009
10:31 WIP Incident

I want country wise output in diffrent sheets
Out put should look as follows:-
Site CaseType Priority Status CaseID
India Incident Medium Closed AAHD00000377630
India Incident Medium Resolved AAHD00000377669

like wise I want in all the sheets for each country wise.

TIA
Reply With QuoteReply With Quote
Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes
Linear Mode Linear Mode

Posting Rules
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On

Similar Threads
Thread Thread Starter Forum Replies Last Post
Macro required please Dr Hackenbush Excel Discussion (Misc queries) 4 February 10th 10 09:29 AM
Macro Help Required Dan Wood Excel Discussion (Misc queries) 3 January 5th 10 05:49 PM
macro required.. [email protected] Excel Programming 1 December 15th 08 07:30 PM
Pilgrim needs help: Effecting keystroks required by a macro nested within a macro. [email protected] Excel Programming 1 May 14th 05 03:46 AM
Macro help required! Don Niall Excel Programming 7 June 24th 04 07:12 PM


All times are GMT +1. The time now is 09:10 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"

 

Contact Us ExcelBanter forum home Privacy Statement