D
driller
Hi to someone,
Please help !
the template sheet i have has an autofilter on a range...
on one of the filter along column A...
it is set-up this way
custom>
show rows where
"is greater than" [i put zero] 0.
i need to incorporate a *code* to auto-refresh or repeat the set-up again on
the same location on each populated sheets...
---here's the brief code below:
Sub USetUp()
Application.Calculation = xlManual
Dim ws1 As Worksheet, ws2 As Worksheet, ws3 As Worksheet, ws4 As Worksheet
Dim irow As Long, orow As Long
Dim Lastrow As Long
Dim wsname As String
Dim wsnum As String
Set ws1 = Worksheets("LIST")
Set ws2 = Worksheets("N0_TEMP")
With ws1
Lastrow = .Cells(Rows.Count, 1).End(xlUp).Row
For irow = 2 To Lastrow
wsname = .Cells(irow, 1)
wsnum = .Cells(irow, 2)
Sheets("N0_TEMP").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = wsname
ActiveSheet.Range("E5") = wsnum
Next irow
End With
Application.Calculation = xlAutomatic
End Sub
------
sure this is very simple for the group...
TIA
--
regards,
from someone
*****
- dive with Jonathan Seagull
Please help !
the template sheet i have has an autofilter on a range...
on one of the filter along column A...
it is set-up this way
custom>
show rows where
"is greater than" [i put zero] 0.
i need to incorporate a *code* to auto-refresh or repeat the set-up again on
the same location on each populated sheets...
show rows where
"is greater than" [i put zero] 0.
---here's the brief code below:
Sub USetUp()
Application.Calculation = xlManual
Dim ws1 As Worksheet, ws2 As Worksheet, ws3 As Worksheet, ws4 As Worksheet
Dim irow As Long, orow As Long
Dim Lastrow As Long
Dim wsname As String
Dim wsnum As String
Set ws1 = Worksheets("LIST")
Set ws2 = Worksheets("N0_TEMP")
With ws1
Lastrow = .Cells(Rows.Count, 1).End(xlUp).Row
For irow = 2 To Lastrow
wsname = .Cells(irow, 1)
wsnum = .Cells(irow, 2)
Sheets("N0_TEMP").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = wsname
ActiveSheet.Range("E5") = wsnum
Next irow
End With
Application.Calculation = xlAutomatic
End Sub
------
sure this is very simple for the group...
TIA
--
regards,
from someone
*****
- dive with Jonathan Seagull