|
Excel
Video | Similar Helpful Excel Resources
Excel! Excel Is Fun! Excel Is Power! See a long formula that uses the IF, AND, MOD, ROW, RANDBETWEEN, and COLUMN functions. See how to add a Conditional Formatting with a TRUE/FALSE formula thart uses the MOD, ROW and COLUMN functions.
Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel, Excel!
Excel Formula, Excel Function, Excel Formula, Excel Function, Excel Formula, Excel Function, Excel Formula, Excel Function, Excel Formula, Excel Function, Excel Formula, Excel Function, Excel Formula, Excel Function, Excel Formula, Excel Function, Excel Formula, Excel Function, Excel Formula, Excel Function, Excel Formula, Excel Function, Excel Formula, Excel Function, Excel Formula, Excel Function, Excel Formula, Excel Function, Excel Formula, Excel Function, Excel Formula, Excel Function, Excel Formula, Excel Function, Excel Formula, Excel Function, Excel Formula, Excel Function, Excel Formula, Excel Function.
Got a Question? Ask it Here in the Forum.
Similar Helpful Excel Resources
We have recently upgraded from Office 2000 to 2007. One of our users had an add-in that worked under Excel 2000. When we upgraded his desktop computer, the Add-In tab does not appear. Selecting the Office Button, choosing Excel Options and then clicking on the Add-In item causes Excel to shut down.
Any thoughts?
hallo everybody,
i need help because my vba code works in English Excel but does not work in German Excel or French Excel. i have a error message in this line :
ActiveChart.SeriesCollection(1).Name = "='" + plant + "'!R49C4"
error message after Translation to the german : " Application defined or object defined error"
please help me.
VB:
Private Sub Workbook_Open()
Dim num As Range
Dim num1 As Range
Dim pNom As String
Dim pId As String
Dim pIdSup As String
Dim pSupName As String
Dim pPers As String
Dim pMaxPer As String
Dim pPlant As String
Dim valPlant As Range
pNom = ActiveWorkbook.Name
With Application
.DecimalSeparator = "."
.ThousandsSeparator = " "
.UseSystemSeparators = False
End With
'Application.DisplayAlerts = False
Application.ScreenUpdating = False
If Sheets("Properties").Cells(1, 256).Text <> "OK" Then
Sheets("Properties").Cells(1, 256).Value = "OK"
Sheets("MasterData").Select
With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
"ODBC;DBQ=C:\Data\ABIS;DefaultDir=C:\Data\ABIS;Driver={Microsoft Text Driver (*.txt; *.csv)};DriverId" _
), Array( _
"=27;Extensions=txt,csv,tab,asc;FIL=text;MaxBufferSize=2048;MaxScanRows=25;PageTimeout=5;SafeTransactions=0;Threads=3;UserCommit" _
), Array("Sync=Yes;")), Destination:=Range("A1"))
.CommandText = Array( _
"SELECT DISTINCT TXTODBC.ID_SUPPLIER" & Chr(13) & "" & Chr(10) & "FROM TXTODBC.TXT TXTODBC WHERE TXTODBC.ID_SUPPLIER<>'null'")
.Name = "ABIS_1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.SourceConnectionFile = "C:\Data\ABIS\ABIS.dsn"
.Refresh BackgroundQuery:=False
End With
nb = 2
While Sheets("MasterData").Cells(nb, 1).Text <> ""
If pId = "" Then
pId = Sheets("MasterData").Cells(nb, 1).Text
Else
pId = pId + ";" + Sheets("MasterData").Cells(nb, 1).Text
End If
nb = nb + 1
Wend
Sheets("Properties").Select
Sheets("Properties").Cells(8, 3).Value = pId
Sheets("MasterData").Select
pIdSup = pId
With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
"ODBC;DBQ=C:\Data\ABIS;DefaultDir=C:\Data\ABIS;Driver={Microsoft Text Driver (*.txt; *.csv)};DriverId" _
), Array( _
"=27;Extensions=txt,csv,tab,asc;FIL=text;MaxBufferSize=2048;MaxScanRows=25;PageTimeout=5;SafeTransactions=0;Threads=3;UserCommit" _
), Array("Sync=Yes;")), Destination:=Range("B1"))
.CommandText = Array( _
"SELECT DISTINCT TXTODBC.YEAR_MONTH" & Chr(13) & "" & Chr(10) & "FROM TXTODBC.TXT TXTODBC" & Chr(13) & "" & Chr(10) & "WHERE (TXTODBC.YEAR_MONTH<>'6 month Rolling')" _
)
.Name = "ABIS_2"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.SourceConnectionFile = "C:\Data\ABIS\ABIS.dsn"
.Refresh BackgroundQuery:=False
End With
nb = 2
While Sheets("MasterData").Cells(nb, 2).Text <> ""
If pPers = "" Then
pPers = Sheets("MasterData").Cells(nb, 2).Text
Else
pPers = pPers + ";" + Sheets("MasterData").Cells(nb, 2).Text
End If
nb = nb + 1
Wend
Sheets("Properties").Select
Sheets("Properties").Cells(10, 3).Value = pPers
Sheets("MasterData").Select
With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
"ODBC;DBQ=C:\Data\ABIS;DefaultDir=C:\Data\ABIS;Driver={Microsoft Text Driver (*.txt; *.csv)};DriverId" _
), Array( _
"=27;Extensions=txt,csv,tab,asc;FIL=text;MaxBufferSize=2048;MaxScanRows=25;PageTimeout=5;SafeTransactions=0;Threads=3;UserCommit" _
), Array("Sync=Yes;")), Destination:=Range("C1"))
.CommandText = Array( _
"SELECT MAX(TXTODBC.YEAR_MONTH)" & Chr(13) & "" & Chr(10) & "FROM TXTODBC.TXT TXTODBC" & Chr(13) & "" & Chr(10) & "WHERE (TXTODBC.YEAR_MONTH<>'6 month Rolling')" _
)
.Name = "ABIS_3"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.SourceConnectionFile = "C:\Data\ABIS\ABIS.dsn"
.Refresh BackgroundQuery:=False
End With
nb = 2
While Sheets("MasterData").Cells(nb, 3).Text <> ""
If pMaxPer = "" Then
pMaxPer = Sheets("MasterData").Cells(nb, 3).Text
Else
pMaxPer = pMaxPer + ";" + Sheets("MasterData").Cells(nb, 3).Text
End If
nb = nb + 1
Wend
Sheets("Properties").Select
Sheets("Properties").Cells(12, 3).Value = pMaxPer
Sheets("MasterData").Select
With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
"ODBC;DBQ=C:\Data\ABIS;DefaultDir=C:\Data\ABIS;Driver={Microsoft Text Driver (*.txt; *.csv)};DriverId" _
), Array( _
"=27;Extensions=txt,csv,tab,asc;FIL=text;MaxBufferSize=2048;MaxScanRows=25;PageTimeout=5;SafeTransactions=0;Threads=3;UserCommit" _
), Array("Sync=Yes;")), Destination:=Range("D1"))
.CommandText = Array( _
"SELECT DISTINCT TXTODBC.PLANT" & Chr(13) & "" & Chr(10) & "FROM TXTODBC.TXT TXTODBC where TXTODBC.PLANT<>'null'" & Chr(13) & "" & Chr(10) & "" _
)
.Name = "ABIS_4"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.SourceConnectionFile = "C:\Data\ABIS\ABIS.dsn"
.Refresh BackgroundQuery:=False
End With
nb = 2
While Sheets("MasterData").Cells(nb, 4).Text <> ""
If pPlant = "" Then
pPlant = Sheets("MasterData").Cells(nb, 4).Text
Else
pPlant = pPlant + ";" + Sheets("MasterData").Cells(nb, 4).Text
End If
nb = nb + 1
Wend
Sheets("Properties").Select
Sheets("Properties").Cells(11, 3).Value = pPlant
Sheets("MasterData").Select
With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
"ODBC;DBQ=C:\Data\ABIS;DefaultDir=C:\Data\ABIS;Driver={Microsoft Text Driver (*.txt; *.csv)};DriverId" _
), Array( _
"=27;Extensions=txt,csv,tab,asc;FIL=text;MaxBufferSize=2048;MaxScanRows=25;PageTimeout=5;SafeTransactions=0;Threads=3;UserCommit" _
), Array("Sync=Yes;")), Destination:=Range("E1"))
.CommandText = Array( _
"SELECT DISTINCT TXTODBC.SUPPLIER_NAME" & Chr(13) & "" & Chr(10) & "FROM TXTODBC.TXT TXTODBC" & Chr(13) & "" & Chr(10) & " WHERE (TXTODBC.SUPPLIER_NAME<>'null')" _
)
.Name = "ABIS_5"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.SourceConnectionFile = "C:\Data\ABIS\ABIS.dsn"
.Refresh BackgroundQuery:=False
End With
nb = 2
While Sheets("MasterData").Cells(nb, 5).Text <> ""
If pSupName = "" Then
pSupName = Sheets("MasterData").Cells(nb, 5).Text
Else
pSupName = pSupName + ";" + Sheets("MasterData").Cells(nb, 5).Text
End If
nb = nb + 1
Wend
Sheets("Properties").Select
Sheets("Properties").Cells(9, 3).Value = pSupName
Sheets("MasterData").Select
'ActiveCell.FormulaR1C1 = "OK"
Sheets("Properties").Select
Range("C8:C9").Select
Selection.Copy
Sheets("chart").Select
Range("F4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Supplier Overview").Select
Range("F4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Supplier Overview").Cells(6, 6).Value = Sheets("Properties").Cells(12, 3).Value
Sheets("Supplier Overview").Visible = False
Sheets("Properties").Select
Range("C10:C11").Select
Selection.Copy
Range("C117").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C11").Activate
Selection.Replace What:="%%%*", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Sheets("Properties").Select
Range("D19:K32").Select
Selection.Copy
Sheets("Chart").Select
Range("L49").Select
ActiveSheet.Paste
Sheets("Chart").Cells(6, 6).Value = Sheets("Properties").Cells(12, 3).Value
'Sheets("Supplier Overview").Select
'Range("L49").Select
'ActiveSheet.Paste
Sheets("Data").Select
Range("A1").Select
ActiveSheet.PivotTables(1).PivotCache.Refresh
Sheets("Data2").Select
Range("A1").Select
ActiveSheet.PivotTables(1).PivotCache.Refresh
Sheets("Data").Select
'Sheets("Supplier Overview").Visible = False
i = 2
Do While Sheets("MasterData").Cells(i, 4).Text <> ""
plant = Trim(Sheets("MasterData").Cells(i, 4).Text)
Sheets("chart").Select
Sheets.Add
Sheets("chart").Select
Cells.Select
Selection.Copy
Sheets((i + 2)).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets((i + 2)).Cells(3, 4).Value = plant
Sheets((i + 2)).Select
Sheets((i + 2)).Name = plant
ActiveSheet.ChartObjects("Chart 1").Activate
ActiveChart.Axes(xlValue).MajorGridlines.Select
ActiveChart.PlotArea.Select
ActiveChart.SeriesCollection(1).XValues = "='" + plant + "'!R50C1:R62C1"
ActiveChart.SeriesCollection(1).Values = "='" + plant + "'!R50C4:R62C4"
' line error " Application defined or object defined error"
ActiveChart.SeriesCollection(1).Name = "='" + plant + "'!R49C4"
ActiveChart.SeriesCollection(2).XValues = "='" + plant + "'!R50C1:R62C1"
ActiveChart.SeriesCollection(3).XValues = "='" + plant + "'!R50C1:R62C1"
ActiveWindow.Visible = False
ActiveSheet.ChartObjects("Chart 2").Activate
ActiveChart.PlotArea.Select
ActiveChart.SeriesCollection(1).XValues = "='" + plant + "'!R50C1:R62C1"
ActiveChart.SeriesCollection(1).Values = "='" + plant + "'!R50C5:R62C5"
ActiveChart.SeriesCollection(1).Name = "='" + plant + "'!R49C5"
ActiveWindow.Visible = False
'Windows("624159_2008_05_16_16_49_00.xls").Activate
ActiveSheet.ChartObjects("Chart 9").Activate
ActiveChart.PlotArea.Select
ActiveChart.SeriesCollection(1).XValues = "='" + plant + "'!R50C1:R62C1"
ActiveChart.SeriesCollection(1).Values = "='" + plant + "'!R50C6:R62C6"
ActiveChart.SeriesCollection(1).Name = "='" + plant + "'!R49C6"
ActiveChart.SeriesCollection(2).XValues = "='" + plant + "'!R50C1:R62C1"
ActiveWindow.Visible = False
'Windows("624159_2008_05_16_16_49_00.xls").Activate
ActiveSheet.ChartObjects("Chart 8").Activate
ActiveChart.PlotArea.Select
ActiveChart.SeriesCollection(1).XValues = "='" + plant + "'!R50C1:R62C1"
ActiveChart.SeriesCollection(1).Values = "='" + plant + "'!R50C10:R62C10"
ActiveChart.SeriesCollection(1).Name = "='" + plant + "'!R49C10"
ActiveChart.SeriesCollection(2).XValues = "='" + plant + "'!R50C1:R62C1"
ActiveChart.SeriesCollection(2).Values = "='" + plant + "'!R50C15:R62C15"
ActiveChart.SeriesCollection(3).XValues = "='" + plant + "'!R50C1:R62C1"
ActiveChart.SeriesCollection(3).Values = "='" + plant + "'!R50C16:R62C16"
ActiveWindow.Visible = False
'Windows("624159_2008_05_16_16_49_00.xls").Activate
ActiveSheet.ChartObjects("Chart 5").Activate
ActiveChart.Axes(xlValue).MajorGridlines.Select
ActiveChart.PlotArea.Select
ActiveChart.SeriesCollection(1).XValues = "='" + plant + "'!R50C1:R62C1"
ActiveChart.SeriesCollection(1).Values = "='" + plant + "'!R50C7:R62C7"
ActiveChart.SeriesCollection(1).Name = "='" + plant + "'!R49C7"
ActiveChart.SeriesCollection(2).XValues = "='" + plant + "'!R50C1:R62C1"
ActiveChart.SeriesCollection(2).Values = "='" + plant + "'!R50C8:R62C8"
ActiveChart.SeriesCollection(2).Name = "='" + plant + "'!R49C8"
ActiveChart.SeriesCollection(3).XValues = "='" + plant + "'!R50C1:R62C1"
ActiveChart.SeriesCollection(3).Values = "='" + plant + "'!R50C9:R62C9"
ActiveChart.SeriesCollection(3).Name = "='" + plant + "'!R49C9"
ActiveWindow.Visible = False
'Windows("624159_2008_05_16_16_49_00.xls").Activate
Range("A1").Select
i = i + 1
If Environ("REPORT_SERVER_CLOSE") = "YES" Then
ActiveSheet.PageSetup.PrintArea = "$A$1:$K$63"
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.787401575)
.RightMargin = Application.InchesToPoints(0.787401575)
.TopMargin = Application.InchesToPoints(0.984251969)
.BottomMargin = Application.InchesToPoints(0.984251969)
.HeaderMargin = Application.InchesToPoints(0.4921259845)
.FooterMargin = Application.InchesToPoints(0.4921259845)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 300
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
.PrintErrors = xlPrintErrorsDisplayed
End With
End If
' Sheets("chart").Select
' Sheets("chart").Copy After:=Sheets((i + 1))
' Sheets("chart (2)").Select
' Sheets("chart (2)").Name = plant
' Range("A1").Select
' Sheets(plant).Select
' Sheets(plant).Cells(3, 4).Value = plant
Loop
Sheets("chart").Visible = False
Sheets("Data").Visible = False
Sheets("Data2").Visible = False
Sheets("MasterData").Visible = False
Application.CutCopyMode = False
Application.ScreenUpdating = True
Sheets("Supplier Overview").Select
ActiveWorkbook.Save
If Environ("REPORT_SERVER_CLOSE") = "YES" Then
Sheets("Properties").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("Supplier Overview").Select
Sheets("Supplier Overview").Move Befo =Sheets(4)
ActiveWorkbook.PrintOut Copies:=1, Collate:=True
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.FileExists("C:\5_PANEL_PDF\" + pIdSup + "_" + Format(DateAdd("m", -1, Date), "mmmyyyy") + ".pdf") Then
fs.deleteFile "C:\5_PANEL_PDF\" + pIdSup + "_" + Format(DateAdd("m", -1, Date), "mmmyyyy") + ".pdf"
End If
If fs.FileExists("C:\5_PANEL_PDF\" + pIdSup + "_" + Format(DateAdd("m", -2, Date), "mmmyyyy") + ".pdf") Then
fs.deleteFile "C:\5_PANEL_PDF\" + pIdSup + "_" + Format(DateAdd("m", -2, Date), "mmmyyyy") + ".pdf"
End If
If fs.FileExists("C:\5_PANEL_PDF\" + pIdSup + "_" + Format(DateAdd("m", -3, Date), "mmmyyyy") + ".pdf") Then
fs.deleteFile "C:\5_PANEL_PDF\" + pIdSup + "_" + Format(DateAdd("m", -3, Date), "mmmyyyy") + ".pdf"
End If
fs.movefile "C:\5_PANEL_PDF\Temp.pdf", "C:\5_PANEL_PDF\" + pIdSup + "_" + Format(DateAdd("m", -1, Date), "mmmyyyy") + ".pdf"
ActiveWorkbook.Close (False)
ActiveWorkbook.Close
End If
End If
End Sub
If you like these VB formatting tags please consider sponsoring me in support of injured Royal Marines
We Have Anumber of excel files created in Macintosh Excel 2000 with graphs.
These sucessfully open using Excel 2000 but all crash when using Excel 2003.
The PC is on a network with XP profesional operating system.
Hi All,
I was wondering if anyone had come across this problem. I have two
separate applications in which Excel 2003 will not run my code.
On one application, it won't recognize a userform when I am in a sub,
but if I call the userform in the parent sub that calls the problem
sub, it will recognize it. Strange!
In the other one, the code is simple:
thisworkbook.activate
sheets("data entry").activate
It chokes on the 2nd line.
I even tried:
thisworkbook.activate
x = activesheet.name
and it choked on that too.
The error is: Run-time error '32809'
Application-defined or object-defined error.
Any ideas?
Hi,
I was using an excel file in 2003. This file has a lot of formula. I opened this file once in 2007 and the file got currupted. Now if I open the file in 2003 then for all the formulas I am getting #N/A error. Can someone please help me ?
Regards,
Javed
Can anyone give me some insights into possible compatibility issues between Excel 2004 for Mac 11.3 and your plain vanilla Windows-based Excel 2003?
Any observations you have will be valued highly!
Hi
When I click on an Excel doc., Excel starts up but does not open the doc.
When I rgiht click an .xls and then choose Excel to open it it says that
Excel cannot find the document on the indicated path. The path shown is
indeed the path to the doc and the doc is there.
When I drag an .xls into a runing Excel it opens correctly.
Other apps. such as Word open the docs correctly but cannot open docs with
links to Excel sheets.
Any ideas?
Regards,
Marc
This topic on Ozgrid provides just what I need, but limited to only 2 criteria - my VBA is not up to extending the code to the ten criteria that I need. Can anyone point me in the right direction please?
VB:
Function AutoFilter_Criteria(Header As Range) As String Dim strCri1 As String, strCri2 As String Application.Volatile With Header.Parent.AutoFilter With .Filters(Header.Column - .Range.Column + 1) If Not .On Then Exit Function strCri1 = .Criteria1 If .Operator = xlAnd Then strCri2 = " AND " & .Criteria2 ElseIf .Operator = xlOr Then strCri2 = " OR " & .Criteria2 End If End With End With AutoFilter_Criteria = UCase(Header) & ": " & strCri1 & strCri2 End Function
If you like these VB formatting tags please consider sponsoring me in support of injured Royal Marines
|
|
