Gotta keep track of expensive licenses 20190613 unstalled Family license off JDB HP stream 11 20190430 Sold Touch Stream 13 to BenH, no office installed Also: According to the manual, the keystrokes to access the BIOS of the Stream 11 are: To start Setup Utility (BIOS), turn on or restart the computer, quickly press esc, and then press f10. I’ve just used this […]
Issue: Transaction activity exports from paypal have dates in m/d/yyyy format. Opening in Excel set to NORMAL date formats (d/m/y etc) for the rest of the entire goddam planet format results in 2 issues which screw up importing into my excel cashbook (used for GST returns) Dates recognised as dates are incorrect with m & […]
Related to this sort of MS Security update: http://support.microsoft.com/kb/3025036/EN-US This worked for us: Open a blank version of excel. Disable ActiveX controls in Excel Options. Open the offending file. (Click through any error received upon open) Save the file as a new name. Activate ActiveX controls. So saving file without ActiveX enabled does something? anyway […]
Dim objXL Dim wsSheet ‘– The full path to the template file must be provided in the command line ‘– level eg c:\Temp\_excel> npfmacro.vbs c:\temp\_excel\npftemplate.xlsm ‘– where the npfmacro.vbs is located in the directory c:\temp\_excel ‘– the npftemplate.xlsm has a macro in the module called npf_errorasses which is ‘– looking for a file called batch.xlsx […]
Sample retuned from AQT: 2015-11-20-15.00.00.000000 Paste above into Excel, and then: =DATEVALUE(LEFT(SUBSTITUTE(L3,”-“,”/”),10))+TIMEVALUE(MID(SUBSTITUTE(L3,”.”,”:”),12,8)) with milliseconds: =DATEVALUE(LEFT(SUBSTITUTE(AJ207,”-“,”/”),10))+TIMEVALUE(MID(SUBSTITUTE(AJ207,”.”,”:”),12,8) & RIGHT(AJ207,7))
Lost old Personal.. so starting to collect new one.. Private Sub BorderRowOnTop(row As Long) With ActiveSheet.Rows(row).Borders(xlEdgeTop) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With End Sub Private Sub ColourRow(row As Integer, colourSet1 As Boolean, inSelectionOnly As Boolean) Dim r As Range […]
Pinched from someone else, (needs additional character sets, e.g. mixed case, text & numbers) Dim Rand As String Dim i As Integer, RndNo As Integer, XSet As Integer Dim MyCase As Integer Application.Volatile Select Case MySet Case Is = “1” ‘Upper case MyCase = 65: XSet = 26 […]
You have no breakpoints but you get ‘Code has been interrupted’ Do: Press “Debug” button in the popup. Press Ctrl+Pause|Break twice. Hit the play button to continue. Save the file after completion. Yes it is a little mad… but that should fix it..