msgbox

Hi, The code in use is shown below. This is how it works. I have a listbox with customers names. I select a name & when i press the DateTransferButton todays date then is entered into the cell for this customer at colomn G I believe at present if a value is in the G cell then i see a message...

I can't find the 2nd or 3rd Shape I'm want to edit. It locates the 1st one, but not the 2nd or 3rd. I used "record macro" to select the shapes and get the name. Sub PleaseFind() ActiveSheet.Shapes("Rectangle 9").Select ActiveSheet.Shapes("Rectangle 5").Select ActiveSheet.Shapes("Rectangle...

Hello, I'm attempting to do a VLookup in a macro while using the Match function to dynamically determine which column to look in. I did some testing by sending values to a Msgbox to validate I am passing the correct values. Ex: MsgBox "Match Value is : " & Match1 <== the value was 13...

When I remove the last slash from the path FullPath = ThisWorkBook.Path & "\MyFolder" It works fine to display "MyFolder". But when I place it back as below, it shows blank. How do I fix that? Because I need that last slash in my path. Thanks Sub GetLastFolder() FullPath =...

Hi The code below is to print each workbook's name. If I have 5 then it will msgbox these 5 files names. I want to improve this code so it can print all the name in one shot (not 5 msgboxs or whatever the number of the files). Is that possible? Thank you so much. Sub wb_names() 'to find...

Hi all, how can I "converting" this formula: Range("B2") = "=TYPE(RC[-1])" into VBA ? as: Msgbox Application.WorksheetFunction.Type("B2") ---> (but does not work!!!) Tia.

Hi, Can you advise please what ive missed in the code below. I run the code. I see the msg box with the oK button. Pressing OK just does nothing & im unable to close the msgbox. Option Explicit Private Sub DatabaseCustomerDuplicateSearch_Click() Dim Cell As Variant Dim Source As Range Set...

Hello guys, I need help again. I have a snippit that works when the sheet is defined (sheet3) but doesn't work when I try to make a variable for the active sheet (ws). I get an error that says "object doesn't support this property or method" and when I press debug it highlights my variable ws...

Hi Why when I enter 66 as a number, this code print "Else"? it does not go the first case? any idea why? I used F8 but again jump to the last case. Thank you very much. Sub test3() Dim x As Integer x = InputBox("enter number") Select Case x Case x > 50 MsgBox...

Evening, I’m looking for a msgbox but with buttons as 1 & 2. Is there a way to do this without it being a userform. Thanks

Hi I just wanted to know why excel is not consistent here. I wrote the code below. When I call Data() excel will remove () and keep Date only; However when I used Time(), excel will keep the () It is not big issue but curious why there is not consistency here. Sub mytest2() MsgBox Date...

Morning, I have merged two codes together but the seocnd part of the code does not execute / run I press my PRINT 1 INVOICE BUTTON on my worksheet. The invoice is then printed. I see the msgbox CLEAR INVOICE AFTER PRINTING. I press the OK button but after the msgbox is closed then this is...

Morning, I have the code below but would like some advise for a slight alteration please as i got lost with the yes / no part of it.. The code saves a screen shot in the form of a PDF file. The Yes / No box is where im stuck. Clicking No would just continue to save as normal Clicking Yes...

Hi I wrote a code to ask user to enter first and last name and then the code will msgbox fullname. Now I want to improve the code. I want to msgbox the first letter for the first name then last name. So later I can msgbox the email address. For example, if user enter John Smith I want to...

Sub TestIndex() Dim arr, List$, i% List = "10,12,14,16,18" arr = Split(List, ",") For i = 10 To 18 Step 2 Select Case i Case LBound(arr) To UBound(arr) MsgBox arr 'Here, I want msgbox show say 0 to 4 End Select Next i End Sub So when...

Hello, I have a userform with some textboxes and command buttons (one of them, "cmdClose") I need to code the following scenario If I click "cmdClose" and the textamount is greater than Zero, pop up msgbox with vbYesNo, if I click Yes, close the userform, else, do nothing And if txtamount is...

here is a snip it of code for totalling time numbers of items pulled from a listbox into an array, then another array holding data is search for a match then the time number pulled from dataarraylist postion 3 column. msgbox total should show say 0:33 BUT shows...

Hi all I'm new here and kinda of new to VBA, but trying to learn. I have a bit of a tough one (for me at least). I am trying to write a code that can do the following. Whenever a row is hidden manually if the row contains a value greater or smaller than zero, and not text string in...

I am looking for a way to see if the workbook name contains the word "Template". If so, I want the macro to prompt the user to save the file. I have the code listed below, but it does not seem to give the correct response. How do I get this to work? If ThisWorkbook.Name = "*Template*" Then...

Hey everyone, I am having some issues with a message box popping up 3 times for each scenario in the code below. I tried using Boolean values as explained in similar posts, but that just made the problem worse. Basically, there are two cells in question. I'd like for one message ("A") to pop up...