My Macro Freezes and Doesnt Complete

T

tiraparson

New Member
Joined
Jan 11, 2019
Messages
3
If anyone can audit and tell me whats wrong. When I step through the code everything works but as a whole it crashes.

Code: 
[TABLE="width: 1500, align: left"]
<tbody>[TR]
[TD]Sub ImportTextFile()
Application.EnableEvents = False
Application.DisplayAlerts = False
'IMPORTS TICKETS
Dim vFileName
vFileName = Application.GetOpenFilename("Text Files (*.txt),*.txt")
If vFileName = False Or Right(vFileName, 3) <> "txt" Then
   GoTo BeforeExit
End If
Workbooks.OpenText Filename:=vFileName, _
    Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, _
        TrailingMinusNumbers:=True
Cells.Select
    Cells.EntireColumn.AutoFit
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
'Removing extra rows from the top.
  Rows("1:3").Select
    Range("A3").Activate
    Selection.Delete Shift:=xlUp
    Rows("2:2").Select
    Selection.Delete Shift:=xlUp
    Columns("A:J").Select
'COPY TO CURRENT WORKBOOK
Cells.Select
    Selection.Copy
    ActiveWorkbook.Close False
    
    Windows("TICKET AUTOMATION.xlsm").Activate
    Sheets("ALL TICKETS").Select
    Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
   Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(0, 1), Array(9, 1), Array(19, 1), Array(48, 1), Array(59, 1), _
        Array(66, 1), Array(79, 1), Array(95, 1), Array(102, 1), Array(121, 1)), _
        TrailingMinusNumbers:=True
    Columns("F:G").Select
    Range("G1").Activate
    Selection.Delete Shift:=xlToLeft
    Cells.Select
    Cells.EntireColumn.AutoFit
    With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    Columns("A:H").Select
    Range("H1").Activate
    ActiveWorkbook.Worksheets("ALL TICKETS").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("ALL TICKETS").Sort.SortFields.Add Key:=Range( _
        "E2:E630"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("ALL TICKETS").Sort
        .SetRange Range("A1:H630")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
'ADD NEW SHEETS
    With ThisWorkbook
        .Sheets.Add(After:=.Sheets(.Sheets.Count)).Name = "TRIAGE"
        .Sheets.Add(After:=.Sheets(.Sheets.Count)).Name = "CON"
        .Sheets.Add(After:=.Sheets(.Sheets.Count)).Name = "PARTS"
        .Sheets.Add(After:=.Sheets(.Sheets.Count)).Name = "ESC"
        .Sheets.Add(After:=.Sheets(.Sheets.Count)).Name = "TECHS"
'ADDING HEADER
    Sheets("ALL TICKETS").Select
    Range("A1:H1").Select
    Selection.Copy
    Sheets("TRIAGE").Select
    Range("A1").Select
    ActiveSheet.Paste
    Sheets("CON").Select
    Range("A1").Select
    ActiveSheet.Paste
    Sheets("PARTS").Select
    Range("A1").Select
    ActiveSheet.Paste
    Sheets("ESC").Select
    Range("A1").Select
    ActiveSheet.Paste
    Sheets("TECHS").Select
    Range("A1").Select
    ActiveSheet.Paste
'MOVE TICKETS
Call CopyTECHS
Call CopyTRIAGE
Call CopyCON
Call CopyPARTS
Call CopyESC
'AUTOFIT
    Sheets("TRIAGE").Select
    Columns("A:H").Select
    Columns("A:H").EntireColumn.AutoFit
    Sheets("CON").Select
    Columns("A:H").Select
    Columns("A:H").EntireColumn.AutoFit
    Sheets("PARTS").Select
    Columns("A:H").Select
    Columns("A:H").EntireColumn.AutoFit
    Sheets("ESC").Select
    Columns("A:H").Select
    Columns("A:H").EntireColumn.AutoFit
    Sheets("TECHS").Select
    Columns("A:H").Select
    Columns("A:H").EntireColumn.AutoFit
'SAVE AS
Dim FName           As String
Dim FPath           As String
    FPath = "http://collaboration.ad.qintra.com/BU/Network/scph/HomeSecurityOnline/Shared%20Documents/METRICS"
    FName = Sheets("MACRO").Range("A2").Text
    ThisWorkbook.SaveAs Filename:=FPath & "" & "TICKETS" & " " & FName & " " & Range("MACRO!$A$2")
 End With
BeforeExit:
Application.EnableEvents = True
Application.DisplayAlerts = True
End With
End With
End With
End Sub
Sub CopyTECHS()
Dim i As Integer
Dim ws1 As Worksheet: Set ws1 = ThisWorkbook.Sheets("ALL TICKETS")
Dim ws2 As Worksheet: Set ws2 = ThisWorkbook.Sheets("TECHS")
For i = 2 To ws1.Range("E65536").End(xlUp).Row
    If ws1.Cells(i, 5) = Range("LIST!$A$2") Then ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, 5).End(xlUp).Row + 1)
    If ws1.Cells(i, 5) = Range("LIST!$A$3") Then ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, 5).End(xlUp).Row + 1)
    If ws1.Cells(i, 5) = Range("LIST!$A$4") Then ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, 5).End(xlUp).Row + 1)
    If ws1.Cells(i, 5) = Range("LIST!$A$5") Then ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, 5).End(xlUp).Row + 1)
    If ws1.Cells(i, 5) = Range("LIST!$A$6") Then ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, 5).End(xlUp).Row + 1)
    If ws1.Cells(i, 5) = Range("LIST!$A$7") Then ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, 5).End(xlUp).Row + 1)
    If ws1.Cells(i, 5) = Range("LIST!$A$8") Then ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, 5).End(xlUp).Row + 1)
    If ws1.Cells(i, 5) = Range("LIST!$A$9") Then ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, 5).End(xlUp).Row + 1)
    If ws1.Cells(i, 5) = Range("LIST!$A$10") Then ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, 5).End(xlUp).Row + 1)
    If ws1.Cells(i, 5) = Range("LIST!$A$12") Then ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, 5).End(xlUp).Row + 1)
    If ws1.Cells(i, 5) = Range("LIST!$A$13") Then ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, 5).End(xlUp).Row + 1)
    If ws1.Cells(i, 5) = Range("LIST!$A$14") Then ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, 5).End(xlUp).Row + 1)
    If ws1.Cells(i, 5) = Range("LIST!$A$15") Then ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, 5).End(xlUp).Row + 1)
    If ws1.Cells(i, 5) = Range("LIST!$A$16") Then ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, 5).End(xlUp).Row + 1)
    If ws1.Cells(i, 5) = Range("LIST!$A$17") Then ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, 5).End(xlUp).Row + 1)
Next i


End Sub
Sub CopyCON()
Dim ws1 As Worksheet: Set ws1 = ThisWorkbook.Sheets("ALL TICKETS")
Dim ws2 As Worksheet: Set ws2 = ThisWorkbook.Sheets("CON")


For i = 2 To ws1.Range("E65536").End(xlUp).Row
    If ws1.Cells(i, 5) = Range("LIST!$B$2") Then ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, 5).End(xlUp).Row + 1)
    If ws1.Cells(i, 5) = Range("LIST!$B$3") Then ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, 5).End(xlUp).Row + 1)
    If ws1.Cells(i, 5) = Range("LIST!$B$4") Then ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, 5).End(xlUp).Row + 1)
    If ws1.Cells(i, 5) = Range("LIST!$B$5") Then ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, 5).End(xlUp).Row + 1)
    If ws1.Cells(i, 5) = Range("LIST!$B$6") Then ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, 5).End(xlUp).Row + 1)
    If ws1.Cells(i, 5) = Range("LIST!$B$7") Then ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, 5).End(xlUp).Row + 1)
    If ws1.Cells(i, 5) = Range("LIST!$B$8") Then ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, 5).End(xlUp).Row + 1)
    If ws1.Cells(i, 5) = Range("LIST!$B$9") Then ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, 5).End(xlUp).Row + 1)
    If ws1.Cells(i, 5) = Range("LIST!$B$10") Then ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, 5).End(xlUp).Row + 1)
    If ws1.Cells(i, 5) = Range("LIST!$B$12") Then ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, 5).End(xlUp).Row + 1)
    If ws1.Cells(i, 5) = Range("LIST!$B$13") Then ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, 5).End(xlUp).Row + 1)
    If ws1.Cells(i, 5) = Range("LIST!$B$14") Then ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, 5).End(xlUp).Row + 1)
    If ws1.Cells(i, 5) = Range("LIST!$B$15") Then ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, 5).End(xlUp).Row + 1)
    If ws1.Cells(i, 5) = Range("LIST!$B$16") Then ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, 5).End(xlUp).Row + 1)
    If ws1.Cells(i, 5) = Range("LIST!$B$17") Then ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, 5).End(xlUp).Row + 1)
