Home Menu

Menu


ExcelBanter » Excel Newsgroups » Excel Programming > Loopng through specific worksheets
Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 193
Default Loopng through specific worksheets
I have a macro that loops through all worksheets based on criterias
specified. The problem is, I have a consolidated worksheet that summarizes
the individual worksheets as well, so when I run the macro, the I am getting
duplicate answers since the macro is looping through the consolidated
worksheet and the individual worksheets. I cant figure out how to fix the
macro so that it only loops through the individual worksheets€¦ each
individual worksheet is labeled as €ś1 name€ť.

Option Explicit
Sub Create_Summary()


Dim CritVal(3) As Variant

Dim ncrit As Integer
Dim CritIdx(3) As Integer

Dim lr As Long
Dim irow As Long
Dim orow As Long

Dim wsh As Variant
Dim hdgs As Variant
Dim matched As Boolean

Application.ScreenUpdating = False

hdgs = Array("Dealers", "Date", "Time", "Offering Face", "CUSIP",
"Security", "Shelf", "Vintage", "Class", "Avg Life", "Index", "Bid Spread",
"Bid Price", "Cover Spread", "Cover Price", "Comments")

'
' Check selection criteria
'
Worksheets("Summary").Activate

If Range("A2") = "" Then
MsgBox ("First selection is blank. Progam stopped")
GoTo endprog
Else
ncrit = 1
CritIdx(ncrit) = Application.Match(Range("A2"), hdgs, 0)
CritVal(ncrit) = Range("A3")
If Range("B2") < "" Then
ncrit = 2
CritIdx(ncrit) = Application.Match(Range("B2"), hdgs, 0)
CritVal(ncrit) = Range("B3")
If Range("C2") < "" Then
ncrit = 3
CritIdx(ncrit) = Application.Match(Range("C2"), hdgs, 0)
CritVal(ncrit) = Range("C3")
End If
End If
End If
'
' Write Headings
'
Range("A5").Resize(1, 16) = hdgs
Range("a6").Resize(1000, 16).Clear
orow = 5

' Loop through worksheets and match criteria .........
'

For wsh = 1 To Sheets.Count

If Sheets(wsh).Name = "Summary" Then GoTo nextwsh
Debug.Print Sheets(wsh).Name
Sheets(wsh).Activate
lr = Cells(Rows.Count, "A").End(xlUp).Row

For irow = 2 To lr

matched = False

Select Case ncrit
Case Is = 1
If Trim(Cells(irow, CritIdx(1))) = Trim(CritVal(1)) Then
matched = True
Case Is = 2
If Application.And(Trim(Cells(irow, CritIdx(1))) =
Trim(CritVal(1)), _
Trim(Cells(irow, CritIdx(2))) = Trim(CritVal(2))) _
Then matched = True
Case Is = 3
If Application.And(Trim(Cells(irow, CritIdx(1))) =
Trim(CritVal(1)), _
Trim(Cells(irow, CritIdx(2))) =
Trim(CritVal(2)), _
Trim(Cells(irow, CritIdx(3))) =
Trim(CritVal(3))) _
Then matched = True

End Select
If matched Then
orow = orow + 1
Range("a" & irow).Resize(1, 14).Copy Sheets("Summary").Range("A" &
orow)
End If
Next irow

nextwsh:
Next wsh



endprog:
Worksheets("Summary").Activate
Application.StatusBar = "Processing Completed"
Application.ScreenUpdating = True


End Sub




Reply With QuoteReply With Quote
  #2   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 2,836
Default Loopng through specific worksheets
This should give you some ideas:

For Each sh In Worksheets
If (sh.Name) < "Summary" Then
'Do something
Else
bWrite = False
End If
Next sh

For Each sh In ActiveWorkbook.Worksheets
If InStr(1, sh.Name, "Summary") Then
sh.Select False
Else
'Do Something sh.Delete (for example)
End If
Next sh


HTH,
Ryan---

--
Ryan---
If this information was helpful, please indicate this by clicking ''Yes''.


"Confused" wrote:

