You could have a look at ESET. It requires a minimum of installation and is very effective, but I don't know if it can work from a USB drive.
I use it online from time to time to make a second sweep for any malware that my installed antivirus might have missed.
codegazer
Last Activity: Mar 13 '18, 04:53 PM
Joined: Oct 9 '15
Location:
-
If I understand this correctly, you are trying to create a list of latest completed interventions for each name.
Instead of trying to use the MAX function with associated auto ID problems, try this approach.
1. Read each line in turn, complete with row number.
2. If the check is not completed, discard the line.
3. If the check is True
3a Use the 'name' field to compare with any existing entry.
...Leave a comment:
-
Is it just the spacing of the text that you wish to improve?
Can you be a bit more specific?Leave a comment:
-
codegazer replied to how to round of invoice total round of decimal invoice total 123.44 need show roundin Visual BasicCint(variable) will round the value
(cint(variable) - variable) will show the amount of roundingLeave a comment:
-
The simple answers are;
Put the cursor on the line where you want to stop the code and press F9. The code will then be highlighted in red and execution will stop at this line. From there, F8 will advance execution one line at a time.
I presume there's more to the question than just this.Leave a comment:
-
I presume your odd/even refers to the length of the string.
If so, this will work.
Code:if len(yourstring)\2 = 0 then 'even number print "abcdef" else print "aebde@ end ifLeave a comment:
-
What win version are you trying to register the ocx on?Leave a comment:
-
I'm not here to write code for you, but I'm happy to point you in the right direction. (see below)
It gets more slightly more complicated if you need to append something to the previous line as per your example, but this should get you started. Have a go - people will help more if you will try.
Something on the lines of. . . .
...Code:Open filename1 for input as #1 open filename2 for output as #2
Leave a comment:
-
I'm afraid you're taking slightly the wrong view.
You can't move data and then 'delete row 5502'. This is a CSV file and all you do is to read the file, check each line in turn, adjust the data if need be, then write the file back to disk. You won't delete a row, you just won't write an empty one.Leave a comment:
-
I'm not sure that it can work in form load.
Try it in form activateLeave a comment:
-
codegazer replied to how to Subtract Time in VB 6.0???? please help. this is the last problem to solve myin Visual BasicWhat are you looking for?
Seconds, minutes, hours, days?Leave a comment:
-
You're very likely to have sussed this out by now, but I think you'll have to settle for Cost per trillion atoms or some other large number.
Just make sure that you multiply up before you divide thus:
(1000000000000 * decSampleCost) / decNumPerSample .Leave a comment:
-
One other question springs to mind.
Do you just want to identify and highlight cells with errors?
You then still have these cells to deal with, but you could also remove the problem characters at the same time as the scan if you wanted.
This link appears to show a very similar search.
http://www.devguru.com/technologies/vbscript/14108...Leave a comment:
-
I take it that the 'single zero' refers just to "0" with no other text in the cell, as referred to in the example data.Leave a comment:
-
@hvsummer
In your post, line 10 reads-
I realise that you're trying to identify the alpha-numeric characters, but ascii 91 - 96 are special characters as well.Code:if not (i > 47 and i < 58) and not (i > 64 and i < 123) then
Leave a comment:
-
You are nearly there.
A couple of adjustments as below should show the results
...Code:For i = 1 To lngLastRow For j = 1 To lngLastColumn-1 'extra loop to search to end of row for n= j+1 to lnglastcolumn If abs(Cells(i, n).Value - Cells(i, j).Value) = valDif Then arrMatch(lngMatch) = Cells(i, j).Address arrMatchValues(lngMatch) = Cells(i, n).ValueLeave a comment:
-
Can you show your code?
We cannot answer without it.Leave a comment:
-
Come on, Sandradepar.
You were very nearly there when you posted your code a week ago, but your code only ever compares adjacent pairs because you use j & j+1.
To find all results in each row, you will have to search from j to the end of the rowLeave a comment:
-
To be clear, can you confirm that you are trying to find ANY two numbers in each row that differ by 19?Leave a comment:
-
Sandradepar,
I don't know if you've got any further, but I felt I might offer you a clue. It isn't difficult stuff.
I don't do Excel VBA, but a 5-minute google will show that you can reference the cells quite easily so that line 22 might read:-
Code:22. if abs(Worksheets("Sheet1").Cells(a,n) - Worksheets("Sheet1").Cells(a,b))=19 then 'use abs in case of -ve numberLeave a comment:
No activity results to display
Leave a comment: