Help with automating process?

im2bz2p345 · Feb 11, 2011

Hey all,

I've used & referenced this board a lot in the past for some great help! I have a situation now that I need few suggestions on if it's possible for me to "automate" any steps.

What I have is a sheet called "Pull from Tools" in "Workbook A" which I need to update with the latest numbers from a business unit file. Every month I have to look for the most recent version of "Workbook B - XXXXX<INSERT here number Unit Business>" (the X's represent a particular business unit number). In that specific business unit's workbook B, I need to go to the "MonthlyDetail" sheet and pull the numbers from the following cell references: AL147, AU147, BD147.

I would just link them and do a "Find" and "Replace" to update the file's location (since each month has it's own folder), but the problem is that sometimes there might two files with the same Business Unit and I would need to get the information from the more updated one (newer one).

Currently I'm having to manually open up each business unit's monthly file, go to the "MonthlyDetail" sheet, find the values in AL147, AU147, BD147.. then copy-paste them into my main workbook that I'm working from (Workbook A). Is there any way to automate this at all? Would using some type of macro help? Is it possible to set it up so that I can just browse & select a workbook every month and it will automatically spit out those three values for me?

Any help would be greatly appreciated,

~ Im2bz2p345

MrKowz · Feb 14, 2011

I was trying to find some snazzy way to accomplish this without having another error handler, but it seems to me that this would be a working option (I tested this with some dummy data):

Code:

Sub Extract53833()
 
'Looks up the row associated with the business unit
    Dim num     As Variant, _
        LR      As Long, _
        [COLOR=red][B]target  As Long
[/B][/COLOR]        
[COLOR=red][B]'Hardcode target value.  ~~~Do not wrap this value in quotes~~~
    target = 53833
[/B][/COLOR]    LR = Range("A" & Rows.Count).End(xlUp).row
'Find the row the business unit appears on.
    num = Application.Match("*" & target & "*", Range("A1:A" & LR), 0)
[B][COLOR=red]'If no match is found with wildcards, the next match will search for when the business unit is the only thing in the cell.[/COLOR][/B]
   [B][COLOR=red] If IsError(num) Then
        num = Application.Match(target, Range("A1:A" & LR), 0)
    End If
[/COLOR][/B]'If the unit is found, continue with code.  If the unit is not found, display a message box.
    If Not IsError(num) Then
            
        
    'Display Open Dialog to select  file
        SourceFile = Application.GetOpenFilename("Excel Files (*.xls*)," & _
        "*.xlsx*", 1, "Select File", "Open", False)
     
     
    'If the user cancels file selection then exit
        If TypeName(SourceFile) = "Boolean" Then
            Exit Sub
        End If
     
    'Sets source workbook as active, copies from source, then paste-specials the values back into master file
        Workbooks.Open SourceFile
        Set SourceFile = ActiveWorkbook
     
        Sheets("MonthlyDetail").Activate
     
        Range("AI142").Copy
        ThisWorkbook.Sheets("Pull From Tools").Range("C" & num).PasteSpecial Paste:=xlPasteValues
        Range("AL147").Copy
        ThisWorkbook.Sheets("Pull From Tools").Range("D" & num).PasteSpecial Paste:=xlPasteValues
        Range("AU147").Copy
        ThisWorkbook.Sheets("Pull From Tools").Range("E" & num).PasteSpecial Paste:=xlPasteValues
        Range("BD147").Copy
        ThisWorkbook.Sheets("Pull From Tools").Range("F" & num).PasteSpecial Paste:=xlPasteValues
     
    'Close open source file
        Windows.Application.CutCopyMode = False
        SourceFile.Close False
    End If
End Sub

im2bz2p345 · Feb 14, 2011

OMG, MrKowz, I LOVE YOU MAN!!

It finally works the way that I want it to! I have NO idea what you just did, lol, but it works beautifully.

Even if I have values like XXX53833XXX in column A, it doesn't find a wildcard match, but the "num" changes to the correct row when it goes through these lines:

Rich (BB code):

If IsError(num) Then
     num = Application.Match(target, Range("A1:A" & LR), 0)
 End If

You're a genius! haha. When you get a chance, can you explain how you figured this out? I still don't know how it's picking out the business unit when it passes through the aforementioned code.

Edit: Regardless of what Column A has (53833 or XXX53833XXX), it seems like it ALWAYS gets a "Error 2042" after going through this line: num = Application.Match("*" & target & "*", Range("A1:A" & LR), 0) but after it goes through the "IsError" line, it picks up the correct row! Amazing!