I have a macro that loops through all worksheets based on criterias
specified. The problem is, I have a consolidated worksheet that summarizes
the individual worksheets as well, so when I run the macro, the I am getting
duplicate answers since the macro is looping through the consolidated
worksheet and the individual worksheets. I cant figure out how to fix the
macro so that it only loops through the individual worksheets€¦ each
individual worksheet is labeled as €ś1 name€ť.

Option Explicit
Sub Create_Summary()


Dim CritVal(3) As Variant

Dim ncrit As Integer
Dim CritIdx(3) As Integer

Dim lr As Long
Dim irow As Long
Dim orow As Long

Dim wsh As Variant
Dim hdgs As Variant
Dim matched As Boolean

Application.ScreenUpdating = False

hdgs = Array("Dealers", "Date", "Time", "Offering Face", "CUSIP",
"Security", "Shelf", "Vintage", "Class", "Avg Life", "Index", "Bid Spread",
"Bid Price", "Cover Spread", "Cover Price", "Comments")

'
' Check selection criteria
'
Worksheets("Summary").Activate

If Range("A2") = "" Then
MsgBox ("First selection is blank. Progam stopped")
GoTo endprog
Else
ncrit = 1
CritIdx(ncrit) = Application.Match(Range("A2"), hdgs, 0)
CritVal(ncrit) = Range("A3")
If Range("B2") < "" Then
ncrit = 2
CritIdx(ncrit) = Application.Match(Range("B2"), hdgs, 0)
CritVal(ncrit) = Range("B3")
If Range("C2") < "" Then
ncrit = 3
CritIdx(ncrit) = Application.Match(Range("C2"), hdgs, 0)
CritVal(ncrit) = Range("C3")
End If
End If
End If
'
' Write Headings
'
Range("A5").Resize(1, 16) = hdgs
Range("a6").Resize(1000, 16).Clear
orow = 5

' Loop through worksheets and match criteria .........
'

For wsh = 1 To Sheets.Count

If Sheets(wsh).Name = "Summary" Then GoTo nextwsh
Debug.Print Sheets(wsh).Name
Sheets(wsh).Activate
lr = Cells(Rows.Count, "A").End(xlUp).Row

For irow = 2 To lr

matched = False

Select Case ncrit
Case Is = 1
If Trim(Cells(irow, CritIdx(1))) = Trim(CritVal(1)) Then
matched = True
Case Is = 2
If Application.And(Trim(Cells(irow, CritIdx(1))) =
Trim(CritVal(1)), _
Trim(Cells(irow, CritIdx(2))) = Trim(CritVal(2))) _
Then matched = True
Case Is = 3
If Application.And(Trim(Cells(irow, CritIdx(1))) =
Trim(CritVal(1)), _
Trim(Cells(irow, CritIdx(2))) =
Trim(CritVal(2)), _
Trim(Cells(irow, CritIdx(3))) =
Trim(CritVal(3))) _
Then matched = True

End Select
If matched Then
orow = orow + 1
Range("a" & irow).Resize(1, 14).Copy Sheets("Summary").Range("A" &
orow)
End If
Next irow

nextwsh:
Next wsh



endprog:
Worksheets("Summary").Activate
Application.StatusBar = "Processing Completed"
Application.ScreenUpdating = True


End Sub




Reply With QuoteReply With Quote
  #3   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 9,101
Default Loopng through specific worksheets
you can use the val which will extract the number from the beginning of the
string tab name

for each sht in sheets
if isnumeric(val(sht.name)) then
'enter your code here
end if

next sht

"Confused" wrote:

I have a macro that loops through all worksheets based on criterias
specified. The problem is, I have a consolidated worksheet that summarizes
the individual worksheets as well, so when I run the macro, the I am getting
duplicate answers since the macro is looping through the consolidated
worksheet and the individual worksheets. I cant figure out how to fix the
macro so that it only loops through the individual worksheets€¦ each
individual worksheet is labeled as €ś1 name€ť.

Option Explicit
Sub Create_Summary()


Dim CritVal(3) As Variant

Dim ncrit As Integer
Dim CritIdx(3) As Integer

Dim lr As Long
Dim irow As Long
Dim orow As Long

Dim wsh As Variant
Dim hdgs As Variant
Dim matched As Boolean

Application.ScreenUpdating = False

