Hi,

You haven’t said if this is a one-time requirement or a regular requirement.

I have written a short macro which assumes that this is a one-time requirement, and therefore there are few frills – for example, enter text that Excel does not recognize as a date, and the macro exits – no helpful messages or offers to try again.

Right-click on the name tab of a worksheet in your workbook.
Select ‘View Code’
In the large Visual Basic window that opens, enter this:

Sub AddDatedWS()
Dim strStartDt As String
Dim strEndDt As String
Dim dtStart As Date
Dim dtEnd As Date
Dim wsNew As Worksheet
Dim n As Double

'get start date
strStartDt = InputBox("Enter start date", "Create dated worksheets")
If Not IsDate(strStartDt) Then Exit Sub
'get end date
strEndDt = InputBox("Enter end date", "Create dated worksheets")
If Not IsDate(strStartDt) Then Exit Sub

'convert text to Excel's date format
dtStart = CDate(strStartDt)
dtEnd = CDate(strEndDt)
'test if start date equal to or later than end date
If dtStart >= dtEnd Then Exit Sub

'confirm number of sheets
If MsgBox("Create " & dtEnd - dtStart + 1 & " worksheets", vbOKCancel) = _
            vbCancel Then Exit Sub

For n = dtStart To dtEnd
    'create a new worksheet
    Set wsNew = ActiveWorkbook.Worksheets.Add(After:=Worksheets(Worksheets.Count))
    'name it with a date (date text can't contain : \ / ? * [ or ])
    wsNew.Name = Format(n, "dd.mm.yy")
Next n

End Sub

Place you cursor in the macro – on the line “Sub AddDatedWS ()” will do.
Click the f5 function key.
You will get two input boxes to allow you to enter start and end dates.
Enter dates in a format that Windows uses in your country, and Excel should recognize them. Use month abbreviations to avoid any risk of the order day-month / month-day being confused
After entering the end date, the macro asks if you want to create that number of worksheets – just in case you made a mistake and Excel is going to try and create 20000 worksheets !!!
Click OK and it then creates the required number of worksheets.
Click Cancel and the macro exits.

If you are going to use this often, then you need to decide where to place the macro and you will have to have a way to tell the macro which workbook to use. Also it would be nice to add some more user friendly steps if mistakes are made.

Regards

See less

I’ve made a couple of assumptions (which always comes back to bite me in the As_: your text file is crlf delimited lines, and you want all instances reported, not just one per line, and your output format is simply one instance per line.
With that understood, this seemed to work with limited testing:
‘==== begin vbscript
set fso=createobject(“scripting.filesystemobject”)
set junk=fso.opentextfile(“data.txt”,1)
set report=fso.createtextfile(“report.txt”)
do while not junk.atendofstream
line=junk.readline
words=split(line,” “)
for i=0 to ubound(words)
if left(words(i),3)=”098″ or left(words(i),3)=”123″ then
report.writeline line
exit for
next
loop
‘===== end vbscript
or:
do while not junk.atendofstream
line=” “+junk.readline
p=instr(line,” 098″)
if p=0 then p=instr(line,” 123″)
if p>0 then report.writeline line
loop See less

Re #11

It takes it back to new without having to specifically erase the files. Here’s the full blown explanation:
https://www.lifewire.com/what-does-…
When you have a problem it often sorts things out BUT it will be empty afterwards.

One easy way to do it is to right click the drive in Computer and select Format from the list.

Always pop back and let us know the outcome – thanks

See less

MAC addresses are the Layer 2 addresses of networking hardware. Similar to how Layer 3 addresses (IP addresses) work.

They are unique to the device from the manufacture – The first 6 characters of the MAC can identify the manufacture and the last 6 of the MAC is individual to the hardware.

If two devices have the same MAC address, a very similar issue would occur as if there were two computers that have the same IP address. Except you wouldn’t notice this error at first, it is handled at the switch level (Layer 2) and would not present itself to the operating system. There would be lost packets/network connectivity to one or both computers.

See less