THANKS a bunch of your help and thank you for everyone else that contributed to this code!

~ Im2bz2p345

MrKowz · Feb 14, 2011

im2bz2p345 said:
OMG, MrKowz, I LOVE YOU MAN!!

It finally works the way that I want it to! I have NO idea what you just did, lol, but it works beautifully.

Even if I have values like XXX53833XXX in column A, it doesn't find a wildcard match, but the "num" changes to the correct row when it goes through these lines:

Rich (BB code):

Excel Workbook A 1 sfdaf53833 2 53833ddsa 3 dsad53833dsad ???

#VALUE!

#VALUE!

Excel 2003

Since the value returned by match is stored in Num (and Num is a variant), then after the wildcard match, you were getting an error being stored in Num. I used If IsError(Num) to check for this. Then, by testing for the singular value, we are able to effectively check both conditions.

This small table somewhat summarizes both operations:

Excel Workbook

A

B

C

1

With Wildcard

Without Wildcard

2

sfdaf53833

1

#N/A

3

53833ddsa

1

#N/A

4

dsad53833dsad

1

#N/A

5

53833

#N/A

1

Sheet1

Excel 2003

Cell Formulas
Range	Formula
B2	=MATCH("53833",A2,0)
C2	=MATCH(53833,A2,0)

Hope that helps.

im2bz2p345 · Feb 14, 2011

Wow, that was a really smart way to go about it, I had not even thought of doing that.

Thanks for taking the time to clarify/explain your code. The "match" example you showed really helped in putting things into perspective.

This code be extremely helpful for me going foward and I really thank you for all you've done on it.

~ Im2bz2p345

daverunt · Feb 14, 2011

I've done this so I'm posting it anyway.
I have used the InStr method to find a match in a string. A match returns a number > 0

Code:

Sub Extract()
    target = "53833"
 
Set rng = Range(Range("A1"), Range("A" & Rows.Count).End(xlUp))
    For Each Cell In rng
 
    If InStr(Cell.Value, target) > 0 Then
    StoreVal = 1
    num = Cell.Row
    If StoreVal = 1 Then GoTo Line1
    Else: StoreVal = 0
 
    End If
 
Next Cell
If StoreValue = 0 Then
MsgBox ("Not Found")
Exit Sub
Line1:
'Display Open Dialog to select  file
    SourceFile = Application.GetOpenFilename("Excel Files (*.xlsx*)," & _
    "*.xlsx*", 1, "Select File", "Open", False)
 
'If the user cancels file selection then exit
    If TypeName(SourceFile) = "Boolean" Then
        Exit Sub
    End If
 
    Workbooks.Open SourceFile
    Set SourceFile = ActiveWorkbook
 
    Sheets("MonthlyDetail").Activate
 
 
    Range("AL147").Copy Destination:=ThisWorkbook.Sheets("Pull From Tools").Range("C" & num)
    Range("AU147").Copy Destination:=ThisWorkbook.Sheets("Pull From Tools").Range("C" & num & "").Offset(0, 1)
    Range("BD147").Copy Destination:=ThisWorkbook.Sheets("Pull From Tools").Range("C" & num & "").Offset(0, 2)
 
'Close open source file
    Windows.Application.CutCopyMode = False
    SourceFile.Close False
 End If
 
End Sub

im2bz2p345 · Feb 16, 2011

Hey all,

Could someone help me customize this code slightly?

Rich (BB code):

Sub Extract16122DENVERPRO()
'Looks up the row associated with the business unit
    Dim num     As Variant, _
        LR      As Long, _
        target  As String
        lastmonth As String
 
'Hardcode target value.
    target = "DENVER PRO"
    LR = Range("B" & Rows.Count).End(xlUp).Row
'Find the row the business unit appears on.
    num = Application.Match(target, Range("B1:B" & LR), 0)
'If no match is found with wildcards, the next match will search for when the business unit is the only thing in the cell.
    If IsError(num) Then
        num = Application.Match(target, Range("B1:B" & LR), 0)
    End If
