excel,excel-formula,excel-2013,forex

I was able to solve this problem by following the below steps: Home>Style>Conditional Formatting Create New Rule - "Use a formula to determine which cells to format" I had to create 5 different rules due to my session time setup. Each rule followed the basic setup: =AND($e11>=TIME(7,0,0),$e11<=TIME(9,59,59)) I only had...

vba,excel-vba,excel-2007,excel-2013,userform

As from the comments, I see you don't need anymore to know about points 1 and 2, I will hence limit my answer to the point 3. Last Part of this question if I have a Textbox in the userform that contains a date in the format 1/18/2015 is there...

Charting differs between different version of Excel and if not using something like VBA is probably best asked about on Super User if not already a question asked there (answers/guidance there may be more detailed than on SO) but since you clearly have a good understanding already maybe an example...

excel,vba,excel-vba,excel-2013

I see two problems Where are you opening the workbook? You need to move StrFile = Dir just before the Loop. With this command you are telling it to find the next file. Try this (UNTESTED) Sub Loop2() Dim StrFile As String Dim WSCount As Integer Dim sh As Worksheet...

excel,excel-formula,excel-2013

After reading the comments provided by @RonRosenfeld, I can see that the correct way to write this calculation is as follows... =SUMPRODUCT(--('Sheet1'!$E$11:$E$61>='Sheet1'!$AE$5),--('Sheet1'!$E$11:$E$61<='Sheet1'!$AF$5),--('Sheet'!$H11:$H61='Sheet'!$D$330)) Making sure that EACH element of the calculation that is being referenced is led by the appropriate page name and !....

I put the following in a standard module: Function IfMissionarySupplies(Missionary_Type As String) As Double Wb = ThisWorkbook.Name 'Wb is a global variable. Dim Elder_Supplies, Sister_Supplies As Double Elder_Supplies = Workbooks(Wb).Worksheets("Control Variables").Range("C11").Value Sister_Supplies = Workbooks(Wb).Worksheets("Control Variables").Range("C14").Value If Missionary_Type = "Sisters" Then IfMissionarySupplies = Sister_Supplies Exit Function ElseIf Missionary_Type = "Elders" Then...

excel-vba,dynamic-arrays,excel-2013

Examples of invalid array subscripts would be non-integer or negative subscripts. If intQuantity = 0 at any point in your program, then that would produce a subscript for your array of -1. Similarly, if getCutQuantity returns a non-integer, then your array subscript would be a non-integer. Glad that helped.

You can just add that first, in this generic form =IF($D11="","",your_formula) so specifically that becomes: =IF($D11="","",IF(OR(AND($D11="Long",$M11>=$N11),AND($D11="Short",$M11<=$N11)), "Win","Loss")) see screenshot ...

excel,excel-formula,excel-2013,forex

AND, OR and IF are all functions not just statements. You have 2 sets of conditions which are valid so put the ANDs inside the OR: =IF(OR(AND(D11 = "Short", G11 > 0), AND(D11 = "Long", G11 < 0)), "YES", "NO") ...

Maybe something like: =IF(OR(AND(D11="long",M11>=N11),AND(D11="short",N11>=M11)),"Win","Loss") ...

excel,excel-formula,excel-2013,forex

You need to include the sheet name in all the ranges, i.e. =COUNTIFS(Input!H11:H61,"YES",Input!Q11:Q61,"Win")...

From a quick play around it seems as though you need to be using ScreenTip rather than TextToDisplay if your goal is the hover over text. For the section below: ActiveSheet.Hyperlinks.Add Anchor:=Cells(iRow, 2), Address:="", _ TextToDisplay:=CStr(iRow - 16) Try changing it to: Activesheet.Hyperlinks.Add Anchor:=Cells(iRow, 2), Address:="", _ ScreenTip:=CStr(iRow - 16)...

Select a string (highlight). Go to menu and start recording a macro. Do necessary action (ok that is nebulous). Stop recording macro. Assign hotkey. Save macro. Now next time, highlight something. Hit hotkey. Note that later you can go in and modify the macro VBA code that you find for...

excel,vba,excel-vba,excel-2013

is it possible to solve this by using Like or Contain statements? From your comment, yes. After opening the workbook, iterate the worksheet collection like this: Dim sh As Worksheet For Each sh In wb.Sheets If InStr(sh.Name, "WorkSheet_A") <> 0 Then sheet_Name = sh.Name: Exit For End If Next Or...

