msgbox

Hi, I believe the code supplied below is what you require. I have a worksheet database where i send out parcels to customers & once parcel is received i like to make a note of the date on my database. I have a drop down list on my userform which looks at the worksheet & loads any customers name...

I am unsure of how to explain this but I will do my best! I currently utilize a module that can count and sum based on the color of a cell or the font. It works wonders https://www.ablebits.com/office-addins-blog/2013/12/12/count-sum-by-color-excel/comment-page-2/. Whenever that information is...

Maybe it's the time of the day, but could someone explain to me where I'm failing in the syntax? If Application.WorksheetFunction.CountIf(Sheets("BiWeeklyCalendar").Range("D5:D14"), Sheets("BiWeeklyCalendar").Range("D5"), ">" & 1) Then MsgBox ("found") End If In the cell, I got a...

Sub test() Dim textVAR(0 To 5) As String Dim i as Long textVAR(0) = "Do" textVAR(1) = "Re" textVAR(2) = "Me" textVAR(3) = "Fa" textVAR(4) = "So" textVAR(5) = "La" For i = LBound(textVAR) To UBound(textVAR) If textVAR = "Do" Then msgbox textVAR Else msgbox "Nope" End If next i End Sub if i...

So I entered the code below into my personal.xls thisworkbook section in hopes that every time a new workbook opens i would get me the name of the new workbook displayed. But no, the first time it gives me "Personal.xls" subsequent newly opened work book it does not respond at all. Any ideas...

Hello all, My msgbox is not working. Would like to show a message, show the Information icon and add values from variables in 1 msgbox; If xEptTxtName <> "" Then MsgBox "The following required fields are not complete", vbInformation & vbNewLine & xEptTxtName & vbNewLine & xTxtName...

Hi How can I make the second marco print out the values from the first macro? for example I want to use the second marco to msg out x and y which are variable in first macro. Thank you so much. Sub myinputbox() 'to use msgbox Dim x As Integer Dim y As String x = InputBox("enter...

I want a way to generate any of these numbers at a time: 1234 0000 1111 2222 3333 4444 5555 6666 7777 8888 9999 I have this line below here which can check for the availability of those pins . I have been staring at it for a while now hoping to find a way around it but no success yet. I need...

Hi All I'm new here so please bear with me if I make a mistake with this post. I have assembled code (mostly not written myself but altered to suit - I am self taught & not an expert) which copies a sheet "AltPF Master - Rev 1" and allows the user to give the new sheet a name (the sheets are...

My code looks through all workbooks to find the complete name of the workbook. I want to add a check if the workbook is not found. I thougt this would work, but it doesn't. If AWorkbook Is Nothing Then MsgBox "A not found!" Any pointers? Public AWorkbook As Workbook Public BWorkbook As...

Hi all. I want to validate a textbox to confirm email has been entered correctly. I remember this being an issue in the past and it seems it still is. I have been using the code bellow and was feeling that, I don't want the OK message if the email is okay but rather want a user message asking...

Hi, I am trying to format a MsgBox string created from and array of cells. There are 3 columns in the cell range the 3rd of which have a % format. Msgbox writes the string as a decimal. Can anyone help with converting the range C2:C6 to a percentage the same as the source. I was trying to use...

Hi all. The code bellow checks customers sheet for a customers name then if it already exists, then it returns a message and then customer textbox is cleared and set focus to. however, the focus is not working but instead it's focused on the next textbox. Private Sub tbnbna_AfterUpdate()If...

Hello, I have the following code attached below that I have created and would like to copy the data that is input into the UserForm into multiple cells. For example lets say I have a textbox called TXTBX_Meals and I enter a Value of $12.00 I would like to populate the cell that is designated...

Hi all, I have a code that filters data, and then I have the following function: If IsEmpty(Range("A14").Offset(1, 0)) = False Then 'Is not blank MsgBox "ABC" Else 'Is blank MsgBox "XYZ" Essentially I'm trying to see if the next available row in the data is...

Evening, I am using the code supplied below. On my worksheet i have a date transfer button. What shappens is the customers receives his parcel. I open my userform & in the drop down list select that customers name. I then press the date transfer button & todays date is then put in the cell in...

I have a form "f_pac" that allows user to enter a new record. There are 4 textboxes, A,B,C,D. They are all number fields If there is any number in A or B or C then D must remain blank. If there is a number in D then A,B and C must be blank. Also need a msgbox explaining this to customer if...

Okay so I've been learning as I go, the below code all works fine... as long as you have a powerful machine to run it and plently of time. Does anyone have any suggestions as to how I can make it more efficent and faster? Sub Printdata() Dim Passport As Worksheet Dim Tally As Worksheet Dim...

Hello all, I am new to coding VBA and I am stuck on two aspects of the code. I am trying to insert an image under data that is on the excel sheet(the image is coming from a file on my computer), automatically delete the previous image without deleting a logo that is on the worksheet, and...

For Each nP In Range(Cells(1, 14), Cells(cntRowsN, 14)) ' E-H-S INCIDENT TALLY ' COPY THE ROWS IN THE "EHS" COLUMN (ON THE ANALYTICS SHEET) AND PASTE ONTO THE TOTAL COLUMN (A2) ON THE "REPORTS" WORKSHEET: If cntRowsN >= 1 Then 'copies just the rows in column F and pastes them on the...