'If the unit is found, continue with code.  If the unit is not found, display a message box.
    If Not IsError(num) Then
 
 
    'Display Open Dialog to select  file
        SourceFile = Application.GetOpenFilename("Excel Files (*.xls*)," & _
        "*.xlsx*", 1, "Select File", "Open", False)
 
 
    'If the user cancels file selection then exit
        If TypeName(SourceFile) = "Boolean" Then
            Exit Sub
        End If
 
    'Sets source workbook as active, copies from source, then paste-specials the values back into master file
        Workbooks.Open SourceFile
        Set SourceFile = ActiveWorkbook
 
        lastmonth = InputBox("Please enter the last day of the previous month in this format MM/DD/YY")
 
        Sheets("AR ROLLFORWARD").Activate
       Cells(Application.Match("Balance at" lastmonth, Range("B:B"), 0), 2).Copy
       ThisWorkbook.Sheets("Pull From Tools").Range("C" & num).PasteSpecial Paste:=xlPasteValues
 
    Sheets("RESERVE ROLLFORWARD").Activate
       Cells(Application.Match("Balance at" lastmonth, Range("B:B"), 0), 2).Copy
       ThisWorkbook.Sheets("Pull From Tools").Range("D" & num).PasteSpecial Paste:=xlPasteValues
 
    'Close open source file
        Windows.Application.CutCopyMode = False
        SourceFile.Close False
    End If
End Sub

I modified MrKowz original code slightly (highlighted my changes in red), because this particular business unit's source file is different. I need for this macro to pull in a particular data cells data in row: "Balance at 01/31/11", column: B

The data cell's row will always be "Balance at" & the last day of the previous month.

I'm quite new to VB coding, but tried changing the code so it could make sense to others what I'm after. Currently I'm getting the compile error "Statement invalid outside Type block" at the lastmonth As String line.

Please help!!

~ Im2bz2p345

MrKowz · Feb 16, 2011

You're close. just needed the continuation ", _" line on the declaration above lastmonth As String. Also, in your application.match statement you adjusted, you needed to accomodate for the space between "as" and the date.

Code:

Sub Extract16122DENVERPRO()
'Looks up the row associated with the business unit
    Dim num     As Variant, _
        LR      As Long, _
        target  As String[B][COLOR=red], _
[/COLOR][/B]        [COLOR=black]lastmonth As String[/COLOR]
        
'Hardcode target value.
    target = "DENVER PRO"
    LR = Range("B" & Rows.Count).End(xlUp).Row
'Find the row the business unit appears on.
    num = Application.Match(target, Range("B1:B" & LR), 0)
'If no match is found with wildcards, the next match will search for when the business unit is the only thing in the cell.
    If IsError(num) Then
        num = Application.Match(target, Range("B1:B" & LR), 0)
    End If
'If the unit is found, continue with code.  If the unit is not found, display a message box.
    If Not IsError(num) Then
 
 
    'Display Open Dialog to select  file
        SourceFile = Application.GetOpenFilename("Excel Files (*.xls*)," & _
        "*.xlsx*", 1, "Select File", "Open", False)
 
 
    'If the user cancels file selection then exit
        If TypeName(SourceFile) = "Boolean" Then
            Exit Sub
        End If
 
    'Sets source workbook as active, copies from source, then paste-specials the values back into master file
        Workbooks.Open SourceFile
        Set SourceFile = ActiveWorkbook
 
        [COLOR=black]lastmonth = InputBox("Please enter the last day of the previous month in this format MM/DD/YY")[/COLOR]
     
        [COLOR=black]Sheets("AR ROLLFORWARD").Activate[/COLOR]
[COLOR=black]          Cells([B][COLOR=red]Application.Match("Balance at " lastmonth[/COLOR],[/B] Range("B:B"), 0), 2).Copy[/COLOR]
[COLOR=black]          ThisWorkbook.Sheets("Pull From Tools").Range("C" & num).PasteSpecial Paste:=xlPasteValues[/COLOR]
 
[COLOR=black]       Sheets("RESERVE ROLLFORWARD").Activate[/COLOR]
[COLOR=black]          Cells([COLOR=red][B]Application.Match("Balance at " lastmonth[/B][/COLOR], Range("B:B"), 0), 2).Copy[/COLOR]
[COLOR=black]          ThisWorkbook.Sheets("Pull From Tools").Range("D" & num).PasteSpecial Paste:=xlPasteValues[/COLOR]
             
    'Close open source file
        Windows.Application.CutCopyMode = False
        SourceFile.Close False
    End If
End Sub

daverunt · Feb 16, 2011

Hi, this is wrong

Code:

