Recent content by senators40

Hi, I would like to create an add in that would warn me if I am saving to a specific folder. When I receive an email, with an excel attachment, if I open an excel file and save it - It saves to the temp email file and when I close the excel file all my work does not save so I would like a...

Thanks for the response. It worked very well In my real scenario the amount in cell A1 is a result of another formula in another row, which may be sorted, moved or deleted so I wanted the number of whatever was in cell A1 and then add another number in another cell. Thanks, Jeff

Hi, I have a cell in column A1 for 100 Cell C1 formula should be =A1+B1 However I would like it to be the value in cell A1 + the formula in B1 So the formula would be =100 + B1 If A1 were 150 the formula would be =150 + B1 Unfortunately the amount in A1 varies Any help would be...

Thanks for the input. I was able to figure out how to reference a cell in the other tab by using this code. Sheets("Sheet1").Select Sheet1Row = ActiveCell.Row Sheet1Column = ActiveCell.Column Sheets("Sheet2").Select If Sheets("Sheet1").Cells(Sheet1Row, Sheet1Column).Value = "" Then...

Hi, I would like to determine if the activecell in another workbook is blank and do a procedure if it is. I can do it if I know which cell I am referencing but I would like to determine the activecell as the number of rows may change. Below is what I can do if I want to find a specific cell...

I wanted to thank you for your response. Unfortunately I got an error message (Runtime Error 424 - Object Required) when I tried to run the program you wrote, however I was able to use the code to rewrite it to do what I wanted it to do. I have the code below Sub test() Dim rLookfor Dim...

Hi, I would like to do the following Column A has items like A1 = Yes A2 = No A3 = Maybe A4 = Probably A5 = Always with a number of other categories down the line I have items in column B which could vary B1 = Yes B2 = Maybe B3 = Probably I would like to identify all instances where the...

Hi, I do appreciate all the good work that everyone who contributes to the answers to questions and I have told many people about the good work that this site provides. I do appologize that I didn't send thank you's more often - it is an oversight which I will not do again. Sorry for not...

I know the function to determine the version of excel the user is using It is =Info("Release") in the excel cells as a function. How do I convert that into visual basic. When I record macro and put the function into the cell I get the following Sub Macro2() ActiveCell.FormulaR1C1 =...

Hi, I have a userform which has the Userform Name What_a_Grey_Textbox_Means In the coding I want to call up this userform - the coding shows up as What_a_Grey_TextBox_Means.Show The difference is that it converts the word Textbox into a capitalization of Box (presumably assuming...

I would like to use the properties of cut for a formula while still maintaining the original place where the formula resided. For instance if the formula is in cell A3 =Sum(A1:A2) I want to move it to cell B3 and have the formula in B3 be =Sum(A1:A2) and still have cell A3 have =Sum(A1:A2) I...

Hi, I tried that but it still hangs. I also show the same situation during the following event Form1 loads. I hide Form1 and Show Form2. On top of Form2 I show Form3. I give the user the option to go to Form2 or go back to Form1. If they go back to Form1 I have a button on Form2 to go...

Hi, I have a userform (Form1) and I have another userform on top if a certain event happens. (Form4) On the second userform (Form4) I have a command button that says Completely Start Over. In that code for the Completely Start Over button I state the following Unload Me Unload Form1 Unload...

Thank you very much. This helped a lot Jeff

If Salaries.Text <> 0 and Land.Text <> 0 and Building.Text <> 0 and Other.Text = 0 then Other.Visible = False Elseif Salaries.Text <> 0 and Land.Text = 0 and Buildings.Text <> 0 and Other.Text <> 0 then Land.Visible = False Building.Top = 20 Other.Top = 30 Elseif Salaries.Text <> 0 and...