Posts by norie

Re: downloaded file from SAP can't open using VBA

Are you sure the file is being downloaded to the directory where the Excel application is stored?

Re: Copy Excel range into email - Type mismatch error

Christine

In your code strTable is a 2 dimensional array, Replace expects the 3rd argument passed to it to be a simple string.

What I would suggest you do is use Ron de Bruins function (RangeToHTML?) to get the HTML for the range sh2.Range("A16:G40").

As far as I recall the code for that function is pretty self explanatory - save/publish range as HTML file, read the HTML code from that file and return that from the function.

Re: Add combo box value to static or dynamic array

Do you want to add the selected value from the combobox to the array every time a selection is made?

If so try this.

Option Explicit
Dim arr() As String
Dim I As Long


Private Sub ComboBox1_Change()


    If ComboBox1.ListIndex <> -1 Then
        ReDim Preserve arr(I)
        arr(I) = Me.ComboBox1.Value
        I = I + 1
    End If
    
End Sub


Private Sub UserForm_Initialize()
    Me.ComboBox1.List = Array("A", "B", "C")
End Sub


Private Sub CommandButton1_Click()


    MsgBox "You selected: " & vbCrLf & Join(arr, ",")
    
End Sub

Re: Run-time error 424 - object required

Where are you setting/declaring sh1?

Re: userform combobox populated from two columns of a table

So you want to concatenate the data from columns 1 and 6 from the table and have the result appear in the combobox list?

What data is in those 2 columns and how will you use the first column to determine which worksheet to 'open'?

Could you upload a sample workbook?

Re: userform combobox populated from two columns of a table

How many columns in your combobox?

Re: VBA .Characters - Add bold to part of active cell with function

You can't use a function to do that, they can only return values.

Re: .Attachments.Add Issues

Logit

I think you might be on to something but "PDFFile" will no reference any variable, it's a literal string.

If you wanted to refer to a variable with the name 'PDFFile' you would use this.

.Attachments.Add PDFFile

Re: .Attachments.Add Issues

You should always specify the path.

Like I said if you don't VBA will use the current active directory which, if you are lucky, might work but isn't guaranteed to.

Re: Unkown error message

What's the value of deg when you get the error?

Re: .Attachments.Add Issues

Try adding the full path for the file you are trying to attach.

.Attachments.Add "C:\AFolder\TheFolderTheAttachmentIsIn\PDFFile.pdf"

You might also want to specify the folder when you create the file too.

If you don't specify the folder/path when VBA will use the currently active folder for creating the file.

Re: UserForm.listbox called from function / modules Twice - Remembers Previous Select

What is the code/userform actually meant to do?

Also, why are you calling the userform from a function?

Re: UserForm.listbox called from function / modules Twice - Remembers Previous Select

What exactly is the problem?

Is it that when you re-open the form the same value is still selected?

If that's the case it's probably because you only hide the userform when the listbox is clicked.

Re: VBA: web scrapping with custom dates

Can you post the URL(s)?

Re: Using two different Array List for one loop

What is the code meant to do?

What happens if more than one checkbox is checked?

PS What are the captions on the checkboxes?

Re: How to click buttons with img src

Where is this second button/image located?

Re: How to click buttons with img src

You could try submitting the form.

objIE.document.forms(0).submit

Re: Autofill Column A in series based on another Column in another Sheet VBA

Can you post the exact code you used when the copy didn't work as you wanted?

Might also help if you uploaded a sample workbook.

Re: Autofill Column A in series based on another Column in another Sheet VBA

You can't use AutoFill for this as the source and destination range need to be on the same sheet.

Try this.

Sheets("Sheet1").Range("A1:A" & LastRow).Copy Destination:=Sheets("Sheet2").Range("K2:K" & lrow)

Re: Unhide/ Hide Rows based on Cell Value issue

How are you running the code?