target  As String [COLOR=red][B]_[/B][/COLOR]
[COLOR=black]or[/COLOR]
[COLOR=red][B]Dim[/B] [/COLOR][COLOR=black]lastmonth As String[/COLOR]

Also there is a problem with; I think an & is missing here but it still has a problem that I haven't worked out.

Code:

Cells(Application.Match("Balance at" [COLOR=red][B]&[/B][/COLOR] lastmonth, Range("B:B"), 0), 2).Copy

I think MrKowz cracked it already.

im2bz2p345 · Feb 16, 2011

Thanks for your help guys,

I get a Run-time error '13' (Type mismatch) at the line: Cells(Application.Match("Balance at " & lastmonth, Range("B:B"), 0), 2).Copy

Also, can the prompt asking for the user for last month's date be made sometime before opening the source file? If so, where in the code should I put it?

Here is a sample of my source file if it helps debug the error:

AR ROLLFORWARD

<TABLE style="PADDING-RIGHT: 2pt; PADDING-LEFT: 2pt; FONT-SIZE: 10pt; FONT-FAMILY: Arial,Arial; BACKGROUND-COLOR: #ffffff" cellSpacing=0 cellPadding=0 border=1><COLGROUP><COL style="FONT-WEIGHT: bold; WIDTH: 30px"><COL style="WIDTH: 243px"><COL style="WIDTH: 110px"><COL style="WIDTH: 110px"></COLGROUP><TBODY><TR style="FONT-WEIGHT: bold; FONT-SIZE: 8pt; BACKGROUND-COLOR: #cacaca; TEXT-ALIGN: center"><TD></TD><TD>A</TD><TD>B</TD><TD>C</TD></TR><TR style="HEIGHT: 34px"><TD style="FONT-SIZE: 8pt; BACKGROUND-COLOR: #cacaca; TEXT-ALIGN: center">5</TD><TD></TD><TD style="FONT-WEIGHT: bold; TEXT-ALIGN: center">Per A/R Tools Calculations </TD><TD style="FONT-WEIGHT: bold; TEXT-ALIGN: center">Account 1100 </TD></TR><TR style="HEIGHT: 17px"><TD style="FONT-SIZE: 8pt; BACKGROUND-COLOR: #cacaca; TEXT-ALIGN: center">6</TD><TD style="FONT-WEIGHT: bold; BACKGROUND-COLOR: #ffff00">Beginning balance at 12/31/10</TD><TD style="FONT-WEIGHT: bold; BACKGROUND-COLOR: #ffff00; TEXT-ALIGN: right">383,296.87 </TD><TD style="FONT-WEIGHT: bold; BACKGROUND-COLOR: #ffff00; TEXT-ALIGN: right">383,296.87 </TD></TR><TR style="HEIGHT: 17px"><TD style="FONT-SIZE: 8pt; BACKGROUND-COLOR: #cacaca; TEXT-ALIGN: center">7</TD><TD></TD><TD></TD><TD></TD></TR><TR style="HEIGHT: 17px"><TD style="FONT-SIZE: 8pt; BACKGROUND-COLOR: #cacaca; TEXT-ALIGN: center">8</TD><TD>Charges</TD><TD style="TEXT-ALIGN: right">317,734.00 </TD><TD style="TEXT-ALIGN: center">xxxxxxxxx </TD></TR><TR style="HEIGHT: 17px"><TD style="FONT-SIZE: 8pt; BACKGROUND-COLOR: #cacaca; TEXT-ALIGN: center">9</TD><TD>Payments</TD><TD style="TEXT-ALIGN: right">(64,454.23)</TD><TD style="TEXT-ALIGN: center">xxxxxxxxx </TD></TR><TR style="HEIGHT: 17px"><TD style="FONT-SIZE: 8pt; BACKGROUND-COLOR: #cacaca; TEXT-ALIGN: center">10</TD><TD>Adjustments</TD><TD style="TEXT-ALIGN: right">(196,079.00)</TD><TD style="TEXT-ALIGN: center">xxxxxxxxx </TD></TR><TR style="HEIGHT: 17px"><TD style="FONT-SIZE: 8pt; BACKGROUND-COLOR: #cacaca; TEXT-ALIGN: center">11</TD><TD>Adjust credit balance</TD><TD style="TEXT-ALIGN: right">- </TD><TD></TD></TR><TR style="HEIGHT: 17px"><TD style="FONT-SIZE: 8pt; BACKGROUND-COLOR: #cacaca; TEXT-ALIGN: center">12</TD><TD style="BACKGROUND-COLOR: #ffff00"></TD><TD style="BACKGROUND-COLOR: #ffff00"></TD><TD></TD></TR><TR style="HEIGHT: 17px"><TD style="FONT-SIZE: 8pt; BACKGROUND-COLOR: #cacaca; TEXT-ALIGN: center">13</TD><TD style="FONT-WEIGHT: bold">Balance at 01/31/11</TD><TD style="FONT-WEIGHT: bold; TEXT-ALIGN: right">440,497.64 </TD><TD style="FONT-WEIGHT: bold; BACKGROUND-COLOR: #ffff00; TEXT-ALIGN: right">440,497.64 </TD></TR><TR style="HEIGHT: 17px"><TD style="FONT-SIZE: 8pt; BACKGROUND-COLOR: #cacaca; TEXT-ALIGN: center">14</TD><TD></TD><TD></TD><TD></TD></TR><TR style="HEIGHT: 17px"><TD style="FONT-SIZE: 8pt; BACKGROUND-COLOR: #cacaca; TEXT-ALIGN: center">15</TD><TD>Charges</TD><TD style="TEXT-ALIGN: right">- </TD><TD style="TEXT-ALIGN: center">xxxxxxxxx </TD></TR><TR style="HEIGHT: 17px"><TD style="FONT-SIZE: 8pt; BACKGROUND-COLOR: #cacaca; TEXT-ALIGN: center">16</TD><TD>Payments</TD><TD style="TEXT-ALIGN: right">- </TD><TD style="TEXT-ALIGN: center">xxxxxxxxx </TD></TR><TR style="HEIGHT: 17px"><TD style="FONT-SIZE: 8pt; BACKGROUND-COLOR: #cacaca; TEXT-ALIGN: center">17</TD><TD>Adjustments</TD><TD style="TEXT-ALIGN: right">- </TD><TD style="TEXT-ALIGN: center">xxxxxxxxx </TD></TR><TR style="HEIGHT: 17px"><TD style="FONT-SIZE: 8pt; BACKGROUND-COLOR: #cacaca; TEXT-ALIGN: center">18</TD><TD>Adjust credit balance</TD><TD style="TEXT-ALIGN: right">- </TD><TD></TD></TR><TR style="HEIGHT: 17px"><TD style="FONT-SIZE: 8pt; BACKGROUND-COLOR: #cacaca; TEXT-ALIGN: center">19</TD><TD style="BACKGROUND-COLOR: #ffff00"></TD><TD style="BACKGROUND-COLOR: #ffff00"></TD><TD></TD></TR><TR style="HEIGHT: 17px"><TD style="FONT-SIZE: 8pt; BACKGROUND-COLOR: #cacaca; TEXT-ALIGN: center">20</TD><TD style="FONT-WEIGHT: bold">Balance at 02/28/11</TD><TD style="FONT-WEIGHT: bold; TEXT-ALIGN: right">440,497.64 </TD><TD style="FONT-WEIGHT: bold; BACKGROUND-COLOR: #ffff00; TEXT-ALIGN: right">- </TD></TR><TR style="HEIGHT: 17px"><TD style="FONT-SIZE: 8pt; BACKGROUND-COLOR: #cacaca; TEXT-ALIGN: center">21</TD><TD></TD><TD></TD><TD></TD></TR><TR style="HEIGHT: 17px"><TD style="FONT-SIZE: 8pt; BACKGROUND-COLOR: #cacaca; TEXT-ALIGN: center">22</TD><TD>Charges</TD><TD style="TEXT-ALIGN: right">- </TD><TD style="TEXT-ALIGN: center">xxxxxxxxx </TD></TR><TR style="HEIGHT: 17px"><TD style="FONT-SIZE: 8pt; BACKGROUND-COLOR: #cacaca; TEXT-ALIGN: center">23</TD><TD>Payments</TD><TD style="TEXT-ALIGN: right">- </TD><TD style="TEXT-ALIGN: center">xxxxxxxxx </TD></TR><TR style="HEIGHT: 17px"><TD style="FONT-SIZE: 8pt; BACKGROUND-COLOR: #cacaca; TEXT-ALIGN: center">24</TD><TD>Adjustments</TD><TD style="TEXT-ALIGN: right">- </TD><TD style="TEXT-ALIGN: center">xxxxxxxxx </TD></TR><TR style="HEIGHT: 17px"><TD style="FONT-SIZE: 8pt; BACKGROUND-COLOR: #cacaca; TEXT-ALIGN: center">25</TD><TD>Adjust 1100</TD><TD style="TEXT-ALIGN: right">- </TD><TD></TD></TR><TR style="HEIGHT: 17px"><TD style="FONT-SIZE: 8pt; BACKGROUND-COLOR: #cacaca; TEXT-ALIGN: center">26</TD><TD>Adjust credit balance</TD><TD style="TEXT-ALIGN: right">- </TD><TD></TD></TR></TBODY></TABLE>
Thanks,