hdgs = Array("Dealers", "Date", "Time", "Offering Face", "CUSIP",
"Security", "Shelf", "Vintage", "Class", "Avg Life", "Index", "Bid Spread",
"Bid Price", "Cover Spread", "Cover Price", "Comments")

'
' Check selection criteria
'
Worksheets("Summary").Activate

If Range("A2") = "" Then
MsgBox ("First selection is blank. Progam stopped")
GoTo endprog
Else
ncrit = 1
CritIdx(ncrit) = Application.Match(Range("A2"), hdgs, 0)
CritVal(ncrit) = Range("A3")
If Range("B2") < "" Then
ncrit = 2
CritIdx(ncrit) = Application.Match(Range("B2"), hdgs, 0)
CritVal(ncrit) = Range("B3")
If Range("C2") < "" Then
ncrit = 3
CritIdx(ncrit) = Application.Match(Range("C2"), hdgs, 0)
CritVal(ncrit) = Range("C3")
End If
End If
End If
'
' Write Headings
'
Range("A5").Resize(1, 16) = hdgs
Range("a6").Resize(1000, 16).Clear
orow = 5

' Loop through worksheets and match criteria .........
'

For wsh = 1 To Sheets.Count

If Sheets(wsh).Name = "Summary" Then GoTo nextwsh
Debug.Print Sheets(wsh).Name
Sheets(wsh).Activate
lr = Cells(Rows.Count, "A").End(xlUp).Row

For irow = 2 To lr

matched = False

Select Case ncrit
Case Is = 1
If Trim(Cells(irow, CritIdx(1))) = Trim(CritVal(1)) Then
matched = True
Case Is = 2
If Application.And(Trim(Cells(irow, CritIdx(1))) =
Trim(CritVal(1)), _
Trim(Cells(irow, CritIdx(2))) = Trim(CritVal(2))) _
Then matched = True
Case Is = 3
If Application.And(Trim(Cells(irow, CritIdx(1))) =
Trim(CritVal(1)), _
Trim(Cells(irow, CritIdx(2))) =
Trim(CritVal(2)), _
Trim(Cells(irow, CritIdx(3))) =
Trim(CritVal(3))) _
Then matched = True

End Select
If matched Then
orow = orow + 1
Range("a" & irow).Resize(1, 14).Copy Sheets("Summary").Range("A" &
orow)
End If
Next irow

nextwsh:
Next wsh



endprog:
Worksheets("Summary").Activate
Application.StatusBar = "Processing Completed"
Application.ScreenUpdating = True


End Sub




Reply With QuoteReply With Quote
  #4   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 193
Default Loopng through specific worksheets
I inserted the code you provided but when i run the macro, nothing is showing
up in my summary page. Can you tell me if I inserted the macro in the
correct place in the code?


Option Explicit
Sub Create_Summary()


Dim CritVal(3) As Variant

Dim ncrit As Integer
Dim CritIdx(3) As Integer

Dim lr As Long
Dim irow As Long
Dim orow As Long

Dim wsh As Variant
Dim hdgs As Variant
Dim matched As Boolean

Application.ScreenUpdating = False

hdgs = Array("Dealers", "Date", "Time", "Offering Face", "CUSIP",
"Security", "Shelf", "Vintage", "Class", "Avg Life", "Index", "Bid Spread",
"Bid Price", "Cover Spread", "Cover Price", "Comments")

'
' Check selection criteria
'
Worksheets("Summary").Activate

If Range("A2") = "" Then
MsgBox ("First selection is blank. Progam stopped")
GoTo endprog
Else
ncrit = 1
CritIdx(ncrit) = Application.Match(Range("A2"), hdgs, 0)
CritVal(ncrit) = Range("A3")
If Range("B2") < "" Then
ncrit = 2
CritIdx(ncrit) = Application.Match(Range("B2"), hdgs, 0)
CritVal(ncrit) = Range("B3")
If Range("C2") < "" Then
ncrit = 3
CritIdx(ncrit) = Application.Match(Range("C2"), hdgs, 0)
CritVal(ncrit) = Range("C3")
End If
End If
End If
'
' Write Headings
'
Range("A5").Resize(1, 16) = hdgs
Range("a6").Resize(1000, 16).Clear
orow = 5

' Loop through worksheets and match criteria .........
'