Next i
End Sub
Sub CopyESC()
Dim ws1 As Worksheet: Set ws1 = ThisWorkbook.Sheets("ALL TICKETS")
Dim ws2 As Worksheet: Set ws2 = ThisWorkbook.Sheets("ESC")
For i = 2 To ws1.Range("E65536").End(xlUp).Row
    If ws1.Cells(i, 5) = Range("LIST!$C$2") Then ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, 5).End(xlUp).Row + 1)
    If ws1.Cells(i, 5) = Range("LIST!$C$3") Then ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, 5).End(xlUp).Row + 1)
    If ws1.Cells(i, 5) = Range("LIST!$C$4") Then ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, 5).End(xlUp).Row + 1)
    If ws1.Cells(i, 5) = Range("LIST!$C$5") Then ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, 5).End(xlUp).Row + 1)
    If ws1.Cells(i, 5) = Range("LIST!$C$6") Then ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, 5).End(xlUp).Row + 1)
    If ws1.Cells(i, 5) = Range("LIST!$C$7") Then ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, 5).End(xlUp).Row + 1)
    If ws1.Cells(i, 5) = Range("LIST!$C$8") Then ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, 5).End(xlUp).Row + 1)
    If ws1.Cells(i, 5) = Range("LIST!$C$9") Then ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, 5).End(xlUp).Row + 1)
    If ws1.Cells(i, 5) = Range("LIST!$C$10") Then ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, 5).End(xlUp).Row + 1)
    If ws1.Cells(i, 5) = Range("LIST!$C$12") Then ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, 5).End(xlUp).Row + 1)
    If ws1.Cells(i, 5) = Range("LIST!$C$13") Then ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, 5).End(xlUp).Row + 1)
    If ws1.Cells(i, 5) = Range("LIST!$C$14") Then ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, 5).End(xlUp).Row + 1)
    If ws1.Cells(i, 5) = Range("LIST!$C$15") Then ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, 5).End(xlUp).Row + 1)
    If ws1.Cells(i, 5) = Range("LIST!$C$16") Then ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, 5).End(xlUp).Row + 1)
    If ws1.Cells(i, 5) = Range("LIST!$C$17") Then ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, 5).End(xlUp).Row + 1)
Next i
End Sub
Sub CopyPARTS()
Dim ws1 As Worksheet: Set ws1 = ThisWorkbook.Sheets("ALL TICKETS")
Dim ws2 As Worksheet: Set ws2 = ThisWorkbook.Sheets("PARTS")
For i = 2 To ws1.Range("E65536").End(xlUp).Row
    If ws1.Cells(i, 5) = Range("LIST!$D$2") Then ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, 5).End(xlUp).Row + 1)
    If ws1.Cells(i, 5) = Range("LIST!$D$3") Then ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, 5).End(xlUp).Row + 1)
    If ws1.Cells(i, 5) = Range("LIST!$D$4") Then ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, 5).End(xlUp).Row + 1)
    If ws1.Cells(i, 5) = Range("LIST!$D$5") Then ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, 5).End(xlUp).Row + 1)
    If ws1.Cells(i, 5) = Range("LIST!$D$6") Then ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, 5).End(xlUp).Row + 1)
    If ws1.Cells(i, 5) = Range("LIST!$D$7") Then ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, 5).End(xlUp).Row + 1)
    If ws1.Cells(i, 5) = Range("LIST!$D$8") Then ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, 5).End(xlUp).Row + 1)
    If ws1.Cells(i, 5) = Range("LIST!$D$9") Then ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, 5).End(xlUp).Row + 1)
    If ws1.Cells(i, 5) = Range("LIST!$D$10") Then ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, 5).End(xlUp).Row + 1)
    If ws1.Cells(i, 5) = Range("LIST!$D$12") Then ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, 5).End(xlUp).Row + 1)
    If ws1.Cells(i, 5) = Range("LIST!$D$13") Then ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, 5).End(xlUp).Row + 1)
    If ws1.Cells(i, 5) = Range("LIST!$D$14") Then ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, 5).End(xlUp).Row + 1)
    If ws1.Cells(i, 5) = Range("LIST!$D$15") Then ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, 5).End(xlUp).Row + 1)
    If ws1.Cells(i, 5) = Range("LIST!$D$16") Then ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, 5).End(xlUp).Row + 1)
    If ws1.Cells(i, 5) = Range("LIST!$D$17") Then ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, 5).End(xlUp).Row + 1)
