set

Hi there, I have VBA to insert images from a filepath which is derived from a formula. The images insert just fine and are visible for me but if someone else opens the documents they cannot be seen (all settings are correct). I'm assuming I need to embed the images but cannot quite get the...

I want to set some numbers as system numbers to use against the ranking as done by the code below. Currently, I am using three numbers – 100, 95 and 90. In the future, I may reduce (say 2 numbers) or increase (say 5 or more numbers). And in each scenario, the aim is to make those numbers take...

hi all, I have the following code: For iCounter = 9 To iLast Set rng1 = ws.Range("G9:G5000").Find(ws2.Range("G" & iCounter).Value) If rng1 Is Nothing Then ws2.Range("A" & iCounter & ":" & "K" & iCounter).Copy ws.Range("A" & ws.Range("A" &...

I have a utility that copies charts and named ranges into PowerPoint slides. It worked fine until I added some code to (in bold below) resize the copied Shape and move it on the slide. Now it crashes with a Runtime error: 9 Subscript out of range (on the red line below) The DoEvents loops just...

Hi I have the below code which copies a range data from a workbook and it works well. I just want to copy formatting such as borders and font colour etc. I have tried using .PasteSpecial xlPasteValuesAndNumberFormats as per below but it doesn't seem to work. = ws.Range("A1:A13").PasteSpecial...

They keep pulling me back in! :) The sheets now need to parse from a 3rd database draw that is dumped into a worksheet in the workbook. A match of ZMB will generate > 1 response since ZMB gives Serial numbers to be added to the lot, and that works. Issue is it takes >25 minutes to run the...

Still struggling a bit. I can run the code below but the target workbooks columns are not sized the same as the primary sheet. There seems to be many ways to copy so i think im trying to mix them is why i keep getting a object error. Any suggestion would be helpful in the code below i've...

Hello everyone! First time post here and I am hoping someone will be able to answer a couple of issues I have been having with just starting out with VBA on excel. I have a spreadsheet that will have new info every week so the columns will stay the same, but the number of rows will vary...

Hi, I have the following working code in Excel that inserts a record into an Access database table. Can it be re-written so that there is no open/close of the database application? Sub New_Job_DB_Test() Dim r As Range: Set r = wAdd_Job.Range("New_Job_Record") With...

So I've got a drop down menu which creates an email. Body of the email is always the same but the addresses and subject change depending on the option chosen from the drop down list. It pulls the email addresses from a table and also inserts the contents of the clipboard to the body of the...

I have some code that used to copy certain columns from every record in a table on one sheet to new rows of a table on another sheet. I didn't change anything but it has stopped copying the rows when I run the code. This is the code: Sub cmdSend() Application.ScreenUpdating = False...

Hi, I have a code which works fine in respect of looking up a customers name, showing me the options in the display box & once i click the name i am taken to that person who is then in column B This is the code. Private Sub TextBox1_Change() Dim r As Range, f As Range, Cell As String...

I have 2 shared mailboxes where I retrieve the count of the mails. These 2 shared mailboxes have 2 different mailaddresses. When I combine these 2 codes, it gives the following error: <code style="margin: 0px; padding: 0px; border: 0px; font-style: inherit; font-variant: inherit; font-weight...

Im pretty new to VBA coding and searching on online and youtube hasnt yielded much help, as they all have their own way to do it and its been very confusing. I can do this via "Data > Get External Data > From Web" but its pulls in way more then what I need, as it picks the whole page and not...

I am trying to work out how to build a sort when I do not know at the outset how many columns I need to sort on. The first object was to see if I could pass the range and sort key dynamically. The following Macro does that getting range and column to sort by. When I try and build the entire...

Hello, I have data set that looks like 10/25/19 02:03:00 PM. I want to find a way to change another cell IF this cell's time is after 02:00:00 PM. Essentally, if the order was created after 2 PM, my pickup date (Column F) should be +1 data set looks like this Column D Create date D1 Cell ...

Hello, I have the following code: Sub VisibleSheets(Optional ByVal Control As IRibbonControl) On Error Resume Next Dim ws As Worksheet Dim wbNew As Workbook Dim WSHShell As Object Dim DesktopPath As String Dim VendorName As String Dim StoreName As String VendorName = Range("I2") StoreName...

Hi there, The code below has been working fine for dates before 10/1/2019 and when the B22 cell has the value of "This Month", but whenever the B22 cell has a future date (11/1/19, 12/1/19, etc.) then the code stops working on the first line of the first For Loop. Private Sub...

Hi all, I am trying to remove rows based on if a cell in column C is not blank for that row. Ive searched multiple threads but nothing is seeming to work for me. I have this one below that works great for removing rows where a cell IS blank. But I need to remove if the cell actually contains...

Hi all, I have an excel workbook that has multiple tabs, and once a week I have to mail 2 of the tabs (worksheets) to our Plant manager, I use a Mail Sheets Array and a macro button to do this and it works fine, but recently, I have added a "Charts" worksheet, and when it makes the temp copy of...