Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations biv343 on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
-
Need some code tweaking. To scan text files to find certain figures
Sub test() Dim myDir As String, fn As String, txt As String Dim myMax As Double, myName As String, myLoc As String, n As Long Dim myMatch As Object, x, y, temp As String, i As Long, ii As Long myDir = ThisWorkbook.Path & "\" fn = Dir(myDir & "*.txt") If fn <> ""...- X82
- Thread
- Replies: 6
- Forum: VBA Visual Basic for Applications (Microsoft)
