Macros: Switching between two excel sheets with out setnames.

J

Joeslost

New Member
Joined
Jun 1, 2016
Messages
20
Hello All. My name is Joe. I consider myself an intermediate user of excel. I do NOT speack any Visual Basic.
I am trying to create, what I feel Should be a simple Macro but I am stumbling over one detail.
I need to copy information from one Workbook to another. But I need the macro to be applicable to any two workBooks laid out in the same way. ( I have a program that exports data in the same format every time, and I have multiple different templates laid out the same to copy the data into).
Below is the macro excel generated for me, and works very well, but will only work for the documents hard coded into it.

Thanks In Advance!!
Joe
**I apologize if this has been addressed before, I've found a few threads around the internet on similar topics, but none of the solutions seemed to help me**

Code: 
Sub Transfer()'
' Transfer Macro
'
' Keyboard Shortcut: Ctrl+t
'
    Windows("orchard market fruitport.xls").Activate
    Selection.Copy
    Windows("LINEN SERVICE AGREEMENT Template.xls").Activate
    Range("G8").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("orchard market fruitport.xls").Activate
    Range("K2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("LINEN SERVICE AGREEMENT Template.xls").Activate
    Range("J3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("D9").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("orchard market fruitport.xls").Activate
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 13
    Range("Q2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("LINEN SERVICE AGREEMENT Template.xls").Activate
    Range("G10").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("orchard market fruitport.xls").Activate
    Range("R2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("LINEN SERVICE AGREEMENT Template.xls").Activate
    Range("G11").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("orchard market fruitport.xls").Activate
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 13
    ActiveWindow.ScrollColumn = 14
    ActiveWindow.ScrollColumn = 15
    ActiveWindow.ScrollColumn = 16
    ActiveWindow.ScrollColumn = 17
    ActiveWindow.ScrollColumn = 18
    Range("T2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("LINEN SERVICE AGREEMENT Template.xls").Activate
    Range("J10").Select
    ActiveSheet.Paste
    Windows("orchard market fruitport.xls").Activate
    Range("S2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("LINEN SERVICE AGREEMENT Template.xls").Activate
    Range("J11").Select
    ActiveSheet.Paste
    Windows("orchard market fruitport.xls").Activate
    ActiveWindow.ScrollColumn = 17
    ActiveWindow.ScrollColumn = 16
    ActiveWindow.ScrollColumn = 15
    ActiveWindow.ScrollColumn = 14
    ActiveWindow.ScrollColumn = 13
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 9
    Range("K2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("LINEN SERVICE AGREEMENT Template.xls").Activate
    Range("B13").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("orchard market fruitport.xls").Activate
    Range("L2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("LINEN SERVICE AGREEMENT Template.xls").Activate
    Range("B14").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("orchard market fruitport.xls").Activate
    Range("M2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("LINEN SERVICE AGREEMENT Template.xls").Activate
    Range("B15").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("orchard market fruitport.xls").Activate
    Range("N2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("LINEN SERVICE AGREEMENT Template.xls").Activate
    Range("B16").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("orchard market fruitport.xls").Activate
    Range("O2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("LINEN SERVICE AGREEMENT Template.xls").Activate
    Range("D16").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("orchard market fruitport.xls").Activate
    Range("P2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("LINEN SERVICE AGREEMENT Template.xls").Activate
    Range("G16").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("orchard market fruitport.xls").Activate
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 13
    ActiveWindow.ScrollColumn = 14
    ActiveWindow.ScrollColumn = 15
    ActiveWindow.ScrollColumn = 16
    ActiveWindow.ScrollColumn = 17
    ActiveWindow.ScrollColumn = 18
    ActiveWindow.ScrollColumn = 19
    ActiveWindow.ScrollColumn = 20
    Range("U2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("LINEN SERVICE AGREEMENT Template.xls").Activate
    Range("J13").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("orchard market fruitport.xls").Activate
    Range("V2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("LINEN SERVICE AGREEMENT Template.xls").Activate
    Range("J14").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("orchard market fruitport.xls").Activate
    Range("W2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("LINEN SERVICE AGREEMENT Template.xls").Activate
    Range("J15").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("orchard market fruitport.xls").Activate
    Range("X2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("LINEN SERVICE AGREEMENT Template.xls").Activate
    Range("J16").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("orchard market fruitport.xls").Activate
    Range("Y2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("LINEN SERVICE AGREEMENT Template.xls").Activate
    Range("J17").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("orchard market fruitport.xls").Activate
    Range("Z2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("LINEN SERVICE AGREEMENT Template.xls").Activate
    Range("K17").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("orchard market fruitport.xls").Activate
    Range("AA2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("LINEN SERVICE AGREEMENT Template.xls").Activate
    Range("M17").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("orchard market fruitport.xls").Activate
    Columns("AB:AB").ColumnWidth = 7
    Range("AC2").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "="
    Range("AC2").Select
    ActiveCell.FormulaR1C1 = "= IF(1,""COD"",""CHARGE"")"
    Selection.Copy
    Windows("LINEN SERVICE AGREEMENT Template.xls").Activate
    Range("J8").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("orchard market fruitport.xls").Activate
    ActiveWindow.ScrollColumn = 22
    ActiveWindow.ScrollColumn = 21
    ActiveWindow.ScrollColumn = 20
    ActiveWindow.ScrollColumn = 19
    ActiveWindow.ScrollColumn = 18
    ActiveWindow.ScrollColumn = 17
    ActiveWindow.ScrollColumn = 16
    ActiveWindow.ScrollColumn = 15
    ActiveWindow.ScrollColumn = 14
    ActiveWindow.ScrollColumn = 13
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    Range("B2:B17").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("LINEN SERVICE AGREEMENT Template.xls").Activate
    ActiveWindow.SmallScroll Down:=12
    Range("B22:B44").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("orchard market fruitport.xls").Activate
    Range("F2:F17").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("LINEN SERVICE AGREEMENT Template.xls").Activate
    Range("D22:D37").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("orchard market fruitport.xls").Activate
    Range("G2:G17").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("LINEN SERVICE AGREEMENT Template.xls").Activate
    Range("G22:G38").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("orchard market fruitport.xls").Activate
    Range("H2:H17").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("LINEN SERVICE AGREEMENT Template.xls").Activate
    Range("M22:M37").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("orchard market fruitport.xls").Activate
    Range("I2:I17").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("LINEN SERVICE AGREEMENT Template.xls").Activate
    Range("K22:K37").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("orchard market fruitport.xls").Activate
    Range("D2:D17").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("LINEN SERVICE AGREEMENT Template.xls").Activate
    Range("H22:H37").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("orchard market fruitport.xls").Activate
    Range("E2:E17").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("LINEN SERVICE AGREEMENT Template.xls").Activate
    Range("J22:J37").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.SmallScroll Down:=-24
    Windows("orchard market fruitport.xls").Activate
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 13
    ActiveWindow.ScrollColumn = 14
    ActiveWindow.ScrollColumn = 15
    ActiveWindow.ScrollColumn = 16
    ActiveWindow.ScrollColumn = 17
    ActiveWindow.ScrollColumn = 18
    ActiveWindow.ScrollColumn = 19
    ActiveWindow.ScrollColumn = 20
    ActiveWindow.ScrollColumn = 21
    ActiveWindow.ScrollColumn = 22
    ActiveWindow.ScrollColumn = 23
    Windows("LINEN SERVICE AGREEMENT Template.xls").Activate
End Sub
 

Excel Facts

Can Excel fill bagel flavors?
You can teach Excel a new custom list. Type the list in cells, File, Options, Advanced, Edit Custom Lists, Import, OK
Sort by date Sort by votes
Hello,

Welcome to the forum. Looking at that code, I can only presume it was created using the Macro Recorder. Whilst, this is acceptable... it produces highly inefficient code which is difficult to read and update.

I would advise you instead, post your requirements I.e. Cells A1, T1, A5:G7 from "Orchard market fruitport.xlsx" needs to be copied to B3, Y2, A6:G8 (repectively) on the "Linen Service Agreement.xls"

From there we can get it operational on any 2 workbooks open (I assume Linen Service Agreement Template.xls will always be one of the workbooks open?)

Regards
Caleeco
 
Upvote 0
Caleeco said:
Hello,

Welcome to the forum. Looking at that code, I can only presume it was created using the Macro Recorder. Whilst, this is acceptable... it produces highly inefficient code which is difficult to read and update.

I would advise you instead, post your requirements I.e. Cells A1, T1, A5:G7 from "Orchard market fruitport.xlsx" needs to be copied to B3, Y2, A6:G8 (repectively) on the "Linen Service Agreement.xls"
Click to expand...

Hello Caleeco!
I did indeed create that with the Macro Recorder as I do not Speak Visual Basic. I quickly typed up all the Required actions the Macro Would need to Perform.
Code: 
The Cell Listed In the Column Work Book 1 Will need to be copied and pasted in to the Cell listed In Work Book 2.
 Note That They Need to be pasted in a way that will keep the DESTINATION formatting.
 From A GUI perspective I found Paste Values to do the trick.
[TABLE]
<tbody>[TR]
[TD] Work Book 1[/TD]
[TD]Work Book 2[/TD]
[/TR]
[TR]
[TD]A2[/TD]
[TD]G8[/TD]
[/TR]
[TR]
[TD]K2[/TD]
[TD]D9 + J3+ B13[/TD]
[/TR]
[TR]
[TD]Create AC (= IF(AB2="1","COD","CHARGE"))[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]AC[/TD]
[TD]J8[/TD]
[/TR]
[TR]
[TD]Q2[/TD]
[TD]G10[/TD]
[/TR]
[TR]
[TD]R2[/TD]
[TD]G11[/TD]
[/TR]
[TR]
[TD]T2[/TD]
[TD]J10[/TD]
[/TR]
[TR]
[TD]S2[/TD]
[TD]J11[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]L2[/TD]
[TD]B14[/TD]
[/TR]
[TR]
[TD]M2[/TD]
[TD]B15[/TD]
[/TR]
[TR]
[TD]N2[/TD]
[TD]B16[/TD]
[/TR]
[TR]
[TD]O2[/TD]
[TD]D16[/TD]
[/TR]
[TR]
[TD]P2[/TD]
[TD]G16[/TD]
[/TR]
[TR]
[TD]U2[/TD]
[TD]J13[/TD]
[/TR]
[TR]
[TD]V2[/TD]
[TD]J14[/TD]
[/TR]
[TR]
[TD]W2[/TD]
[TD]J15[/TD]
[/TR]
[TR]
[TD]X2[/TD]
[TD]J16[/TD]
[/TR]
[TR]
[TD]Y2[/TD]
[TD]J17[/TD]
[/TR]
[TR]
[TD]Z2[/TD]
[TD]K17[/TD]
[/TR]
[TR]
[TD]AA2[/TD]
[TD]M17[/TD]
[/TR]
[TR]
[TD]B2:B62[/TD]
[TD]B22:B82[/TD]
[/TR]
[TR]
[TD]F2:F62[/TD]
[TD]D22:D82[/TD]
[/TR]
[TR]
[TD]G2:G62[/TD]
[TD]G22:G82[/TD]
[/TR]
[TR]
[TD]D2:D62[/TD]
[TD]H22:H82[/TD]
[/TR]
[TR]
[TD]E2:E62[/TD]
[TD]J22:J82[/TD]
[/TR]
[TR]
[TD]I2:I62[/TD]
[TD]K22:K82[/TD]
[/TR]
[TR]
[TD]H2:H62[/TD]
[TD]M22:M82[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]

From there we can get it operational on any 2 workbooks open (I assume Linen Service Agreement Template.xls will always be one of the workbooks open?)
Click to expand...
No actually. I have three different Contract Templates, All with the same Cell Structure, but with different information. All the Information Source Documents will also not be the same doc. But again will Have the same Cell Structure.
So this macro will work all the same no matter which source document is used, or which destination template.

Thanks Again!
Joe.
 
Upvote 0
Hello Caleeco,
No worries about any delay, Im just glad to have some one willing to help.
I've been thinking on this a lot and realized that I don't really need the destination workbook to be variable.
My original plan was to have three separate workbooks for each contract type.
But I realize that these three are a constant and there was no real need to have them in separate workbooks, instead I created a sheet for each of them. Making one destination workbook.
The only draw back to this is the need to create three separate macros only each pointing to one of the three sheets.

From what I gather that should make this easier to solve. We now have one constant destination workbook, and a variable origin.
So if each macro is in the destination workbook I can do something like:

Code: 
Sub Transfer data
Dim Wb1 As Workbook
Dim Wb2 As Workbook
   Set Wb1 = Active.Workbook.sheet1  
   Set Wb2 = ?????????

Workbooks(WB2).Range("A2").Copy
Workbooks(WB1).Select ("G8")
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
End Sub


I hope this all makes sense!

Thanks
Joe
 
Upvote 0
Hi Joe,

I had a pay around with the original problem (2 seperate workbooks). I came up with the code below which basically lets you define which of the 2 is destination book.. it would then proceed to transfer the data needed. Basic code so far below:
Code: 
Sub WorkbookPrompt()

Dim wb1 As Workbook, wb2 As Workbook
Dim answer As Integer

If Workbooks.Count > 2 Then
    MsgBox "You may only have 2 Workbooks Open when running this Macro. Exiting...", vbCritical, "Warning"
    Exit Sub
End If

answer = MsgBox("Is the following Workbook your Template File?  " & Workbooks(1).Name, vbYesNo + vbQuestion, "Primary Workbook")

If answer = vbYes Then
    Set wb1 = Workbooks(1)
    Set wb2 = Workbooks(2)
Else
    MsgBox "Okay, using " & Workbooks(2).Name & " as the Template File.", vbOKOnly + vbInformation, "Primary Workbook"
    Set wb1 = Workbooks(2)
    Set wb2 = Workbooks(1)
End If

wb2.[G8].Value = wb1.[A2].Value
Union(wb2.[D9].Value, wb2.[J3].Value, wb2.[B13].Value) = wb1.[K2].Value

'.... and so on

End Sub

If you want 1 destination workbook, and 3 sheets that's fine. I can write something slightly different. Do you have a Name for each of the 3 types of contracts?

Thanks
Caleeco
 
Upvote 0
Caleeco,

Cool!
Looks like there is an issue though I get the following Error:

Run-time error'438':
Object dosen't support this object or method.

Debugger brings me to Line 22 of your code.

Thanks,
Joe
 
Upvote 0
Caleeco said:
If you want 1 destination workbook, and 3 sheets that's fine. I can write something slightly different. Do you have a Name for each of the 3 types of contracts?
Click to expand...
Caleeco,
Looks like what you already came up with works perfectly up to that error! What you came up with will actually be a bit easier for my end user to understand (based on our discussion of his needs) So for now I'll scrap the multiple sheet idea.

Thanks For you genius Insights!
 
Upvote 0
Hi Joe,

Sorry I was testing some code out (using the EVALUATE feature in VBA).. I assume its the UNION line that fails. If you delete these two lines:
Code: 
wb2.[G8].Value = wb1.[A2].Value
Union(wb2.[D9].Value, wb2.[J3].Value, wb2.[B13].Value) = wb1.[K2].Value

You can then go on to 'copy' across the values you need using the following syntax
Code: 
wb2.Range("G8").value = wb1.Range("A2").Value

Ok, that's fine we can stick with the original idea instead of having 3 sheets. I will try my best to finish the code I started this evening!

Thanks
Caleeco
 
Upvote 0
Caleeco,
I just finished attempting that same thing. That syntax also throws the same error.
Here are a couple other things I tried.
Code: 
wb2.Range(G8).Copy _
 wb1.Range(A2)
Code: 
wb2.Range("G8").Copy
 wb1.Range("A2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

It looks like the error may be due to using a variable to access the second workbook.
https://support.microsoft.com/en-us/kb/175616

Thanks
Joe
 
Last edited:
Upvote 0
Caleeco said:
Ok, that's fine we can stick with the original idea instead of having 3 sheets. I will try my best to finish the code I started this evening!
Click to expand...
Caleeco,
I apreaciate greatly all the help and time you are putting into this already! there is no need for you to write this whole thing for me! Once we figure out how to get it working, I'm certain I can put together the rest!!

Thanks again for all your doing!
 
Last edited:
Upvote 0
You must log in or register to reply here.

Similar threads

G
  • Solved
How do I automatically insert into next blank row..
Replies
2
Views
569
ghrek
G
C
  • Question
Please help clean up my convoluted VBA code. It seems very redundant and repetitive.
Replies
1
Views
183
myall_blues
myall_blues
C
  • Solved
Please help me clean up my VBA script, I'm having trouble with redundancies
Replies
4
Views
217
CapRavOr
C
J
  • Question
VBA to select partial filename and go back and forth between two files to copy paste
Replies
1
Views
262
shknbk2
S
P
  • Solved
Counter in For Each loop
Replies
2
Views
286
Possum17
P

Forum statistics

Threads
1,217,404
Messages
6,136,416
Members
450,010
Latest member
Doritto305

Share this page

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top