Posts by Ger Plante

    Welcome to the forum BD....

    Did you post this question somewhere else?If so please link to the other threads that you have started on other websites

    Also, your thread title should describe the problem you are trying to solve and not specify you are in over your head. This helps other people when they are searching for solutions to similar type problems. I have updated the thread title now.

    For fast turnaround projects, with guaranteed solutions you should consider the hire help forum here...

    Anyway, without seeing your workbook and data - then the scenario you described is covered by the following code. It should get you started.

    if you need further help, please attached a sample workbook. Or go to the hire help section.


    Hi Paul - does this work?

    Just one extra line towards the end of the macro.


    Hi Lisa -welcome to the forum - if you attach your code in a workbook and remove any confidential data then maybe we can help you a little more.

    Subscript out of range could be that you are referring to an incorrect worksheet name e.g. Worksheets("Shhet1") would cause a subscript out of range, or if you are referring to an array, you may accidentally refer to an array element that doesnt exist. say there are 100 elements in the array and you referred to array(101), then this would also cause a subscript out of range.


    Thanks Pike - that works... its a better option than my multiple if statements, and complicated IIF effort.

    To restate the problem - if any of the ranges in a union is nothing then the resulting union is also nothing. So for example.
    Union ("A1", "E10") results in a range("A1","10")
    Union ("A1", "E10","G20") results in a range("A1","10","G20")
    Union ("A1", nothing ,"G20") results in a range = nothing (as opposed to a range with "A1" and "G20").

    So in my case, I had to test the ranges before "unioninising" them :)

    its a bit of a limitation on Union that I wasnt aware of... and it kinda sucks if you are doing a union with many ranges.


    You should use the "Databodyrange" method for the listobject to work with the data in the table. Databodyrange will always point to your data excluding your headers. When you combine this with specialcells(xlcelltypevisible) you will see how many cells are hidden or not.

    You can also set a range to those visible cells and then set their value to whatever you want... for example:

    note - if there are NO blanks in the column 6, the above code will fail, so you should allow the error to occur with "On error resume next" and then trap the error with something like "if not r is nothing then...."


    I had a problem today where I needed to indentify missing formulas from a column of data. Lets assume the data is in A1:A10.

    I thought it was a simple problem using specialcells method to identify constants (i.e. not a formula) and also blanks. This was fine, but I realised quickly that UNION will fail if any of the ranges were "nothing" i.e. the range was missing either a constant or a blank. So below are the three options. The last two worked, but arent ideal.

    Are there any other simpler suggestions (without loops anyway) to find missing formulas from a column of data.


    So far as I understand the recordset.find method can only take one criteria parameter so I think you are snookered there, but why dont you change SQL statement to include the search criteria... e.g. Select jmapartID, omlPartID from x where jmaPartID = c.value and omlpartID = c.value

    Put that SQL in the For each loop

    and just rsOra.recordcount on the result.

    That could be nonsense of course as I'm after two glasses of wine and my SQL and DAO are super rusty.


    Let me know if this works for you:

    Sub Multiplier()

    Dim dblAnswer As Double
    Dim rng As Range
    Dim rTemp As Range

    Application.ScreenUpdating = False
    On Error Resume Next
    Set rng = Worksheets("Page1_1").UsedRange.Columns("I").SpecialCells(xlCellTypeConstants, xlNumbers)
    If Not rng Is Nothing Then
    dblAnswer = CDbl(InputBox("Enter Multiplier for Column I", "Multiplier", 1))
    If dblAnswer <> 0 Then
    Set rTemp = Worksheets("Page1_1").UsedRange.SpecialCells(xlLastCell).Offset(1, 1)
    rTemp = dblAnswer
    rng.PasteSpecial xlPasteValues, xlPasteSpecialOperationMultiply
    rTemp = ""
    Application.CutCopyMode = False
    End If
    MsgBox "No numbers cells found in Column I"
    End If
    On Error GoTo 0

    Application.ScreenUpdating = True

    End Sub

    Got it... slight amendment for me:
    Sub Get_The_List_of_Exe_in_memory()

    Dim oServ As Object
    Dim cProc As Variant
    Dim oProc As Object

    Set oServ = GetObject("winmgmts:")
    Set cProc = oServ.ExecQuery("Select * from Win32_Process")

    For Each oProc In cProc
    ActiveSheet.Range("A" & Rows.Count).End(xlUp).Offset(1) = oProc.Name

    End Sub