Search results for query: *

I have a sub that generates a Lotus Notes email via VBA. Everything works great when sending to only one recipient. How can I send to multiple recipients? Sub EmailCashDetailReportLotusNotes() Dim Maildb As Object Dim MailDoc As Object Dim Body As Object Dim Session As Object...

Using Excel, I need to create a macro to be run daily (manually via command button) to move files all located in one source folder to various destination folders depending on the file name and whether or not the file's name contains a variation on today's date. Source Folder: "I:\RP\Source\"...

I have a Word document with multiple command buttons. One command button (cmdIntroduction) in particular initiates a user form. When the user selects Submit on the user form, the folling code runs: For Each obj In ActiveDocument.InlineShapes If obj.OLEFormat.Object.Name = "cmdIntroduction"...

I have a template workbook that must be saved by initiating an on-sheet command button. I have code below that disallows the user to save via the normal channels, yet still allows me (my user id) to do so to make updates to the original document. However, I DO need the user to be able to save...

I need to revise the code below to allow for a wildcard. frmPCSS.txtSRQ.Text will always be 8 digits. However, the folder I am searching for may include characters after those 8 digits. Example: Folder may be - "SRQ12345678" or "SRQ12345678 - Test" How can I update my code for the strPath and...

I have a command button on an Excel sheet that runs some code and then saves the workbook. I need for any other save options to be disabled. In my code below, I think my issue may have to do with bSave and me not understanding how the boolean value works. Any advice? I have this in a module...

I have a single cell with a percentage (up to 100%) in it. Is there a way to highlight this cell as if it were like a progress bar? I am unable to get the Data Bar to give me the result that I am looking for. If the cell = 20%, I would like to see an actual 20% highlighted. Thoughts?

I have 33 activex checkboxes on an excel sheet. I would like to be able to calculate the percentage of how many of those are checked. Thoughts?

I have an ActiveX checkbox on a Word document. I would like for the checkbox's background to be transparent. I have set the BackStyle to transparent, yet when I turn off design mode, it is still showing a background color. Any thoughts on how to accomplish background transparency? Thanks!

I need to alternate the interior color of B7:C41. B7:C7 will never be hidden and should be RGB(219, 229, 241). The next unhidden row should be B?:C? = RGB(184, 204, 228). These colors should alternate through B41:C41 (which will never be hidden). I'm having trouble coming up with the loop...

I have a multiselect listbox that I would like to insert each selection into one cell, say "A1". With lstTEST .AddItem "A" .AddItem "B" .AddItem "C" .AddItem "D" .AddItem "E" End With Therefore if all are selected, when the command button is clicked, I would like the cell...

I have a user form with two comboboxes. The first a user selects a year. (txtYoA) The second is a month/last day of month combination (e.g. 1/31) containing all 12 months. (txtPYE) If the user selects a year that is a leap year in the first combobox, I want the second combobox to additem 2/29...

Column H is formatted as: Columns("H:H").NumberFormat = "h:mm:ss;@" I want to delete any row that has a time of 15:59:59 or prior. The following code is deleting every row. If Cells(i, "H").Value <= Format("15:59:59", "hh:mm:ss") Then Cells(i, "A").EntireRow.Delete...

I would like to select the entire row that is one after the last row with data in it. Dim LastRow As Object Set LastRow = Sheet1.Range("A65536").End(xlUp) LastRow.Offset(1, 0).Select Selection.Copy Set LastRow = Nothing Select isn't producing the result that I am...

This code... Sub NewSheet() Application.ScreenUpdating = False Dim strNewSheetName As String Last = Cells(Rows.Count, "A").End(xlUp).Row For i = Last To 1 Step -1 strNewSheetName = Cells(i, "D").Value & " " & Cells(i, "C").Value Workbooks("Web Transfer Worksheet.xlt").Activate...

For each UserID and PlanNumber combination, I would like to create a new worksheet and enter data into that worksheet (template). Column C Column D Column E UserID PlanNumber LotNumber 123456789 G11111 AB 123456789 G11111 X6 123456789 G11111...

Looking to delete rows if: 1) Cell A in row does NOT equal today's or yesterday's date. 2) Cell F in row equals cell G in same row. When I run the code, everything gets deleted. Thoughts? Sub DeleteRows() Dim strDay, strDayLessOne, strMonth, strYear, strDate1, strDate2 As String strDay =...

I have a menu that onclick of each item shows a specific div (content) and hides the others. I need the same effect on the menu itself. I am using anchor background images for the menu. The images are "two-in-one". I am only showing the top half of the image under normal circumstances and...

I have two spreadsheets that contain tabular data. Each row contains task time-tracking information for employees. So each row is one task with cells that contain date, amount of time, task type, notes, etc. The spreadsheets should be identical, yet I need to verify this. If I open a new...

Hi! I have a shared workbook in which users input data (daily) into a tabular dataset. I am looking to eventually create a dashboard from this dataset and as a first step would like to place the data in a Table. Since you cannot have Tables in a Shared workbook - what should be my next step...