[img alt_text='' description='']http://vbaf1.com/q/wp-content/uploads/2018/04/Setup.jpg[/img] The picture above shows how the sheet is setup. The picture below shows the result of the...
Thanks Hyside2, Will try out and get back to you. Regards Ozuberk
This Script has Syntax error - I tried to debug but was not successful
Oh sorry forgot the before and after pictures, Here they are. [img alt_text='' description='']http://vbaf1.com/q/wp-content/uploads/2018/04/1-1.jpg[/img]
For this to work please add custom format to format cells. Add 13 zeros as the custom format. See pictures....
[img alt_text='' description='']http://vbaf1.com/q/wp-content/uploads/2018/04/1.jpg[/img] - [img alt_text='' description='']http://vbaf1.com/q/wp-content/uploads/2018/04/2.jpg[/img] [code] Sub CountDateTime() Dim ws1 As Worksheet Set ws1 = Worksheets("Sheet1") Dim ltr...
[img alt_text='' description='']http://vbaf1.com/q/wp-content/uploads/2018/04/organizegrades.jpg[/img] Sub OrganizeGrades() Dim lastrow As Integer Dim lastcol As Integer Dim ws1 As Worksheet Dim ws2...
Dear Sir I tried the same as follows rng.Copy ws2.Cells(Rows.Count, 5).End(xlUp).Offset(1, -2).PasteSpecialxlPasteValues Run Time error is coming : Object...
I am new to this forum.
I have a problem while extracting data from a large .”txt” file to an excel (64 bit version). When the data exceeds 1.04 Mn lines then it just stops there and i have no clue how to extract the remaining data.
So i need my below VBA code to be modified to extract circa 1 Mn lines of data on one sheet called “data popl”and remaining data to another sheet called “data popl2”.
I am currently using the below code.
Thanks for your help
Sub Data Pull()
strDate = Format(Sheet1.Cells(2, 3), “yyyymmdd”)
Dim wbOpen As Workbook
Dim wbPath As String
Dim fName As String
Dim mfName As String
wbPath = “C:\Documents\New folder”
fName = “Population” & strDate & “.txt”
mfName = “Data Population_Lead.xlsm”
If Len(fName) > 0 Then Set wbOpen = Workbooks.Open(wbPath & fName)
Selection.TextToColumns Destination:=Range(“A1”), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), _
Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1)), _
Application.WindowState = xlMinimized
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
Application.WindowState = xlMaximized
Application.CutCopyMode = False
Please share using the share button above.
If you found the answer is best answer for your question, Please mark as 'best answer' by clicking on the right tick mark icon at the left side of the answer.
Found the answer useful and wants to credit the user, then vote the answer (vote up).