| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Stop Macro if there is no data
Hi, Does anyone have any suggestions for the following: I have a spreadsheet that looks at data and then sorts the data based on certain text within the cell. The code works great when there are several rows of data. However, when there is only 1 row of data or no data for a particular day (This happens once or twice a month) the code does not work. Here is an example of the code: Sub Test() Range("D2").Select Application.CutCopyMode = False ActiveCell.FormulaR1C1 = "=IF(OR(ISNUMBER(SEARCH({""fee"",""inter""},RC[-1]))),""F"",IF(OR(ISNUMBER(SEARCH({""transf"",""dire ct pay"",""xf""},RC[-1]))),""T"",""O""))" Range("C2").Select Selection.End(xlDown).Offset(0, 1).Select ActiveCell.FormulaR1C1 = "end" Selection.End(xlUp).Select Selection.Copy Range("D3").Select Range(Selection, Selection.End(xlDown)).Select ActiveSheet.Paste Range("D2").Select Range(Selection, Selection.End(xlDown)).Select Application.CutCopyMode = False Selection.Copy Selection.PasteSpecial Paste:=xlValues Range("A1").Select Sheets("Sorted").Select Selection.AutoFilter Selection.AutoFilter Field:=4, Criteria1:="T" Range("A2:d2").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Sheets("transfers").Select Range("A2").Select ActiveSheet.Paste Columns("A:d").Select Columns("A:d").EntireColumn.AutoFit Sheets("Sorted").Select Application.CutCopyMode = False Selection.AutoFilter Field:=4, Criteria1:="O" Range("A2:d2").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Sheets("other").Select Range("A2").Select ActiveSheet.Paste Columns("A:d").Select Columns("A:d").EntireColumn.AutoFit Sheets("sorted").Select Application.CutCopyMode = False Selection.AutoFilter Field:=4, Criteria1:="F" Range("A2:d2").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Sheets("Fees-Interest").Select Range("A2").Select ActiveSheet.Paste Columns("A:d").Select Columns("A:d").EntireColumn.AutoFit Sheets("sorted").Select Application.CutCopyMode = False End Sub Any Help would be greatly appreciated!! -- STEVEB ------------------------------------------------------------------------ STEVEB's Profile: http://www.excelforum.com/member.php...fo&userid=1872 View this thread: http://www.excelforum.com/showthread...hreadid=509401 |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Stop Macro if there is no data
Function HasData(sh as Worksheet) as Boolean
Dim rng1 as Range, rng2 as Range HasData = True On error resume next set rng1 = sh.cells.specialcells(xlconstants) set rng2 = sh.cells.specialcells(xlformulas) On error goto 0 if rng1 is nothing and rng2 is nothing then HasData = False elseif not rng1 is nothing then if rng1.rows.count < 2 then HasData = False elseif if rng2.rows.count < 2 then HasData = False end if end Function set sh1 = Activesheet if not hasdata(sh1) then exit sub end if this assumes you are looking for a data table. It could give a technically incorrect answer if you had say data in cells A1, B12, A15, Z31 but based on your description, this should be treated as not having data. to be specific if rng1 is a multiple area range, then the rows.count is against the first area. to illustrate from the immediate window: set rng = Range("A1,15:50") ? rng.address $A$1,$15:$50 ? rng.rows.count 1 -- Regards, Tom Ogilvy "STEVEB" wrote in message ... Hi, Does anyone have any suggestions for the following: I have a spreadsheet that looks at data and then sorts the data based on certain text within the cell. The code works great when there are several rows of data. However, when there is only 1 row of data or no data for a particular day (This happens once or twice a month) the code does not work. Here is an example of the code: Sub Test() Range("D2").Select Application.CutCopyMode = False ActiveCell.FormulaR1C1 = "=IF(OR(ISNUMBER(SEARCH({""fee"",""inter""},RC[-1]))),""F"",IF(OR(ISNUMBER(S EARCH({""transf"",""direct pay"",""xf""},RC[-1]))),""T"",""O""))" Range("C2").Select Selection.End(xlDown).Offset(0, 1).Select ActiveCell.FormulaR1C1 = "end" Selection.End(xlUp).Select Selection.Copy Range("D3").Select Range(Selection, Selection.End(xlDown)).Select ActiveSheet.Paste Range("D2").Select Range(Selection, Selection.End(xlDown)).Select Application.CutCopyMode = False Selection.Copy Selection.PasteSpecial Paste:=xlValues Range("A1").Select Sheets("Sorted").Select Selection.AutoFilter Selection.AutoFilter Field:=4, Criteria1:="T" Range("A2:d2").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Sheets("transfers").Select Range("A2").Select ActiveSheet.Paste Columns("A:d").Select Columns("A:d").EntireColumn.AutoFit Sheets("Sorted").Select Application.CutCopyMode = False Selection.AutoFilter Field:=4, Criteria1:="O" Range("A2:d2").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Sheets("other").Select Range("A2").Select ActiveSheet.Paste Columns("A:d").Select Columns("A:d").EntireColumn.AutoFit Sheets("sorted").Select Application.CutCopyMode = False Selection.AutoFilter Field:=4, Criteria1:="F" Range("A2:d2").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Sheets("Fees-Interest").Select Range("A2").Select ActiveSheet.Paste Columns("A:d").Select Columns("A:d").EntireColumn.AutoFit Sheets("sorted").Select Application.CutCopyMode = False End Sub Any Help would be greatly appreciated!! -- STEVEB ------------------------------------------------------------------------ STEVEB's Profile: http://www.excelforum.com/member.php...fo&userid=1872 View this thread: http://www.excelforum.com/showthread...hreadid=509401 |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Stop Macro if there is no data
I'm guessing that the code fails after the autofilter statements.
You can check to see how many visible rows are in the autofilter range with something like: With Worksheets("sheet1") If .AutoFilter.Range.Columns(1).Cells _ .SpecialCells(xlCellTypeVisible).Cells.Count = 1 Then 'only the header row showing. 'do nothing Else 'your code to do the work End If End With STEVEB wrote: Hi, Does anyone have any suggestions for the following: I have a spreadsheet that looks at data and then sorts the data based on certain text within the cell. The code works great when there are several rows of data. However, when there is only 1 row of data or no data for a particular day (This happens once or twice a month) the code does not work. Here is an example of the code: Sub Test() Range("D2").Select Application.CutCopyMode = False ActiveCell.FormulaR1C1 = "=IF(OR(ISNUMBER(SEARCH({""fee"",""inter""},RC[-1]))),""F"",IF(OR(ISNUMBER(SEARCH({""transf"",""dire ct pay"",""xf""},RC[-1]))),""T"",""O""))" Range("C2").Select Selection.End(xlDown).Offset(0, 1).Select ActiveCell.FormulaR1C1 = "end" Selection.End(xlUp).Select Selection.Copy Range("D3").Select Range(Selection, Selection.End(xlDown)).Select ActiveSheet.Paste Range("D2").Select Range(Selection, Selection.End(xlDown)).Select Application.CutCopyMode = False Selection.Copy Selection.PasteSpecial Paste:=xlValues Range("A1").Select Sheets("Sorted").Select Selection.AutoFilter Selection.AutoFilter Field:=4, Criteria1:="T" Range("A2:d2").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Sheets("transfers").Select Range("A2").Select ActiveSheet.Paste Columns("A:d").Select Columns("A:d").EntireColumn.AutoFit Sheets("Sorted").Select Application.CutCopyMode = False Selection.AutoFilter Field:=4, Criteria1:="O" Range("A2:d2").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Sheets("other").Select Range("A2").Select ActiveSheet.Paste Columns("A:d").Select Columns("A:d").EntireColumn.AutoFit Sheets("sorted").Select Application.CutCopyMode = False Selection.AutoFilter Field:=4, Criteria1:="F" Range("A2:d2").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Sheets("Fees-Interest").Select Range("A2").Select ActiveSheet.Paste Columns("A:d").Select Columns("A:d").EntireColumn.AutoFit Sheets("sorted").Select Application.CutCopyMode = False End Sub Any Help would be greatly appreciated!! -- STEVEB ------------------------------------------------------------------------ STEVEB's Profile: http://www.excelforum.com/member.php...fo&userid=1872 View this thread: http://www.excelforum.com/showthread...hreadid=509401 -- Dave Peterson |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Stop Macro if there is no data
Good thought. A lot of people seem to refer to filtering as sorting.
-- Regards, Tom Ogilvy "Dave Peterson" wrote in message ... I'm guessing that the code fails after the autofilter statements. You can check to see how many visible rows are in the autofilter range with something like: With Worksheets("sheet1") If .AutoFilter.Range.Columns(1).Cells _ .SpecialCells(xlCellTypeVisible).Cells.Count = 1 Then 'only the header row showing. 'do nothing Else 'your code to do the work End If End With STEVEB wrote: Hi, Does anyone have any suggestions for the following: I have a spreadsheet that looks at data and then sorts the data based on certain text within the cell. The code works great when there are several rows of data. However, when there is only 1 row of data or no data for a particular day (This happens once or twice a month) the code does not work. Here is an example of the code: Sub Test() Range("D2").Select Application.CutCopyMode = False ActiveCell.FormulaR1C1 = "=IF(OR(ISNUMBER(SEARCH({""fee"",""inter""},RC[-1]))),""F"",IF(OR(ISNUMBER(S EARCH({""transf"",""direct pay"",""xf""},RC[-1]))),""T"",""O""))" Range("C2").Select Selection.End(xlDown).Offset(0, 1).Select ActiveCell.FormulaR1C1 = "end" Selection.End(xlUp).Select Selection.Copy Range("D3").Select Range(Selection, Selection.End(xlDown)).Select ActiveSheet.Paste Range("D2").Select Range(Selection, Selection.End(xlDown)).Select Application.CutCopyMode = False Selection.Copy Selection.PasteSpecial Paste:=xlValues Range("A1").Select Sheets("Sorted").Select Selection.AutoFilter Selection.AutoFilter Field:=4, Criteria1:="T" Range("A2:d2").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Sheets("transfers").Select Range("A2").Select ActiveSheet.Paste Columns("A:d").Select Columns("A:d").EntireColumn.AutoFit Sheets("Sorted").Select Application.CutCopyMode = False Selection.AutoFilter Field:=4, Criteria1:="O" Range("A2:d2").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Sheets("other").Select Range("A2").Select ActiveSheet.Paste Columns("A:d").Select Columns("A:d").EntireColumn.AutoFit Sheets("sorted").Select Application.CutCopyMode = False Selection.AutoFilter Field:=4, Criteria1:="F" Range("A2:d2").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Sheets("Fees-Interest").Select Range("A2").Select ActiveSheet.Paste Columns("A:d").Select Columns("A:d").EntireColumn.AutoFit Sheets("sorted").Select Application.CutCopyMode = False End Sub Any Help would be greatly appreciated!! -- STEVEB ------------------------------------------------------------------------ STEVEB's Profile: http://www.excelforum.com/member.php...fo&userid=1872 View this thread: http://www.excelforum.com/showthread...hreadid=509401 -- Dave Peterson |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Stop Macro if there is no data
Thanks Dave & Tom, I was able to get your suggestions to work! I really appreciate you help!! You saved me a lot of time!!! Thanks Again!! I was having one more issue related to this spreadsheet & was wonderin if you had any suggestions: I am having problems with my Code that sorts data based on differen criteria and then posts that data(based on the sort) to various sheet within the workbook. The code works great when there are three or mor rows of data, however, if I have less than 3 rows of data the cod either posts the data to the wrong sheet, double posts the data or doe not post the data at all. Is there a better way to sort the data? An example of my code is a follows: 'This part of the Macro formats the current data. Sheets("Download").Select Range("A1").Select Cells.Select Selection.Copy Sheets("Sorted").Select Cells.Select ActiveSheet.Paste Range("A1").Select Do While Len(Trim(Range("A1"))) = 0 Rows(1).Delete Loop Sheets("Download").Select Range("A1").Select Sheets("Sorted").Select Columns("C:D").Select Selection.Delete Shift:=xlToLeft Rows("1:1").Select Selection.Insert Shift:=xlDown Range("A1").Select ActiveCell.FormulaR1C1 = "Date" Range("B1").Select ActiveCell.FormulaR1C1 = "Amount" Range("C1").Select ActiveCell.FormulaR1C1 = "Description" Range("A1:C1").Select Selection.Font.Bold = True With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlBottom .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Columns("B:B").Select Selection.Style = "Comma" Columns("A:C").Select Selection.AutoFormat Format:=xlRangeAutoFormatSimple, Number:=False Font _ :=False, Alignment:=True, Border:=False, Pattern:=False, Width:=True Range("A1").Select 'This part of the Macro sorts the data Range("D2").Select Application.CutCopyMode = False ActiveCell.FormulaR1C1 = "=IF(OR(ISNUMBER(SEARCH({""fee"",""inter""},R [-1]))),""F"",IF(OR(ISNUMBER(SEARCH({""transf"",""dire c pay"",""xf""},RC[-1]))),""T"",""O""))" Range("C2").Select Selection.End(xlDown).Offset(0, 1).Select ActiveCell.FormulaR1C1 = "end" Selection.End(xlUp).Select Selection.Copy Range("D3").Select Range(Selection, Selection.End(xlDown)).Select ActiveSheet.Paste Range("D2").Select Range(Selection, Selection.End(xlDown)).Select Application.CutCopyMode = False Selection.Copy Selection.PasteSpecial Paste:=xlValues Range("A1").Select Sheets("Sorted").Select Selection.AutoFilter Selection.AutoFilter Field:=4, Criteria1:="T" Range("A2:d2").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Sheets("transfers").Select Range("A2").Select ActiveSheet.Paste Columns("A:d").Select Columns("A:d").EntireColumn.AutoFit Sheets("Sorted").Select Application.CutCopyMode = False Selection.AutoFilter Field:=4, Criteria1:="O" Range("A2:d2").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Sheets("other").Select Range("A2").Select ActiveSheet.Paste Columns("A:d").Select Columns("A:d").EntireColumn.AutoFit Sheets("sorted").Select Application.CutCopyMode = False Selection.AutoFilter Field:=4, Criteria1:="F" Range("A2:d2").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Sheets("Fees-Interest").Select Range("A2").Select ActiveSheet.Paste Columns("A:d").Select Columns("A:d").EntireColumn.AutoFit Sheets("sorted").Select Application.CutCopyMode = False Sheets("transfers").Select Range("A1").Select ActiveCell.FormulaR1C1 = "Date" Range("B1").Select ActiveCell.FormulaR1C1 = "Amount" Range("C1").Select ActiveCell.FormulaR1C1 = "Description" Range("A1:C1").Select Selection.Font.Bold = True With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlBottom .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Sheets("Fees-Interest").Select Range("A1").Select ActiveCell.FormulaR1C1 = "Date" Range("B1").Select ActiveCell.FormulaR1C1 = "Amount" Range("C1").Select ActiveCell.FormulaR1C1 = "Description" Range("A1:C1").Select Selection.Font.Bold = True With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlBottom .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Sheets("Other").Select Range("A1").Select ActiveCell.FormulaR1C1 = "Date" Range("B1").Select ActiveCell.FormulaR1C1 = "Amount" Range("C1").Select ActiveCell.FormulaR1C1 = "Description" Range("A1:C1").Select Selection.Font.Bold = True With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlBottom .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Thanks -- STEVEB ------------------------------------------------------------------------ STEVEB's Profile: http://www.excelforum.com/member.php...fo&userid=1872 View this thread: http://www.excelforum.com/showthread...hreadid=509401 |
|
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Stop Macro if there is no data
Have you stepped through your code to find out where things break.
STEVEB wrote: Thanks Dave & Tom, I was able to get your suggestions to work! I really appreciate your help!! You saved me a lot of time!!! Thanks Again!! I was having one more issue related to this spreadsheet & was wondering if you had any suggestions: I am having problems with my Code that sorts data based on different criteria and then posts that data(based on the sort) to various sheets within the workbook. The code works great when there are three or more rows of data, however, if I have less than 3 rows of data the code either posts the data to the wrong sheet, double posts the data or does not post the data at all. Is there a better way to sort the data? An example of my code is as follows: 'This part of the Macro formats the current data. Sheets("Download").Select Range("A1").Select Cells.Select Selection.Copy Sheets("Sorted").Select Cells.Select ActiveSheet.Paste Range("A1").Select Do While Len(Trim(Range("A1"))) = 0 Rows(1).Delete Loop Sheets("Download").Select Range("A1").Select Sheets("Sorted").Select Columns("C:D").Select Selection.Delete Shift:=xlToLeft Rows("1:1").Select Selection.Insert Shift:=xlDown Range("A1").Select ActiveCell.FormulaR1C1 = "Date" Range("B1").Select ActiveCell.FormulaR1C1 = "Amount" Range("C1").Select ActiveCell.FormulaR1C1 = "Description" Range("A1:C1").Select Selection.Font.Bold = True With Selection HorizontalAlignment = xlCenter VerticalAlignment = xlBottom WrapText = False Orientation = 0 AddIndent = False IndentLevel = 0 ShrinkToFit = False ReadingOrder = xlContext MergeCells = False End With Columns("B:B").Select Selection.Style = "Comma" Columns("A:C").Select Selection.AutoFormat Format:=xlRangeAutoFormatSimple, Number:=False, Font _ :=False, Alignment:=True, Border:=False, Pattern:=False, Width:=True Range("A1").Select 'This part of the Macro sorts the data Range("D2").Select Application.CutCopyMode = False ActiveCell.FormulaR1C1 = "=IF(OR(ISNUMBER(SEARCH({""fee"",""inter""},RC [-1]))),""F"",IF(OR(ISNUMBER(SEARCH({""transf"",""dire ct pay"",""xf""},RC[-1]))),""T"",""O""))" Range("C2").Select Selection.End(xlDown).Offset(0, 1).Select ActiveCell.FormulaR1C1 = "end" Selection.End(xlUp).Select Selection.Copy Range("D3").Select Range(Selection, Selection.End(xlDown)).Select ActiveSheet.Paste Range("D2").Select Range(Selection, Selection.End(xlDown)).Select Application.CutCopyMode = False Selection.Copy Selection.PasteSpecial Paste:=xlValues Range("A1").Select Sheets("Sorted").Select Selection.AutoFilter Selection.AutoFilter Field:=4, Criteria1:="T" Range("A2:d2").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Sheets("transfers").Select Range("A2").Select ActiveSheet.Paste Columns("A:d").Select Columns("A:d").EntireColumn.AutoFit Sheets("Sorted").Select Application.CutCopyMode = False Selection.AutoFilter Field:=4, Criteria1:="O" Range("A2:d2").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Sheets("other").Select Range("A2").Select ActiveSheet.Paste Columns("A:d").Select Columns("A:d").EntireColumn.AutoFit Sheets("sorted").Select Application.CutCopyMode = False Selection.AutoFilter Field:=4, Criteria1:="F" Range("A2:d2").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Sheets("Fees-Interest").Select Range("A2").Select ActiveSheet.Paste Columns("A:d").Select Columns("A:d").EntireColumn.AutoFit Sheets("sorted").Select Application.CutCopyMode = False Sheets("transfers").Select Range("A1").Select ActiveCell.FormulaR1C1 = "Date" Range("B1").Select ActiveCell.FormulaR1C1 = "Amount" Range("C1").Select ActiveCell.FormulaR1C1 = "Description" Range("A1:C1").Select Selection.Font.Bold = True With Selection HorizontalAlignment = xlCenter VerticalAlignment = xlBottom WrapText = False Orientation = 0 AddIndent = False IndentLevel = 0 ShrinkToFit = False ReadingOrder = xlContext MergeCells = False End With Sheets("Fees-Interest").Select Range("A1").Select ActiveCell.FormulaR1C1 = "Date" Range("B1").Select ActiveCell.FormulaR1C1 = "Amount" Range("C1").Select ActiveCell.FormulaR1C1 = "Description" Range("A1:C1").Select Selection.Font.Bold = True With Selection HorizontalAlignment = xlCenter VerticalAlignment = xlBottom WrapText = False Orientation = 0 AddIndent = False IndentLevel = 0 ShrinkToFit = False ReadingOrder = xlContext MergeCells = False End With Sheets("Other").Select Range("A1").Select ActiveCell.FormulaR1C1 = "Date" Range("B1").Select ActiveCell.FormulaR1C1 = "Amount" Range("C1").Select ActiveCell.FormulaR1C1 = "Description" Range("A1:C1").Select Selection.Font.Bold = True With Selection HorizontalAlignment = xlCenter VerticalAlignment = xlBottom WrapText = False Orientation = 0 AddIndent = False IndentLevel = 0 ShrinkToFit = False ReadingOrder = xlContext MergeCells = False End With Thanks -- STEVEB ------------------------------------------------------------------------ STEVEB's Profile: http://www.excelforum.com/member.php...fo&userid=1872 View this thread: http://www.excelforum.com/showthread...hreadid=509401 -- Dave Peterson |
|
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Stop Macro if there is no data
Thanks for getting back to me Dave, I appreciate it! What is strange about this is if there are 3 or more lines the code works great..no problems. If there are less than three lines the code does not break..it just sorts things incorrectly. For example: The first part of the code looks at the text and assigns either a T,F or O in column D in the sheet named "Sorted" . Based on the sort the code copies info to either a sheet named "Transfer"(For all T's), "Fees" (For all F's) and "Other" (For all O's). However, when there is less than three lines the code will always want to put one line in the "Transfers" sheet even if there are no "T"s and then in the correct sheet. This does not happen when there are 3 or more lines, if there are no "T's" none will be posted. I hope this helps, it is probably a bit confusing..so if you need more detail, please let me know. Thanks -- STEVEB ------------------------------------------------------------------------ STEVEB's Profile: http://www.excelforum.com/member.php...fo&userid=1872 View this thread: http://www.excelforum.com/showthread...hreadid=509401 |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| How do I stop a macro from running within a macro? | Excel Programming | |||
| Stop running a macro in the middle of a macro | Excel Programming | |||
| Macro: With Stop it works. Without Stop it doesn't. | Excel Programming | |||
| Delete macro to stop importing data | Excel Programming | |||
| Start Macro / Stop Macro / Restart Macro | Excel Programming | |||
Hybrid Mode