~ Im2bz2p345

MrKowz · Feb 16, 2011

daverunt said:
Also there is a problem with; I think an & is missing here but it still has a problem that I haven't worked out.

Code:

Cells(Application.Match("Balance at" [COLOR=red][B]&[/B][/COLOR] lastmonth, Range("B:B"), 0), 2).Copy

Good catch:

Code:

Sub Extract16122DENVERPRO()
'Looks up the row associated with the business unit
    Dim num     As Variant, _
        LR      As Long, _
        target  As String[B][COLOR=red], _
[/COLOR][/B]        [COLOR=black]lastmonth As String[/COLOR]
        
'Hardcode target value.
    target = "DENVER PRO"
    LR = Range("B" & Rows.Count).End(xlUp).Row
'Find the row the business unit appears on.
    num = Application.Match(target, Range("B1:B" & LR), 0)
'If no match is found with wildcards, the next match will search for when the business unit is the only thing in the cell.
    If IsError(num) Then
        num = Application.Match(target, Range("B1:B" & LR), 0)
    End If
'If the unit is found, continue with code.  If the unit is not found, display a message box.
    If Not IsError(num) Then
 
 
    'Display Open Dialog to select  file
        SourceFile = Application.GetOpenFilename("Excel Files (*.xls*)," & _
        "*.xlsx*", 1, "Select File", "Open", False)
 
 
    'If the user cancels file selection then exit
        If TypeName(SourceFile) = "Boolean" Then
            Exit Sub
        End If
 
    'Sets source workbook as active, copies from source, then paste-specials the values back into master file
        Workbooks.Open SourceFile
        Set SourceFile = ActiveWorkbook
 
        [COLOR=black]lastmonth = InputBox("Please enter the last day of the previous month in this format MM/DD/YY")[/COLOR]
     
        [COLOR=black]Sheets("AR ROLLFORWARD").Activate[/COLOR]
