Get instant live expert help on I need help with vba string to integer

In excel VBA I have a sub that takes in 3 variables and in running the code generates 5 new variables. I would like to 5 either a single function or 5 different functions to return each of these variables without having redundant code where I have to repeat the same code in all 5 functions. See example below for my sub code: Sub MySub(Input1 as Integer, Input2 as Integer, Input3 as Integer) Dim Output1 as Integer Dim Output2 as Integer Dim Output3 as Double Dim Output4 as Double Dim Output5 as String MyVBACode EndSub

hi, I am stuck in a problem since one week and need help!!! I am running a SQL query in Excel 2010 VBA. The query runs fine but when I use GROUP BY, I get Automation Error. Everything works if I remove Group By but I need to group data. My query looks like: Dim objRs As New ADODB.Recordset Dim output As String Dim trows As Integer Dim ThisTab As Excel.Worksheet Dim tcols As Integer Dim i As Integer Dim sSQL As String ' sSQL = "SELECT * from [Data] where [Rem Scen 2] > 0 and (Now() - [Eval Date]) <=60" sSQL = "SELECT [Emp ID], [Deptt], [Job Types], [Join Date],[Pay 1]+[Pay 2] as [Compensate] from [Data] Group By {Emp ID] With objConn .Provider = "Microsoft.ACE.OLEDB.12.0" .ConnectionString = "Data Source=" & ThisWorkbook.Path & "\" & ThisWorkbook.Name & ";" & _ "Extended Properties=""Excel 12.0 Macro;HDR=YES"";" .Open End With ' Execute once and display... objRs.Open sSQL, objConn

Excel VBA not incrementing the value of a specific cell. Function SayIt(cell1 As Variant, Optional baSync As Boolean, Optional bPurge As Boolean) ThisWorkbook.Worksheets("Latest").Activate Dim Roll As Integer, result2 As String Roll = ThisWorkbook.Worksheets("Latest").Range("d2").Value ' The value of cell D1 is currently 1 MsgBox "Sayit Before ROLL " & Roll Roll = Roll + 1 MsgBox "Sayit After ROLL " & Roll End Function

I have a user function as follows that doesn't work: Function FORMAT8_I(Cells_Dat As Integer) As String FORMAT8_I = Right(" " & Format(Cells_Dat, "0"), 8) End Function When I change the Cells_Dat as a Long it work fine. I tried to debug the problem but it appears that when I have the original code above the cell that activates the function doesn't even go to the VBA function. It simple outputs a #NUM! error.

How do I find all formulas in 32 sheets over hundreds of rows that contain a partial string such as "This Company" where the formula looks like "=if(H2 = "This Company", "Yes","No"). This is a bit more complicated, but the upshot is that I need ti use VBA to locate formulas where the partial contents match a specific string. Any suggestions?