Posts by jproffer

Re: (programming process logic) how or where to ask

It's hard to follow your question, but if you surf this forum you will find several examples variables. Then if you come back with examples and questions about certain code examples, I'm sure someone will be glad to help you out.

Re: Separate Groups of Option Buttons

If you put each group into a Frame, only the Optionbuttons within each frame will be linked.

Re: run-tim error 9: Subscription out of range error

Ok...next step is posting your workbook on here as an attachment. Then we can get the total picture of what's going on.

Re: run-tim error 9: Subscription out of range error

Does the worksheet name really have that extra space at the end? I saw that, but figured it probably wasn't something like that. You might consider using the code name instead of the "string" name.

Re: run-tim error 9: Subscription out of range error

Try:

With .Sheets("2) Overdraft - NCCS (R925) ").Range("B" & st_row & ":M" & st_row).Copy

instead of what you have there.

Re: Excel VBA "OVERFLOW" Error

I can't test it as is because of the ProgressDialogue, but here's a shot. All I did was remove some of the unnecessary code (Range.Row to Range.Row, for instance...you can just use numbers). May still bug out, but who knows. If that doesn't fix it (and it probably wont) could you post your User Defined Type coding for the ProgressDialogue so we can test properly.

Sub pastevalues()
     
    Dim C As Range
    Dim i As Long
    Dim diag As New ProgressDialogue
    diag.Configure "Executing Code", "Executing Code...", 2, 262144
    diag.Show
     
    For Each C In Range("b2:b262144")
        For i = 2 To 262144
            diag.SetValue i
            diag.SetStatus "Executing Code..." & i
            If diag.cancelIsPressed Then Exit For
        Next i
         
        C.Value = C.Value
    Next
     
    diag.Hide
    MsgBox "Process Complete"
     
End Sub

Re: Object required error

Yea I forgot about that one (sorry about that )....remove the Set. So it would just be:

rInput = Application.InputBox _ 
(Prompt:="Enter the Cell Address of the points you wish to delete ... e.g. C2:", _ 
Title:="Delete Points", Type:=8)

The Set keyword only applies to object variables (ranges, worksheets, etc.)...and a string is not.

Re: Object required error

rInput should be a string not a range. Then the last line would be

Range(rInput).ClearContents

and you can skip the sAddress line

Re: Calling a userform from within another userform.

On testing (granted, some pretty mild testing) your code worked fine for me. Are you sure everything is named correctly? (the worksheet in particular)

Re: runtime error 9 subscript out of range

It would help if you would tell us what line is bugging out. And if that stuff after "Sub Macro3()"...the "Yahoo stock prices spreadhseet........" is actually in your code, there's the trouble. Any comments have to have a " ' " (single tick mark) in front of them.

Re: Excel Macro Variable Scope Problems

Have you tried dimensioning it as a Variant type? Not the best solution, but it might work.

Re: Date Help

If you multiply the date by 1 it should post it as a number. Format doesn't matter, the formula uses the integer value to do it's calculations anyway.

For instance:

Range("A1").Value = Textbox1.value * 1

EDIT BY MODERATOR: code tags are required on *ALL* code including single-line snippets.

Re: macro to set current workbook as variable and set as active later

Maybe making it a string instead...like this:

Sub switchWorkbook()
    Dim WB As String
    WB = ThisWorkbook.Name
    Windows("FEB PROJECT REPORT.CSV").Activate
    Windows(WB).Activate
End Sub

Re: Vba code to copy values down in the same column

Arm, as you can see, duplicate threads gets very confusing

See your other thread also....

nice solution Ger Plante

Re: code to Copy numbers 1 to 100 in the same column repeating 5 times

Try this:

Sub test()
Dim i As Integer
Dim Counter As Integer
Counter = 1
    For i = 1 To 500 Step 5
        Range("A" & i).Resize(5, 1).Value = Counter
        Counter = Counter + 1
    Next i
End Sub

Re: Problem with code for Clearing Content in Column Using User Input

CountA only counts non-blank cells, so if there are blanks in that column the loop won't go all the way to the bottom. That may not be an issue in this case, but try this and see:

Private Sub CommandButton1_Click()
     
     ' This will delete specific value in column
     
    Dim i As Integer
    Dim ColCount As Integer
    Dim DelValue As Variant
     
    DelValue = InputBox("Value to Delete?")
    ColCount = Range("B" & Rows.Count).End(xlUp).Row
     
     
    For i = 1 To ColCount
         
        If Cells(i, 2).Value = DelValue Then Cells(i, 2).ClearContents
         
    Next i
     
End Sub

If that don't work, post your workbook and someone might see something else causing your troubles.

Re: Move data from multiple columns copying 1st column each time

Could you post your actual workbook. All the numbers in that one seem to be had numbers (as opposed to formulas).

Also, post an example of what you want after the macro is ran.

The description you gave of what you want is hard to follow.

Re: Allow only one entry in column

No problem. Glad to help

Re: Allow only one entry in column

forum.ozgrid.com/index.php?attachment/45097/

Try that out and see if it does what you want. Column J (2:30) only allows X or x input, and only one at a time.

Re: Formula for Weekly Mileage and Cumulative Total

forum.ozgrid.com/index.php?attachment/45086/

Try that out. If certain cells are blank, then the formula returns blank so the totals will work correctly.