Next i
End Sub
Sub CopyTRIAGE()
Dim ws1 As Worksheet: Set ws1 = ThisWorkbook.Sheets("ALL TICKETS")
Dim ws2 As Worksheet: Set ws2 = ThisWorkbook.Sheets("TRIAGE")
For i = 2 To ws1.Range("E65536").End(xlUp).Row
    If ws1.Cells(i, 4) = Range("LIST!$E$2") Then ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, 4).End(xlUp).Row + 1)
    If ws1.Cells(i, 5) = Range("LIST!$E$3") Then ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, 5).End(xlUp).Row + 1)
    If ws1.Cells(i, 5) = Range("LIST!$E$4") Then ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, 5).End(xlUp).Row + 1)
    If ws1.Cells(i, 5) = Range("LIST!$E$5") Then ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, 5).End(xlUp).Row + 1)
    If ws1.Cells(i, 5) = Range("LIST!$E$6") Then ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, 5).End(xlUp).Row + 1)
    If ws1.Cells(i, 5) = Range("LIST!$E$7") Then ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, 5).End(xlUp).Row + 1)
    If ws1.Cells(i, 5) = Range("LIST!$E$8") Then ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, 5).End(xlUp).Row + 1)
    If ws1.Cells(i, 5) = Range("LIST!$E$9") Then ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, 5).End(xlUp).Row + 1)
    If ws1.Cells(i, 5) = Range("LIST!$E$10") Then ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, 5).End(xlUp).Row + 1)
    If ws1.Cells(i, 5) = Range("LIST!$E$12") Then ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, 5).End(xlUp).Row + 1)
    If ws1.Cells(i, 5) = Range("LIST!$E$13") Then ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, 5).End(xlUp).Row + 1)
    If ws1.Cells(i, 5) = Range("LIST!$E$14") Then ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, 5).End(xlUp).Row + 1)
    If ws1.Cells(i, 5) = Range("LIST!$E$15") Then ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, 5).End(xlUp).Row + 1)
    If ws1.Cells(i, 5) = Range("LIST!$E$16") Then ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, 5).End(xlUp).Row + 1)
    If ws1.Cells(i, 5) = Range("LIST!$E$17") Then ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, 5).End(xlUp).Row + 1)
Next i
End Sub

[/TD]
[/TR]
</tbody>[/TABLE]
 
Last edited by a moderator:

Excel Facts

How can you turn a range sideways?
Copy the range. Select a blank cell. Right-click, Paste Special, then choose Transpose.
Sort by date Sort by votes
At what line in the code does it crash, and what is the error message displayed by Excel/VBA?
 
Upvote 0
rlv01 said:
At what line in the code does it crash, and what is the error message displayed by Excel/VBA?
Click to expand...

Thanks for the reply.
It doesn't not give me an error. Excel freezes and then I get the usual "restart or close because the program not responding" error.
 
Upvote 0
tiraparson said:
Thanks for the reply.
It doesn't not give me an error. Excel freezes and then I get the usual "restart or close because the program not responding" error.
Click to expand...

Ok, then use the debug.print method. if you distribute multiple "debug.print" statements through your code , e.g.

Code: 
Sub ImportTextFile()
Debug.Print "1"

.
. code
.

Debug.Print "2"

. 
. code
.
Debug.Print "37"
End Sub

from beginning to end. Using this method you should be able to determine which line of code is causing the crash. Be sure to save the workbook before doing a test run, since otherwise you may lose all the added Debug.Print statements when/if the crash occurs.
 
Last edited:
Upvote 0
rlv01 said:
Ok, then use the debug.print method. if you distribute multiple "debug.print" statements through your code , e.g.

Code: 
Sub ImportTextFile()
Debug.Print "1"

.
. code
.

Debug.Print "2"

. 
. code
.
Debug.Print "37"
End Sub

from beginning to end. Using this method you should be able to determine which line of code is causing the crash. Be sure to save the workbook before doing a test run, since otherwise you may lose all the added Debug.Print statements when/if the crash occurs.
Click to expand...

I am attempting now.
 
Upvote 0
You must log in or register to reply here.

Similar threads

Logit
  • Question Question
Search In Other Workbook - Copy/Paste Offset Data To First Workbook - Repeat Process
Replies
7
Views
357
Logit
Logit
C
  • Solved
Copy data from multiple sheets into a master sheet - VBA button stuck
Replies
3
Views
372
NdNoviceHlp
NdNoviceHlp
T
  • Solved
Search for text and highlight row
Replies
5
Views
307
Joe4
Joe4
N
  • Question Question
Finding the differences then copy and paste code to a new sheet
Replies
1
Views
667
myall_blues
myall_blues
B
  • Question Question
Matching Multiple Header Row Cell Values - Copy the data below to next available row.
Replies
2
Views
572
B-radK
B

Forum statistics

Threads
1,224,827
Messages
6,181,194
Members
453,021
Latest member
pingpong7117

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