vbnewline

I am new to vba, and for two columns I am trying to create a multi-select drop down lists using with vbNewLine (rather than being separated by a comma), but now I want to add in the capability to "deselect" items. This is my current code, as I do not know how to add in the "deselect" code part...

Hi all, I am trying to understand VBA as I am working on my document. I am getting stuck at the following issue: For two cells (D43 and D56)I want to be able to deselect values from a multi-select dropdown which presents each value below the other. My current code is as following (without...

Hi all it's me again, I'm using some code from Ron De Bruin's site to generate an email using the following code Sub Mail_small_Text_Outlook()'For Tips see: http://www.rondebruin.nl/win/winmail/Outlook/tips.htm 'Working in Office 2000-2016 Dim OutApp As Object Dim OutMail As Object...

Hi I have a bit of coding that copies an existing worksheet (called "SCHEMES") and puts it before another worksheet ("AUDIT") but I'd like to add in some code that will automatically take the content of cell A1 of the sheet that's copied across and automatically uses that as the worksheet name...

Good afternoon Mr. Excel, I have a workbook that runs through code using a UserForm with several TextBoxes and a couple of ComboBoxes. The below code shows what I have so far but I am trying to figure out how to Loop through the code a specific number of times based on a value the user will...

Hi, I have the code shown below. My intention is that cell Z21 must be UPPERCASE So typing tom jones in cell Z21 then when i leave that cell it changes to TOM JONES Private Sub Worksheet_Change(ByVal Target As Range) With ThisWorkbook.Sheets("HONDA SHEET") If Not Intersect(Target...

Hi Team, Please assist in converting below outlooks and word library code to late binding. Below is attempted Code. Sub Outlook_Late_Binding() Dim OutApp As Object Dim OutMail As Object Dim ProcurementStatusSh As Worksheet Dim WorkStatusSh As Worksheet Dim...

Hi I have a macro which I wrote from watching a couple of YouTube videos, it works however, I would like to add the company logo at the bottom of the email, the image is saved in W:\company\logo.jpg. My codes are as follows: Sub send_email_with_attachments() On Error Resume Next Dim o As...

:) Im so close! well kind of. Im a beginner and im trying to figure out how to Loop through ranges. So, i have an excel sheet and i want to send a series of emails once a week. So i currently figured out how to send an email based off of 1 chosen row (below), it takes the email address, it...

Sub SortSelectedWorksheets() '--------------------- MTxt = MsgBox("- Sort Selected Worksheet(s) -" & vbNewLine & "---------------------" & vbNewLine & _ "Yes : Ascendingly" & vbNewLine & _ "No : Descendingly", vbYesNoCancel) '--------------------- SheetCount =...

Hi All So trying to create an email, see code below, in particular the red text. I have data in columns N,O,P. but this can vary each time from 1 row to 30 rows. My example below showing 5 rows. What im wondering is if somehow i can loop, however many rows there happen to be per macro run...

Afternoon. I have a worksheet called HONDA SHEET which has a drop down list in cell A2 When i make a selection from the list my userform called HondaSoldItems is shown & values etc shown. Now what i would like to happen is when i press my close button on the form "NOT the red cross" cell A2...

Hi I have a small code that makes a shape with text. Are there anyone who can help change the code so that the three lines are centered horizontal in the shape? Best regards Jorgen Sub Shapes() Sheet1.Shapes.SelectAll Selection.Delete Set sh =...

Hi All I am after some help I have been asked if I can convert a spreadsheet that will have a variable number of rows into single XML files for ordering here is a basic example of my data <tbody> Name Brand Quantity Unique Code Mr Why Generic Ale 2 XML00001 Mr Who Generic Lager 4...

Hi, I am trying to write some vba code which will allow me to look to see the value of a cell, if that cell = X then display a msgbox "cell = X, are you Sure?" with options yes or no. If they click no then it exits the sub routine. If they click yes then the code continues onto the next line...

Hi I am using the built-in function Transpose to convert an array to a string and would like to use the current selection ie change this Comments = Join(Evaluate("TRANSPOSE('Base'!A1:A10 )"), vbNewLine) to Comments = Join(Evaluate("TRANSPOSE(Selection )"), vbNewLine) The latter gives a...

Can someone show me what code I would need to add to my current code. I want the "checkbox1" To look at the line that am on at on Column 'I" or "9" however that works and if the value is greater than "0" t recheck the box when the user form is opened. I am pretty new at this and have tried...

I have the following VBA which works to take data from the Workbook, create a new workbook and paste that data. Now I want code to utilize the SaveCopyAs to automatically save the file with name (fname) and path (fpath) taken from the original Workbook. I just don't know how to do this. The...

I have macro to email sheet3 the macro works perfectly except it shows the name of the workbook followed by today date of the attached workbook I need this amended so that only sheet3followed by todays date is shown in the attached workbook Kindly amend this section of my code...

I have a slide in a PowerPoint presentation ("myPresentation") with some text in a shape. I want to add more text to this. In order to do this, I have stored the old text in a variable, wrote my new text and concatenated it with the variable (see below). myPresentation.Slides.InsertFromFile...