excel,vba,excel-vba,excel-2013

the thing that I was looking for was an XML editor. I found more specific instructions on an Excel Add-in website. Thanks anyways.

The Match() function has one important parameter: the last one. It is either 0 or 1. If it is 0, then Match will find only an EXACT match. In your scenario, when you convert numbers between different systems, the resulting number may not be an exact match. You may want...

excel,vba,excel-vba,excel-2013

Very likely sht is null. You Dim sht as Worksheet but never Set it to anything. The line of your error is the first line which uses sht so it just happens to be the place where the error is brought to your attention. I would thin you would want...

excel,excel-formula,excel-2013

Would not it be sufficient to write two separate SUMPRODUCT functions and sum-up their results? =SUMPRODUCT(....)+SUMPRODUCT(...)

excel,vba,excel-vba,excel-2013

This is very easy to do.. Sub RemoveEmptyRows() ' this macro will remove all rows that contain no data Dim file_name as String Dim sheet_name as String file_name = "c:\my_folder\my_wb_file.xlsx" 'Change to whatever file you want sheet_name = "Sheet1" 'Change to whatever sheet you want Dim i As Long Dim...

The run time error stems from trying to access fldr.SelectedItems(1) if the user cancelled the dialog. All you should need to do is check to see if you got a folder back: Dim fldr As FileDialog Set fldr = Application.FileDialog(msoFileDialogFolderPicker) fldr.AllowMultiSelect = False fldr.Show 'Did the user cancel? If fldr.SelectedItems.Count...

vb.net,ribbon,excel-2013,excel-dna

The Invalidation is only processed for the active workbook's ribbon. But when you then switch to another workbook, the callbacks will fire again and will now be applied to the ribbon of the new workbook. There's a bug and some quirks in Excel 2013 related to this switching: If you...

excel-formula,excel-2010,frequency,excel-2013,countif

no need to formula, select the columns in which you are looking for the duplicates then go to your DATA tab in excel, and click on remove duplicates in the data tools section. There you go! ...

All, thank you for your help and guidance. I just wanted to let you know that with help from a work colleague, I've come up with the code as shown below. Many thanks and kind regards. Chris Private Sub Workbook_Open() Dim j As Integer Dim fPath As String On Error...

Select the three cells. Find the fill handle. It is the little square at the lower right corner of the selection. Click and drag it down to row 500. ...

Notepad doesn't interpret line breaks as cleverly as more fully-featured text editors. Your best bet is probably to try copy/pasting into either Wordpad, or to download something like Notepad++ (https://notepad-plus-plus.org/download/) and paste into that first. This answer does a nice job of further explaining the issue: http://superuser.com/questions/362087/notepad-ignoring-linebreaks...

vba,table,filtering,excel-2013

For Excel 2010 and 2013 the AutoFilter.Filter.Ttem.On property is read-only. So that answers your first question. http://msdn.microsoft.com/en-us/library/office/ff197843%28v=office.15%29.aspx The same is true for the AutoFilter.Filter.Ttem.Criteria1 property. Which answers the second one. (I didn't know either of these things before now, so thanks for asking.)...

excel,table,pivot-table,excel-2013,conditional-formatting

Select the column to be highlighted and HOME > Styles - Conditional Formatting, New Rule..., Use a formula to determine which cells to format and Format values where this formula is true: =G1>F1 with red colour =G1<F1 with green colour leaves equal values without highlighting. If bothered by highlighting of...

