vlookup by code

S

smiler44

Registered User.
Local time
Today, 23:36
Joined
Jul 15, 2008
Messages
671
I am trying to add macro to my personal xlb workbook to run a vlookup between 2 workbooks. the macro looks at workbook 1 the for the information to search for, goes to workbook two to find it and then put the answer into workbook 1. in fact it puts a formula into workbook 1 that does the work.

I have problem with a line of code where I have the name of the window it needs as a variable, it seems to be looking for the variable and now the window.
this is the line of code, adst is a variable and has been declared as a string:

vlu = "= VLOOKUP(" & ActiveCell.Address & ",windows(adst), Escalations!E2:F200,7,FALSE)"


how do I get the window name that is a variable, adst, into the above line of code as windows(adst) does not seem to be right?

Thank you
smiler44
 
have you tried
vlu = "= VLOOKUP(" & ActiveCell.Address & ",windows(" & adst & "), Escalations!E2:F200,7,FALSE)"
 
James Deckert said:
have you tried
vlu = "= VLOOKUP(" & ActiveCell.Address & ",windows(" & adst & "), Escalations!E2:F200,7,FALSE)"
Click to expand...

jsmes thank you. I have made a change and now have this line of code
vlu = "= VLOOKUP(" & ActiveCell.Address & ",windows(" & bdst & "), Level 2 Escalations!E2:F200,7,FALSE)" but am getting a runtime error 1004 application-defined or object defined error when I use this line of code that follows ActiveCell.Value = vlu



from previous code vlu turns out to be = VLOOKUP($E$10,windows(Level 2 Escalations 27-08-2015.xls), Level 2 Escalations!E2:F200,7,FALSE)


so is there something wrong with this
= VLOOKUP($E$10,windows(Level 2 Escalations 27-08-2015.xls), Level 2 Escalations!E2:F200,7,FALSE)


thank you smiler44
 
vlu = "= VLOOKUP(" & ActiveCell.Address & ",[" & adst & "]Escalations!R5C2:R6C200, 7, FALSE)"


R5="E"
R6="F"
 
vlu = "=VlookUp(Range(ActiveCell.Address),Range([" & adst & "]Escalations!E2:F200, 7, 0)"

ActiveCell.Formula = vlu
 
arnelgp said:
vlu = "=VlookUp(Range(ActiveCell.Address),Range([" & adst & "]Escalations!E2:F200, 7, 0)"

ActiveCell.Formula = vlu
Click to expand...

thank you, I think I now understand and yes the code does seem to work and not give me an error message.
I will test again next week and post back how I get on.

thanks again
smiler44
 
This is my final code. Some is duplicated which I know but have decided to leave it as it is