For Each wsh In Sheets
If IsNumeric(Val(wsh.Name)) Then

For irow = 2 To lr

matched = False

Select Case ncrit
Case Is = 1
If Trim(Cells(irow, CritIdx(1))) = Trim(CritVal(1)) Then
matched = True
Case Is = 2
If Application.And(Trim(Cells(irow, CritIdx(1))) =
Trim(CritVal(1)), _
Trim(Cells(irow, CritIdx(2))) = Trim(CritVal(2))) _
Then matched = True
Case Is = 3
If Application.And(Trim(Cells(irow, CritIdx(1))) =
Trim(CritVal(1)), _
Trim(Cells(irow, CritIdx(2))) =
Trim(CritVal(2)), _
Trim(Cells(irow, CritIdx(3))) =
Trim(CritVal(3))) _
Then matched = True

End Select
If matched Then
orow = orow + 1
Range("a" & irow).Resize(1, 14).Copy Sheets("Summary").Range("A" &
orow)
End If
Next irow

End If

Next wsh


endprog:
Worksheets("Summary").Activate
Application.StatusBar = "Processing Completed"
Application.ScreenUpdating = True


End Sub


"Joel" wrote:

you can use the val which will extract the number from the beginning of the
string tab name

for each sht in sheets
if isnumeric(val(sht.name)) then
'enter your code here
end if

next sht

"Confused" wrote:

I have a macro that loops through all worksheets based on criterias
specified. The problem is, I have a consolidated worksheet that summarizes
the individual worksheets as well, so when I run the macro, the I am getting
duplicate answers since the macro is looping through the consolidated
worksheet and the individual worksheets. I cant figure out how to fix the
macro so that it only loops through the individual worksheets€¦ each
individual worksheet is labeled as €ś1 name€ť.

Option Explicit
Sub Create_Summary()


Dim CritVal(3) As Variant

Dim ncrit As Integer
Dim CritIdx(3) As Integer

Dim lr As Long
Dim irow As Long
Dim orow As Long

Dim wsh As Variant
Dim hdgs As Variant
Dim matched As Boolean

Application.ScreenUpdating = False

hdgs = Array("Dealers", "Date", "Time", "Offering Face", "CUSIP",
"Security", "Shelf", "Vintage", "Class", "Avg Life", "Index", "Bid Spread",
"Bid Price", "Cover Spread", "Cover Price", "Comments")

'
' Check selection criteria
'
Worksheets("Summary").Activate

If Range("A2") = "" Then
MsgBox ("First selection is blank. Progam stopped")
GoTo endprog
Else
ncrit = 1
CritIdx(ncrit) = Application.Match(Range("A2"), hdgs, 0)
CritVal(ncrit) = Range("A3")
If Range("B2") < "" Then
ncrit = 2
CritIdx(ncrit) = Application.Match(Range("B2"), hdgs, 0)
CritVal(ncrit) = Range("B3")
If Range("C2") < "" Then
ncrit = 3
CritIdx(ncrit) = Application.Match(Range("C2"), hdgs, 0)
CritVal(ncrit) = Range("C3")
End If
End If
End If
'
' Write Headings
'
Range("A5").Resize(1, 16) = hdgs
Range("a6").Resize(1000, 16).Clear
orow = 5

' Loop through worksheets and match criteria .........
'

For wsh = 1 To Sheets.Count

If Sheets(wsh).Name = "Summary" Then GoTo nextwsh
Debug.Print Sheets(wsh).Name
Sheets(wsh).Activate
lr = Cells(Rows.Count, "A").End(xlUp).Row

For irow = 2 To lr

matched = False

Select Case ncrit
Case Is = 1
If Trim(Cells(irow, CritIdx(1))) = Trim(CritVal(1)) Then
matched = True
Case Is = 2
If Application.And(Trim(Cells(irow, CritIdx(1))) =
Trim(CritVal(1)), _
Trim(Cells(irow, CritIdx(2))) = Trim(CritVal(2))) _
Then matched = True
Case Is = 3
If Application.And(Trim(Cells(irow, CritIdx(1))) =
Trim(CritVal(1)), _
Trim(Cells(irow, CritIdx(2))) =
Trim(CritVal(2)), _
Trim(Cells(irow, CritIdx(3))) =
Trim(CritVal(3))) _
Then matched = True

