Complex Looping Function

Visual Basic Programming

Dev Shed Forums Sponsor:

Be the architects of evolution and help create the mobile internet future. It’s your move---enter to win here!

August 6th, 2003, 03:21 AM

james_skeggs

Registered User

Join Date: Jul 2003

Posts: 11

Time spent in forums: < 1 sec
Reputation Power: 0

Complex Looping Function

Hi,

I am looking to run the following macro, but i want to be able to say for Sheets("P0150*") where * is UM, UP, UI etc, and then the whole lot to run without me having to paste the same thing over and over again...

Sheets("P0150UM").Select
Sheets.Add
Sheets("Sheet1").Name = "UM Sold"
Sheets("P0150UM").Name = "UM Bought"
Sheets("UM Bought").Select

Range("A1").Select
Call CountRow1

Dim range1 As String
range1 = "A" & a + 2
Range(range1).Select
Call CountRow2

Dim Range2 As String
Range2 = "V" & a + 2 + b
Range(range1, Range2).Select
Selection.Cut
Sheets("UM Sold").Select
Range("A1").Select
ActiveSheet.Paste

Please can someone give me some help writing a loop to do this function?

Many thanks in advance
James

August 6th, 2003, 07:55 AM

Onslaught

/(bb|[^b]{2})/

Join Date: Nov 2001

Location: Somewhere in the great unknown

Posts: 4,834

Time spent in forums: 1 Day 23 h 30 m 30 sec
Reputation Power: 88

Code:

Dim sSheetName(number of sheets you have) As String
Dim lCntr As Long
Dim lMaxElements as Long

sSheetName(0) = "UM"
sSheetName(1) = "UP"
sSheetName(2) = "UI"
'continue for all sheets

lMaxElements = number of sheets you have starting from 0
For lCntr = 0 to lMaxElements
    Sheets("P0150" & sSheetName(lCntr)).Select
    Sheets.Add
    Sheets("Sheet1").Name = sSheetName & " Sold"
    Sheets("P0150" & sSheetName(lCntr)).Name = sSheetName(lCntr) & " Bought"
    Sheets(sSheetName(lCntr) & "Bought").Select

    Range("A1").Select
    Call CountRow1

    Dim range1 As String
    range1 = "A" & a + 2
    Range(range1).Select
    Call CountRow2

    Dim Range2 As String
    Range2 = "V" & a + 2 + b
    Range(range1, Range2).Select
    Selection.Cut
    Sheets(sSheetName(lCntr) & " Sold").Select
    Range("A1").Select
    ActiveSheet.Paste 
Next lCntr

Something like this would probably work.

__________________
Joe

How To Ask FAQ | How To Be A Hacker | Hacker Mindset | A FreeBSD Diary

August 6th, 2003, 11:42 AM

james_skeggs

Registered User

Join Date: Jul 2003

Posts: 11

Time spent in forums: < 1 sec
Reputation Power: 0

Thanks!

Viewing: Dev Shed Forums > Programming Languages - More > Visual Basic Programming > Complex Looping Function

« Previous Thread | Next Thread »

Thread Tools	Search this Thread
Email this Page	Search this Thread: Advanced Search
Display Modes	Rate This Thread
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode	Rate This Thread:

Posting Rules
You may not post new threads You may not post replies You may not post attachments You may not edit your posts vB code is On Smilies are On [IMG] code is On HTML code is Off

View Your Warnings | New Posts | Latest News | Latest Threads | Shoutbox

Forum Jump