Code: 
 [FONT=Calibri][SIZE=3] [/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]Sub levelescalations()[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    Dim subj As String[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    Dim subjj As String[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    Dim re As Object[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    Dim match As Variant[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    Dim td As String ' todays date[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    Dim yd As String '"yesterdays date"[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    Dim wkb As Workbook[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    Dim wb1 As String  ' this is the name of the work book returtned by the jc.[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    Dim wb2 As String[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    Dim adst As String 'todays workbook[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    Dim bdst As String[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    Dim lRow As Long[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    Dim ExcelLastCell As Object, lLastDataRow As Long, l As Long[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    Dim r1 As Long[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    Dim vlu As String[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    Dim ws1 As String 'which sheet used to make sure comparing the same level escalations[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    Dim ws2 As String 'which sheet used to make sure comparing the same level escalations[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    Dim tftd As String ' test for todays sheet[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    [/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    Application.Visible = Workbooks.Count >= 2[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    [/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    For Each wkb In Workbooks[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    If Windows(wkb.Name).Visible Then[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3] [/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    If wb1 = "" Then[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    wb1 = wkb.Name[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    ws1 = wb1[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    Else[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    wb2 = wkb.Name[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    ws2 = wb2[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    End If[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    End If[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3] [/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    Next[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    [/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    '''''''''''''''''''''''''''''''''''''''[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    ws1 = Left(ws1, 7) ' gets the 7 most left charector[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3] [/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    ws2 = Left(ws2, 7) ' gets the 7 most left charectors[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3] [/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    If ws1 <> ws2 Then[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    MsgBox ("You are trying to compare 2 different level escalation sheets, exiting")[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    Exit Sub[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    End If[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]'''''''''''''''''''''''''''''''''''''''''''''''''''''''[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]   ' Call findtodaysescalation[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]   GoTo findtodaysescalation[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]      [/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]findtodaysescalation:[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]   [/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    subj = wb1[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]   [/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    td = Now()[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    td = Format(td, "dd-mm-yyyy")[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    [/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    pos = InStrRev(subj, td)[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3] [/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    If pos > "0" Then[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    pos = InStrRev(subj, td)[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    adst = subj[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    bdst = wb2[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    Else[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    subjj = wb2[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    pos = InStrRev(subj, td)[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    bdst = subj[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    adst = wb2 'todays sheet?[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    End If[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    [/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    GoTo getnumberofusedrows[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    [/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]getnumberofusedrows:[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]' get number of used rows on todays sheet[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    Windows(adst).Activate 'adst = todays[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    If ws1 = "Level 2" Then[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    Sheets("Level 2 Escalations").Select[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    Else[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    If ws1 = "Level 3" Then[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    Sheets("Level 3 Escalations").Select[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    Else[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    Sheets("Level 4 Escalations").Select[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    End If[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    End If[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    [/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]ActiveSheet.Range("A2").Select[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3] [/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]Set ExcelLastCell = ActiveSheet.Cells.SpecialCells(xlLastCell)[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    lLastDataRow = ExcelLastCell.Row[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    lRow = ExcelLastCell.Row[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]     Do While Application.CountA(ActiveSheet.Rows(lRow)) = 0 And lRow <> 1[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]      lRow = lRow - 2[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    Loop[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3] [/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    lLastDataRow = lRow[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    GoTo vlookupbycode[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3] [/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]vlookupbycode:[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    If ws1 = "Level 2" Then[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    Sheets("Level 2 Escalations").Select[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    Else[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    If ws1 = "Level 3" Then[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    Sheets("Level 3 Escalations").Select[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    Else[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    Sheets("Level 4 Escalations").Select[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    End If[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    End If[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3] [/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    Range("E2").Select 'the data to find in vlookup. todays sheet[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]     For i = 1 To lRow  'in column a will check this number of rows[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]     [/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]     If ws1 = "Level 2" Then[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]     vlu = "= VLOOKUP(" & ActiveCell.Address & ",'[" & bdst & "]Level 2 Escalations'!E2:K200,7,FALSE)"[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]     Else[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]      If ws1 = "Level 3" Then[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]     vlu = "= VLOOKUP(" & ActiveCell.Address & ",'[" & bdst & "]Level 3 Escalations'!E2:K200,7,FALSE)"[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]      Else[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]     'level 4[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]     vlu = "= VLOOKUP(" & ActiveCell.Address & ",'[" & bdst & "]Level 4 Escalations'!E2:k200,7,FALSE)"[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    End If[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    End If[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]        ActiveCell.Offset(0, 6).Select ' down, across[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]        ActiveCell.Value = vlu 'enters the Vlookup formula[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]        ActiveCell.Offset(1, -6).Activate ' down across[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]   Next[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]   [/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]   If ws1 = "Level 2" Or ws1 = "Level 3" Then[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]   Columns("K:K").Select ' level 2 or 3[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]   Else[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]   Columns("K:K").Select ' level 4[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]   End If[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]   [/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    With Selection[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]        .HorizontalAlignment = xlGeneral[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]        .VerticalAlignment = xlBottom[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]        .WrapText = True[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]        .Orientation = 0[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]        .AddIndent = False[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]        .IndentLevel = 0[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]        .ShrinkToFit = False[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]        .ReadingOrder = xlContext[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]        .MergeCells = False[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    End With[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    Selection.ColumnWidth = 39.57[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]     [/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    'converts formula to text[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    If ws1 = "Level 2" Then[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    Columns("K:K").Select[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    Selection.Copy[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    Range("K1").Select[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]        :=False, Transpose:=False[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]     Range("K1").Select[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    Range("K1").Value = "Update"[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]     With Selection.Interior 'colour[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]        .Pattern = xlSolid[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]        .PatternColorIndex = xlAutomatic[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]        .Color = 8421376[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]        .TintAndShade = 0[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]        .PatternTintAndShade = 0[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    End With[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    With Selection 'alignment[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]        .HorizontalAlignment = xlCenter[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]        .VerticalAlignment = xlCenter[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]        .WrapText = True[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]        .Orientation = 0[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]        .AddIndent = False[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]        .IndentLevel = 0[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]        .ShrinkToFit = False[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]        .ReadingOrder = xlContext[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]        .MergeCells = False[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    End With[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]        [/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    Else[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    If ws1 = "Level 3" Then[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]   [/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    Columns("K:K").Select[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    Selection.Copy[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    Range("K1").Select[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]        :=False, Transpose:=False[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]     Range("K1").Select[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    Range("K1").Value = "Update"[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]     With Selection.Interior 'colour[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]        .Pattern = xlSolid[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]        .PatternColorIndex = xlAutomatic[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]        .Color = 8421376[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]        .TintAndShade = 0[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]        .PatternTintAndShade = 0[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    End With[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    With Selection 'alignment[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]        .HorizontalAlignment = xlCenter[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]        .VerticalAlignment = xlCenter[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]        .WrapText = True[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]        .Orientation = 0[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]       .AddIndent = False[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]        .IndentLevel = 0[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]        .ShrinkToFit = False[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]        .ReadingOrder = xlContext[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]        .MergeCells = False[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    End With[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    Else[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    If ws1 = "Level 4" Then[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    Columns("K:K").Select[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    Selection.Copy[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    Range("K1").Select[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]        :=False, Transpose:=False[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]     Range("K1").Select[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    Range("K1").Value = "Update"[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]     With Selection.Interior 'colour[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]        .Pattern = xlSolid[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]        .PatternColorIndex = xlAutomatic[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]        .Color = 8421376[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]        .TintAndShade = 0[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]        .PatternTintAndShade = 0[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    End With[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    With Selection 'alignment[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]        .HorizontalAlignment = xlCenter[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]        .VerticalAlignment = xlCenter[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]        .WrapText = True[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]        .Orientation = 0[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]        .AddIndent = False[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]        .IndentLevel = 0[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]        .ShrinkToFit = False[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]        .ReadingOrder = xlContext[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]        .MergeCells = False[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    End With[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3] [/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    End If[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    End If[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]    End If[/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]        [/SIZE][/FONT]
 [FONT=Calibri][SIZE=3]     MsgBox ("Run completed")[/SIZE][/FONT]


smiler44
 
You must log in or register to reply here.

Similar threads

S
Solved Excel 2024 F8 issue in VBA Now Resolved
Replies
14
Views
461
Isaac
Isaac
E
Solved SUMIFS Function Problem
Replies
19
Views
420
Emma35
E
Gasman
Solved Open Excel workbook, but have WorkBook_Open code run
Replies
19
Views
468
Gasman
Gasman
R
Closing all MDI child forms when Ctrl-F4 not available
Replies
6
Views
417
Pat Hartman
P
D
Runtime error 1004 PasteSpecial method of Range class failed.
Replies
2
Views
1,941
Isaac
Isaac

Users who are viewing this thread

Total: 1 (members: 0, guests: 1)
Back
Top Bottom