[COLOR=black]          Cells([B][COLOR=red]Application.Match("Balance at " & lastmonth[/COLOR],[/B] Range("B:B"), 0), 2).Copy[/COLOR]
[COLOR=black]          ThisWorkbook.Sheets("Pull From Tools").Range("C" & num).PasteSpecial Paste:=xlPasteValues[/COLOR]
 
[COLOR=black]       Sheets("RESERVE ROLLFORWARD").Activate[/COLOR]
[COLOR=black]          Cells([COLOR=red][B]Application.Match("Balance at " & lastmonth[/B][/COLOR], Range("B:B"), 0), 2).Copy[/COLOR]
[COLOR=black]          ThisWorkbook.Sheets("Pull From Tools").Range("D" & num).PasteSpecial Paste:=xlPasteValues[/COLOR]
             
    'Close open source file
        Windows.Application.CutCopyMode = False
        SourceFile.Close False
    End If
End Sub

Help with automating process?

im2bz2p345

Board Regular

MrKowz

Well-known Member

Excel Facts

im2bz2p345

Board Regular

MrKowz

Well-known Member

im2bz2p345

Board Regular

daverunt

Well-known Member

im2bz2p345

Board Regular

MrKowz

Well-known Member

daverunt

Well-known Member

im2bz2p345

Board Regular

MrKowz

Well-known Member

Similar threads

Forum statistics

Share this page

Help with automating process?

Board Regular

Well-known Member

Excel Facts

Board Regular

Well-known Member

Board Regular

Well-known Member

Board Regular

Well-known Member

Well-known Member

Board Regular

Well-known Member

Similar threads

Forum statistics

Share this page

We've detected that you are using an adblocker.

Which adblocker are you using?

Disable AdBlock

Disable AdBlock Plus

Disable uBlock Origin

Disable uBlock