However the result may be achieved with formulae. With a PivotTable (in case the raw data may not be sorted) with Status and Emp for ROWS and Achievement in VALUES and (for layout as in image) these formulae copied down to suit: in I2: =F2&" = "&TEXT(G2,"0.00%") in J2: =IF(E2<>"",I2,J1&"...

Power View will automatically aggregate numbers, there are two options to prevent this. In the Power View field well fields can be set to 'do no aggregate', alternatively fields can be prevented by aggregating at all via the Power Pivot window. Do not summarize via the field well Do not...

excel,vba,excel-vba,copy-paste,excel-2013

This code assumes source data is in ActiveSheet range A1:D19 and we post the output list in same worksheet starting at cell F1 (change as needed) Option Explicit Option Base 1 Sub ListRoomComputers() Const kCol As Byte = 6 'Column F Dim aOutput() As Variant aOutput = Array("Room", "Unit", "Model",...

excel-formula,vlookup,excel-2013

Try using the Index Match method. It's an alternative to Vlookup which doesn't require data to be sorted and can therefore be of more use. The typical structure of this method is (the text inside the asterisk will give the ranges specific to your sheet: =INDEX (**Column from which you...

visual-studio-2010,excel-2010,excel-2013

It took a while to figure out but its done finally. The add in launch conditions were checking for the availability of the shared PIA. Condition: HASSHAREDPIA and it was looking for the corresponding component id associated with excel 2013 PIA component ID Click Here https://social.msdn.microsoft.com/Forums/vstudio/en-US/1fd8690a-812c-49f9-a77e-e19f24de7c4e/office-2013-pia-component-ids?forum=vsto to obtain the suitable...

excel,vba,excel-vba,checkbox,excel-2013

I'm not sure that you are talking about a CheckBox in a UserForm, but if you are just place this line in the CheckBox_Change() : Sheets("Your_Sheet_Name").Calculate And if it is an Excel CheckBox : Add a linked cell (here is in C1) Place this in the Worksheet module This code:...

vb.net,excel,excel-vba,ms-access-2013,excel-2013

xlCenter is a member of Microsoft.Office.Interop.Excel.Constants. Since you assigned Microsoft.Office.Interop.Excel to the name Excel, you can reference that constant like this ... xlWorkSheet.Range("H15:H16").VerticalAlignment = Excel.Constants.xlCenter ...

excel,vba,excel-vba,excel-2010,excel-2013

Replace With sc.NewSeries with With cht.SeriesCollection.NewSeries I had the same issue in Excel 2013. I don't know why, but this solution works for me....

excel,excel-formula,worksheet-function,excel-2013,countif

Ugly, but might suit: =COUNTIFS(E:E;">120";E:E;"<139")+COUNTIFS(F:F;">80";F:F;"<89")-COUNTIFS(E:E;">120";E:E;"<139";F:F;">80";F:F;"<89") Counts all the applicable instances in ColumnE, adds the count of all the applicable instances in ColumnF then subtracts the instances where both ColumnE and ColumnF are within the respective bounds - this last part might not be required. An array formula might be more...

Just Like TMH8885 metioned get week number from each date and then assuming that your dates are in Column A and weeknumbers are in column B make a table that list numbers from 1 to 52 next to which enter a COUNTIF(B:B,D2)(change D2 to cell pointing at correct week number...

Welcome to the world of time, base60 vs. base10 and 15 significant digit floating point precision. I find that sometimes it is simply expedient to give yourself a 'time window' to meet rather than try to round off ranges. The formula in E2 is, =SUMIFS($B$2:$B$8, $A$2:$A$8, ">"&D2-TIME(0, 0, 2),...

excel,excel-formula,excel-2013,countif,excel-indirect

The INDIRECT function returns a reference to a range. You can use this function to create a reference that won't change if row or columns are inserted in the worksheet. Or, use it to create a reference from letters and numbers in other cells. =COUNTIFS(cancellations!AG2:AG408,">0",cancellations!AG2:AG408,B1) should work where B1 contains...

excel,excel-formula,excel-2013

You can use the INDEX function to get the information from a particular set of coordinates. For example, in this case, we'd get the value for the cell in the 5th row and the 1st column of the selected area: If we want to dynamically find those values, we can...

excel,excel-vba,excel-formula,excel-2013

Here's a formula solution. I used 20 rows and extracted the rows which contain the top 5 for each column - you can extend to as many rows as required. With data in A1:B20 use this formula in D1 confirmed with CTRL+SHIFT+ENTER and copied across to E1 and down both...

The following line returns a number greater than 0 if the folder exists, regardless of whether the folder has any files in it len(dir("C:\Users\user\Desktop\Tests\tt", vbDirectory)) ...

excel,excel-formula,excel-2013

This is doable for a couple thousand rows of data. If your 'huge amount of people' is much more than that, an advanced filter or pivot table is a more viable solution. With UK in D3 use the following in E3. =IFERROR(INDEX($B$2:$B$9999, SMALL(INDEX(ROW($1:$9995)+($A$2:$A$9996<>D3)*1E+99, , ), ROW(1:1))), "") Fill down...

excel,vba,excel-vba,excel-2007,excel-2013

This should get you the rudimentary results you are looking for. Sub myStopwatch() Dim t1 As Double, t2 As Double, et As Double, mssg As String Application.StatusBar = "Running..." Debug.Print "Start at: " & Time t1 = Timer ' do stuff here t2 = Timer Debug.Print "End at: " &...

excel,vba,excel-vba,excel-2013

If you're using an API in 64-bit office then you may need to declare it as 'pointer safe' and use the VBA7 LongPtr type. You can use conditional compilation to test the environment using the VBA7 Win64 constant: #If Win64 Then Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA"(...

sql,sql-server,excel,matrix,excel-2013

Unfortunately, can't help with the formal terms you've asked for but (IMO) for such a small dataset it matters not and brute-force can easily be your friend. I would suggest UNPIVOTing each of your 3 datasets to get datasets you can more easily work with {Gender,Area,Reqs}, {Ageband,Area,Reqs}, {SEG,Area,Req} and simply...

A ListObject table is comprised of a HeaderRowRange (if the table has headers) and a DataBodyRange. Both are Range objects that you can iterate using normal iteration methods for cells: Dim r as Long, c as Long For r = 1 to Tbl.DataBodyRange.Rows.Count For c = 1 to Tbl.DataBodyRange.COlumns.Count Tbl.DataBodyRange.Cells(r,...

Apparently the Past method must be returning an array of ShapeRanges. I'm not sure if this is how it's always been and Office 2010 was a little more forgiving or not. So, to correct for this issue, when referencing sr I've had to do like sr(sr.Count). Working code below... Sub...

Right click on the pivot table and choose 'PivotTable Options'. You should see the following dialog: As indicated above, check the box saying "For error values show:" and put whatever you want in the entry box next to it. If you leave it empty, you'll get blanks....

excel,excel-formula,excel-2013

Commenting in an answer so as to add a picture. But your second formula also seems to work fine: Note that with a 2 in B3, the formula returns B from Sheet_2!B2...

This code will fail if the Sheet containing the Defined Name has not been activated first!

excel,excel-formula,excel-2010,excel-2013,sumifs

@Fabricator's answer should work, but if you want to write it with just SUMIFS, you need to quote your conditions and concatenate your values with &. Excel doesn't have any problems with a column being both a condition / the summing column. =SUMIFS([anotherFilel.xlsx]sheet!$I$16:$I$99999, [anotherFilel.xlsx]sheet!$I$16:$I$99999, ">" & $B$13, [anotherFilel.xlsx]sheet!$H$16:$H$99999, "<=" &...

excel,vba,excel-vba,excel-2013

Should work if you place the code in a regular module, not in the ThisWorkbook module.

vba,excel-vba,printing,excel-2013,page-size

Question 1 xlPaperUser is a User-Defined paper size that is assigned a constant value of 256. If this has not been defined, it may throw an error. Question 2 There is no way to create custom paper sizes in Excel, however you can create custom paper sizes on many printers....

excel,excel-formula,excel-2013

Try this in cell D2: =IF(COUNT(FIND("@",C2))>0,"Certain Text","")...

You are better off moving the worksheet names to a pre-defined string array after you physically remove the double quotes like this: 'Define a string array for the list of worksheets Dim arrSheets() As String ... ... Print_Sheets = Worksheets("ControlSheet").Cells(16, "G").Value 'Remove the double quotes from the delimited list of...

validation,excel-vba,excel-2013

This occured because I had updated the error message of the data validation in one cell but not the other. When I copied and pasted the error message into the data validation of the other cell in the range, this problem went away. Conclusion: Make sure that the data validation...

excel,excel-formula,excel-2013

It should be possible, but I don't understand everything you've got going on in either forumlas. The format for a hyperlink formula is =HYPERLINK(Link_location, Link_word) so you would put the location your linking to in the first part, then you would encase your date formula in parentheses for the second...

excel,vba,excel-vba,hyperlink,excel-2013

SubAddress is what you want: Sub Test() Dim hl As Hyperlink, r As Range Set hl = ActiveSheet.Hyperlinks(1) Set r = Application.Evaluate(hl.SubAddress) Debug.Print "Sheet: '" & r.Parent.Name & "'", "Range:" & r.Address() End Sub ...

excel,excel-2013,data-validation

Maybe your google foo could do with some polish. For the dropdown try DATA > Data Tools, Data Validation, Allow: List Source: whatever the range is for the data in your table....

I have tried it in Excel 2010, but I think there will be no significant difference in Excel 2013. Create a list of all eventually possible values (for example 0-1000). Assume that the values are located at H1:H1001. Choose a cell in which a threshold will be held. Suppose it...

I just wanted to post my working solution, which building upon what I'd alreafdy written, a work colleague was able to finish. The code is as follows: Private Sub UserForm_Initialize() Me.BackColor = RGB(174, 198, 207) End Sub and Private Sub Workbook_Open() Dim j As Integer 'Display the splash form non-modally....

You need to refer to the ListObject by name, rather than the connection, and then access its Querytable property: With wks.Listobjects(str).QueryTable ...

You can use 26 nested SUBSTITUTEs to remove all alphabetic characters from the text. If anything is left over, the cell contains non-alpha characters. And thanks to @RaGe for pointing out that you need to check for empty cells as well:...

The CommandButton belongs to an OLEObject try ButtonString = "CommandButton1" Set ButtonObj = ActiveSheet.OLEObjects(ButtonString) ButtonCaption = "Something" ButtonObj.Object.Caption = ButtonCaption 'example of the kind of parameters I want to change Note that some properties occur directly under ButtonObj, others such as Caption sit below Object ...

excel-2013,conditional-formatting

Please try HOME > Conditional Formatting, New Rule..., Use a formula to determine which cells to format, Format values where this formula is true:: =ISODD(SUBTOTAL(3,INDIRECT("A$1:A"&ROW()))) Format..., select formatting of choice, OK, OK....

What happens if you use a VBA replace command? This doesn't give you a prompt so it may be a viable replacement. Cells.Replace "Test", "ATest" Maybe do a test first to make it more robust: If Selection.cells.Count > 1 then Selection.Replace "Test", "ATest" Else Cells.Replace "Test", "ATest" End if This...

vba,excel-vba,offset,excel-2013

Always use Option Explicit at the beginning of every module to prevent from typos. Always! You had typos at the bottom - Colum1 and Colum2. Avoid Activate and Select (you had Sheets("DATA").Activate) - better performance, smaller error chance. Instead, you should always explicitly tell VBA which sheet you are...

https://social.technet.microsoft.com/Forums/office/en-US/94d0b004-3303-421d-9ed2-351683b89d08/sudden-problems-with-inserting-activex-basic-controls-such-as-command-buttons?forum=officeitproprevious found out the solution. Quit Excel. Start Windows Explorer. Select the system drive (usually C:). Use the Search box to search for *.exd Delete all found files. (Thanks to Excel MVP RoryA for this tip) Regards, Hans Vogelaar (http://www.eileenslounge.com)...

excel,vba,excel-vba,excel-2007,excel-2013

Since you want to avoid the clipboard and only copy Values, you can use assignment to the Value property instead of Range.Copy Something like this Sub Demo() Dim Sheet As Worksheet Dim FoundLocationSheet As Boolean Dim n As Long Dim rSource As Range Dim rDest As Range Dim AllSheet As...

excel,excel-vba,excel-formula,excel-2013

SOLVED using this code: Sub Test1() x = Range("rad") y = Range("kolumn") Z = Range("update") Sheets("Data").Cells(x, y) = Z End Sub ...

sorting,excel-2010,pivot-table,excel-2013,powerpivot

If you have more than one field in the row area of the pivot table, you cannot create a sort purely by value. The hierarchy cannot be ignored. That's how a pivot table works. Don't shoot the messenger.

vb.net,excel,excel-vba,excel-interop,excel-2013

xlApp.Range("A4").Select Then apply the freeze panes....

vba,excel-vba,excel-2010,solver,excel-2013

Convergence, and also all other SolverOptions can be set using cell values, for example Convergence:= Range("A1").value. Value2 is a little faster than Value, and it is good practice to explicitly cast to double the cell value (and also trap any errors). Another way is to add the values as named...

I've figured out a way here, thanks for the comments. By using the $ operator, we can then use the Send method, which forces the active application to override its default keys and receive the corresponding keystroke. Here's the workaround $#4:: #IfWinActive ahk_class XLMAIN Send {F4} return #IfWinActive ...

excel,excel-formula,excel-2013

Try this in C1, =--NOT(A1<OFFSET('Different Sheet'!$B$1, MOD(ROW(1:1)-1, 2), 0)) Fill down as necessary. You only seem to be looking for a 0 or a 1 so I've simplified your IF statement. (Note: maths with MOD adjusted for more universality) For different multiples you should only have to change the divisor...

excel,excel-formula,excel-2013,forex

As guitarthrower suggested in the comments, you could use the COUNTIFS function to achieve what you are looking for: WINS =COUNTIFS(E11:E61,">=2:00:00",E11:E61,"<=6:59:59",Q11:Q61, "WIN") LOSSES =COUNTIFS(E11:E61,">=2:00:00",E11:E61,"<=6:59:59",Q11:Q61, "LOSS")...

excel,csv,ms-office,excel-2013

You can solve the problem by inserting the following simple text at the beginning (the first line) of your .csv file: sep=; This will not be seen when the file is opened in Excel. What it will do - it will explicitly tell Excel that the delimiter is ;, and...

excel,excel-formula,excel-2010,excel-2013

You could simply turn around your first example and use the correct string: =TEXT(J3, "yyyyMM") Note, I used upper case M. Lower case m means minutes, while upper case M means month. The CONCATENATE is unnecessary. Please also note, that this is prone to localization issues, i.e. it depends on...

excel,vba,excel-vba,excel-2013

Try this- make sure to change Sheet1 to what ever sheet you are working on. Tested Excel 2010 Option Explicit '// Delete blank Rows Sub xlDeleteBlankRows() Dim xlWb As Workbook Dim i As Long Set xlWb = ActiveWorkbook For i = xlWb.Sheets("Sheet1").Cells.SpecialCells(xlCellTypeLastCell).row To 1 Step -1 If WorksheetFunction.CountA(xlWb.Sheets("Sheet1").Rows(i)) = 0...

Well, as I started typing this up, I figured it out (mind you, this has been driving me nuts for months now). Right click on the style and unselect the Font option. This will allow you to use your default font. It doesn't give you the option to specify your...

c#,excel,excel-2013,conditional-formatting

Here is a sample code that I quickly wrote to demonstrate using the Traffic Lights in conditional formatting. Please change it to suit your needs. using System; using System.Windows.Forms; using Excel = Microsoft.Office.Interop.Excel; Namespace WindowsFormsApplication2 { public partial class Form1 : Form { Public Form1() { InitializeComponent(); } private void...

There are a couple of issues here. I'm not sure you need to use INDIRECT at all. The way I understand your question, your sheet names are K1, and K2. Not that your sheet names are located in cells K1 and K2. So you should be able to reference those...

java,comments,excel-2013,crawler4j,jericho-html-parser

Yes it is possible. Start crawling on your search site (http://www.consumercomplaints.in/?search=chevrolet) Use the visitPage method of crawler4j to only follow comments and the ongoing pages. Take the html Content from crawler4j and shove it to jericho filter out the content you want to store and write it to some kind...

Since you mention "a certain character" I take it your x is a literal so would suggest: =SUBSTITUTE(A1,"""x""",""""&B1&"""") in Row1 copied down. That is a similar approach to @xificurC's but would be more flexible for whatever lies on either side of "x"....

Solved. For anyone who needs the solution, I worked it out by setting the directory default folder before each dialog box got opened. ChDir "C:\places\we\hide\things" Followed by the dialog box opening code. worked a charm, comment if you need a better explanation....

activesheet.listobjects(1).showautofilter will be True if the Autofilter controls are showing....

One way: Click the chart and study the highlighted areas in the source data. Click and drag the corner of the blue area to include the new data. Another way: In the chart source dialog, change the chart data range to include the desired data. A third way: In the...

This is lightening fast; I can't tell I'm not doing text manipulations with ReadAllLines and Regex. (Removed the text manipulation details). How I got it to work is explained in the comments to the original question. Not sure why it's so much faster than Interop.Excel. Inefficient coding? More efficient API?...

Try this for the next button Private Sub NextButton_Click() Dim emptyRow As Long Dim matchFound As Boolean Dim matchCount As Long Dim matchRow As Long Dim i As Long 'Determine the first empty cell in column E If Cells(1, 5).Value = "" Then emptyRow = 1 Else emptyRow = Cells(Columns(5).Rows.Count,...