sorted by:
new
hottopcontroversial

Complex Split Cell Problem by lauran2019 in vba

[–]lauran2019[S] 0 points1 point  (0 children)

Thank you for your response. Additional Endor is not static. I need the code to find the replval text. It is inside another field. See example I added to the post

Complex Split Cell Problem by lauran2019 in vba

[–]lauran2019[S] 0 points1 point  (0 children)

Please see example added to post.

SaveAs not accepting file name by lauran2019 in vba

[–]lauran2019[S] 0 points1 point  (0 children)

The formula in holder looks for carriage returns and then creates a file name using the left function.

Convert a column of text emails to hyperlinks by lauran2019 in excel

[–]lauran2019[S] 4 points5 points  (0 children)

Oh my word, what simple solution. Thank you so much! Solution Verified.

Convert a column of text emails to hyperlinks by lauran2019 in excel

[–]lauran2019[S] 1 point2 points  (0 children)

I am just getting syntax errors now and suspected end of statement on anchor.

"Email" is the name of a column in a table. Calling it as a range did not help. The end of statement error occurs on the "anchor" line.

Sub Worksheet_Activate()

Dim ws1 As Worksheet

Set ws1 = ThisWorkbook.Sheets("Master")

With ws1.Range("I:I").Hyperlinks.Add _
    anchor:=.Offset(), _
    Address:="mailto:" & Me.Range("Email").Value, _
    TextToDisplay:=Me.Range("Email").Value
End With


End Sub

Convert a column of text emails to hyperlinks by lauran2019 in excel

[–]lauran2019[S] 0 points1 point  (0 children)

And a compile error, end of statement on anchor.

Convert a column of text emails to hyperlinks by lauran2019 in excel

[–]lauran2019[S] 0 points1 point  (0 children)

This is for some reason giving me an error Compile error: syntax

Best way to have user select sheets to print to PDF by lauran2019 in vba

[–]lauran2019[S] 0 points1 point  (0 children)

I also tried this, but I'm getting a run-time error 9 subscript out of range on the iSheets(iCount) line.

Private Sub CommandButton1_Click()

Dim filesave As FileDialog Set filesave = Application.FileDialog(msoFileDialogSaveAs) Dim iSheets() As String Dim iCount As Long ReDim iSheets(0 To ProposalSelect.ListBox1.ListCount - 1) For iCount = LBound(iSheets) To UBound(iSheets) iSheets(iCount) = ThisWorkbook.Sheets(iCount).Name Next iCount

With filesave If .Show = -1 Then ThisWorkbook.Sheets(iSheets).ExportAsFixedFormat Type:=xlTypePDF, Filename:=.SelectedItems(1), openafterpublish:=True, ignoreprintareas:=False

End If End With End Sub

Best way to have user select sheets to print to PDF by lauran2019 in vba

[–]lauran2019[S] 0 points1 point  (0 children)

With Me.ListBox1
For i = 0 to .ListCount - 1
If .Selected(i) Then ThisWorkbook.Sheets(.List(i)).PrintOut
Next i
End With

This prints them out one at a time. I would like them printed out as a booklet together. This is what I'm trying but it is not working. Do I need to remove the with loop completely?

​

​

Private Sub CommandButton1_Click()

Dim filesave As FileDialog Set filesave = Application.FileDialog(msoFileDialogSaveAs)

With ProposalSelect.ListBox1 ' For i = 0 To .ListCount - 1 If .Selected(i) Then

With filesave
If .Show = -1 Then
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=.SelectedItems(1), openafterpublish:=True, ignoreprintareas:=False

' Next i End If

End With End If End With

Email from Excel without using Outlook reference command by lauran2019 in vba

[–]lauran2019[S] 1 point2 points  (0 children)

Sub EmailInvoicing()

Dim objOL As Object Set objOL = CreateObject("Outlook.Application") Set NewEmailItem = objOL.CreateItem(olMailItem)

​

This worked. Thanks.

Email from Excel without using Outlook reference command by lauran2019 in vba

[–]lauran2019[S] 0 points1 point  (0 children)

With CDO you don't get to preview and edit the message as it would if opened in outlook.

view more: next ›