exit

Hi, Looking for VBA to save all sheets to PDF. Currently i have the below, but only saves the active sheet. Thanks. Private Sub CommandButton8_Click() Dim sPath As String Dim sFile As Variant Dim ws As Workbook On Error GoTo ErrHandle sPath = ThisWorkbook.Path & "\" &...

Am getting run time error on green marked line. Anyone please help to resolve this error. Sheets("Sheet2").Select Columns("A:A").Select lr = Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Row Set r3Search = Sheets("Sheet2").Range("A1:A" & lr) Set r3Search2 = Sheets("Sheet2").Range("A1:A" &...

Is this acceptable practice ?

Hello, Have the following code which works except it highlights the entire area it posted the data after doing the macro instead of just staying where the cell originally was. How can I get it to stay on cell B2 after running this code? Private Sub Worksheet_SelectionChange(ByVal Target As...

In my worksheet i have a code where when i type a number in a cell in column A its matched photo of which i have named the same as the entered number is automatically placed into the same row but in column B So A50 i type 123456 when i leave that cell automatically the photo 123456 is now shown...

Is there a way to insert a character while the user is still typing. For example if the user is entering the date, automatically insert either a "-" or "," or "/", or a "." after the first two characters. For this instance I just need to insert the character after the two digit month followed by...

I have a code to check for a duplicate in column B7 and downward. I need to somehow configure it so it finds a duplicate in row B7-downward AND C7-downward. Here's the kicker... I need it to be like an "AND" function. It will be OK if the unique ID's are duplicated in column B as long as the...

I have the property set to, "Match Required" for my comboboxes. I have a clear button that resets all of the values of my comboboxes to nothing, "". It keeps saying the selection is invalid after the clear button is pressed. I'll then fill out the form with the correct information and I'll...

Hello! In columns B2:B20 I have the Names of all the other sheets in the workbook and each sheet has information in it. What I want to be able to do is click on, let's say B4 and it references the appropriate Sheet name and pulls that data range to L2 and continue that process for each B:B...

HI ALL i this code to save my sheet as a pdf using info from cell c2 Private Sub CommandButton1_Click() ActiveSheet.ExportAsFixedFormat _ Type:=xlTypePDF, _ filename:="C:\release" & Range("C2") & ".pdf", _ OpenAfterPublish:=False, _ IncludeDocProperties:=True, _...

Hi, I have the following macro which replaces the data in cells that are not blank within several columns in an Excel table, however the macro takes more than two hours to run due to the size of the table (40,000 rows and 50 columns). Is there a more efficient code I could use that would...

how do i force a command button to be pushed before exit.

This is excel 2019 being extended with vba. Trying some simple, nonsense first.... and then.... FRUSTRATION the following code snippet is used as follows Cell #f21 has a value of tograms(a21,b21,16) A21 is typed as a numeric and has a value of 16 B21 is typed as text and has a value of “oz” 16...

I have the following code below I would like the input box to appears to input the date only if the date in A3 on sheet BR1 +30 < date , otherwise exit sub It would be appreciated if someone could amend my code Sub Date_Input() Sheets("Sales").Select Dim MyDate As String...

Hello, I have a userform that has decided that it is going to close excel each time I use it. I'm not sure where I've gone wrong in my coding and was hoping someone could double check it for me. thanks! Private Sub CommandButton5_Click()'"next" page button On Error GoTo Helper...

For example I enter 01/05/19 The 1st of April 2019 in my userbox Exit the macro 05/01/19 is entered in the cell instead. Sheets("View").Range("B3").Value = Me.Specifictext.Value I can only assume this is a Microsoft feature that reverts the value to American.

I have a userform that I am trying to get working. I have the inputs all set, make the validation, set it if correct but can't seem to get past the 'copy the data to the data base'. Here is my code: Private Sub CommandButton_Add_Click() '----------------------------------------------------...

So I've written this error coding. I was hoping someone could check it over and tell me 1. why userform18 won't show when running and 2. Is there coding I can put in userform 18 that would allow me to "screenshot" a highlighted string of code (the code that error'd) and screenshot (or save as a...

Have I written the following piece of code out correctly for handling errors? The XXX for error code is my own reference sheet of "error codes" so I can see which of the 187 modules (talk about a mess...) has an error and the other error code should come from excel. I want this to allow the...

I have a line of code which works. Do... If .....then Exit Do When the code is satisfied the loop stops, but I want it to move on to a next step and I am not sure how to do this.