Here is a Cheat Sheet for DataTypes Variable End with: $ : String % : Integer (Int16) & : Long (Int32) ! : Single # : Double @ : Decimal Start with: &H : Hex &O : Octal Comparison between VB and VB.Net (reference) Visual Studio .Net added Literal Types (reference) Value End with: (For … Read more
VBScript’s While loops don’t support early exit. Use the Do loop for that: num = 0 do while (num < 10) if (status = “Fail”) then exit do num = num + 1 loop
You can use Cell.Interior.Color, I’ve used it to count the number of cells in a range that have a given background color (ie. matching my legend).
This question often comes up in Google, so I decided to add an important note. Don’t ever use X-Auto-Response-Suppress in your filters as suggested in the other answer. X-Auto-Response-Suppress is used by Exchange to tell other servers to not send auto-replies in response to an email. It doesn’t mean that this email is an auto-response. … Read more
Ok well this might work for you, a function that takes a path and returns an array of file names in the folder. You could use an if statement to get just the excel files when looping through the array. Function listfiles(ByVal sPath As String) Dim vaArray As Variant Dim i As Integer Dim oFile … Read more
application.cutcopymode = false
You can use the MSXML Base64 encoding functionality as described at www.nonhostile.com/howto-encode-decode-base64-vb6.asp: Function EncodeBase64(text As String) As String Dim arrData() As Byte arrData = StrConv(text, vbFromUnicode) Dim objXML As MSXML2.DOMDocument Dim objNode As MSXML2.IXMLDOMElement Set objXML = New MSXML2.DOMDocument Set objNode = objXML.createElement(“b64”) objNode.dataType = “bin.base64” objNode.nodeTypedValue = arrData EncodeBase64 = Replace(objNode.Text, vbLf, “”) Set … Read more
Application.CutCopyMode = False
Add a DoEvents function inside the loop, see below. You may also want to ensure that the Status bar is visible to the user and reset it when your code completes. Sub ProgressMeter() Dim booStatusBarState As Boolean Dim iMax As Integer Dim i As Integer iMax = 10000 Application.ScreenUpdating = False ”//Turn off screen updating … Read more
Just use Dim Cell As Range Columns(“B:B”).Select Set cell = Selection.Find(What:=”celda”, After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False) If cell Is Nothing Then ‘do it something Else ‘do it another thing End If