End Select
If matched Then
orow = orow + 1
Range("a" & irow).Resize(1, 14).Copy Sheets("Summary").Range("A" &
orow)
End If
Next irow

nextwsh:
Next wsh



endprog:
Worksheets("Summary").Activate
Application.StatusBar = "Processing Completed"
Application.ScreenUpdating = True


End Sub




Reply With QuoteReply With Quote
  #5   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 9,101
Default Loopng through specific worksheets
The code is fine. Without seeing yoiur exact sheet names I can't determine
what is wrong. There is one case where my code may execute on the wrong
sheet which I dodn't think is the problem but should be fixed

from
If IsNumeric(Val(wsh.Name)) Then

to

If IsNumeric(Left(sht.Name, 1)) Then

Sub test()


mystr = "1 abc"
If IsNumeric(Left(mystr, 1)) Then
MsgBox ("String is numeric")
Else
MsgBox ("String is not numeric")

End If

For Each sht In Sheets
a = Val(sht.Name)
If IsNumeric(Left(sht.Name, 1)) Then
MsgBox (sht.Name & ": String is numeric")
Else
MsgBox (sht.Name & ": String is not numeric")

End If


Next sht


End Sub



Here is some test code that may help find the problem





"Confused" wrote:

I inserted the code you provided but when i run the macro, nothing is showing
up in my summary page. Can you tell me if I inserted the macro in the
correct place in the code?


Option Explicit
Sub Create_Summary()


Dim CritVal(3) As Variant

Dim ncrit As Integer
Dim CritIdx(3) As Integer

Dim lr As Long
Dim irow As Long
Dim orow As Long

Dim wsh As Variant
Dim hdgs As Variant
Dim matched As Boolean

Application.ScreenUpdating = False

hdgs = Array("Dealers", "Date", "Time", "Offering Face", "CUSIP",
"Security", "Shelf", "Vintage", "Class", "Avg Life", "Index", "Bid Spread",
"Bid Price", "Cover Spread", "Cover Price", "Comments")

'
' Check selection criteria
'
Worksheets("Summary").Activate

If Range("A2") = "" Then
MsgBox ("First selection is blank. Progam stopped")
GoTo endprog
Else
ncrit = 1
CritIdx(ncrit) = Application.Match(Range("A2"), hdgs, 0)
CritVal(ncrit) = Range("A3")
If Range("B2") < "" Then
ncrit = 2
CritIdx(ncrit) = Application.Match(Range("B2"), hdgs, 0)
CritVal(ncrit) = Range("B3")
If Range("C2") < "" Then
ncrit = 3
CritIdx(ncrit) = Application.Match(Range("C2"), hdgs, 0)
CritVal(ncrit) = Range("C3")
End If
End If
End If
'
' Write Headings
'
Range("A5").Resize(1, 16) = hdgs
Range("a6").Resize(1000, 16).Clear
orow = 5

' Loop through worksheets and match criteria .........
'

For Each wsh In Sheets
If IsNumeric(Val(wsh.Name)) Then

For irow = 2 To lr

matched = False

Select Case ncrit
Case Is = 1
If Trim(Cells(irow, CritIdx(1))) = Trim(CritVal(1)) Then
matched = True
Case Is = 2
If Application.And(Trim(Cells(irow, CritIdx(1))) =
Trim(CritVal(1)), _
Trim(Cells(irow, CritIdx(2))) = Trim(CritVal(2))) _
Then matched = True
Case Is = 3
If Application.And(Trim(Cells(irow, CritIdx(1))) =
Trim(CritVal(1)), _
Trim(Cells(irow, CritIdx(2))) =
Trim(CritVal(2)), _
Trim(Cells(irow, CritIdx(3))) =
Trim(CritVal(3))) _
Then matched = True

End Select
If matched Then
orow = orow + 1
Range("a" & irow).Resize(1, 14).Copy Sheets("Summary").Range("A" &
orow)
End If
Next irow

End If

Next wsh


endprog:
Worksheets("Summary").Activate
Application.StatusBar = "Processing Completed"
Application.ScreenUpdating = True


End Sub


"Joel" wrote:

you can use the val which will extract the number from the beginning of the
string tab name

for each sht in sheets
if isnumeric(val(sht.name)) then
'enter your code here
end if

next sht

"Confused" wrote:

I have a macro that loops through all worksheets based on criterias
specified. The problem is, I have a consolidated worksheet that summarizes
the individual worksheets as well, so when I run the macro, the I am getting
duplicate answers since the macro is looping through the consolidated
worksheet and the individual worksheets. I cant figure out how to fix the
macro so that it only loops through the individual worksheets€¦ each
individual worksheet is labeled as €ś1 name€ť.

Option Explicit
Sub Create_Summary()


Dim CritVal(3) As Variant

Dim ncrit As Integer
Dim CritIdx(3) As Integer

Dim lr As Long
Dim irow As Long
Dim orow As Long

Dim wsh As Variant
Dim hdgs As Variant
Dim matched As Boolean

Application.ScreenUpdating = False

hdgs = Array("Dealers", "Date", "Time", "Offering Face", "CUSIP",
"Security", "Shelf", "Vintage", "Class", "Avg Life", "Index", "Bid Spread",
"Bid Price", "Cover Spread", "Cover Price", "Comments")

'
' Check selection criteria
'
Worksheets("Summary").Activate

If Range("A2") = "" Then
MsgBox ("First selection is blank. Progam stopped")
GoTo endprog
Else
ncrit = 1
CritIdx(ncrit) = Application.Match(Range("A2"), hdgs, 0)
CritVal(ncrit) = Range("A3")
If Range("B2") < "" Then
ncrit = 2
CritIdx(ncrit) = Application.Match(Range("B2"), hdgs, 0)
CritVal(ncrit) = Range("B3")
If Range("C2") < "" Then
ncrit = 3
CritIdx(ncrit) = Application.Match(Range("C2"), hdgs, 0)
CritVal(ncrit) = Range("C3")
End If
End If
End If
'
' Write Headings
'
Range("A5").Resize(1, 16) = hdgs
Range("a6").Resize(1000, 16).Clear
orow = 5

' Loop through worksheets and match criteria .........
'

For wsh = 1 To Sheets.Count

If Sheets(wsh).Name = "Summary" Then GoTo nextwsh
Debug.Print Sheets(wsh).Name
Sheets(wsh).Activate
lr = Cells(Rows.Count, "A").End(xlUp).Row

For irow = 2 To lr

matched = False

Select Case ncrit
Case Is = 1
If Trim(Cells(irow, CritIdx(1))) = Trim(CritVal(1)) Then
matched = True
Case Is = 2
If Application.And(Trim(Cells(irow, CritIdx(1))) =
Trim(CritVal(1)), _
Trim(Cells(irow, CritIdx(2))) = Trim(CritVal(2))) _
Then matched = True
Case Is = 3
If Application.And(Trim(Cells(irow, CritIdx(1))) =
Trim(CritVal(1)), _
Trim(Cells(irow, CritIdx(2))) =
Trim(CritVal(2)), _
Trim(Cells(irow, CritIdx(3))) =
Trim(CritVal(3))) _
Then matched = True

End Select
If matched Then
orow = orow + 1
Range("a" & irow).Resize(1, 14).Copy Sheets("Summary").Range("A" &
orow)
End If
Next irow

nextwsh:
Next wsh



endprog:
Worksheets("Summary").Activate
Application.StatusBar = "Processing Completed"
Application.ScreenUpdating = True


End Sub




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
Sum of specific cell from several worksheets richzip Excel Discussion (Misc queries) 2 December 11th 09 10:19 PM
print specific worksheets in specific order. jarvo Excel Programming 1 April 11th 06 11:05 AM
How to print specific worksheets Susan Hayes Excel Programming 2 January 8th 06 11:36 PM
looping through specific worksheets simora Excel Programming 0 May 29th 05 12:36 AM
VBA - How to Write to Specific Worksheets Mike Thomas Excel Programming 1 February 25th 04 02:04 PM


All times are GMT +1. The time now is 12:33 PM.

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

About Us

"It's about Microsoft Excel"

 

Contact Us ExcelBanter forum home Privacy Statement