Posts by Macropheliac

Re: Greater Than Zero

Hello, airpa!

What result should be produced by the formula? As it is, if anything is in column A, the result is the value of column B.

Mac

Re: Copy & Update Rows From One Sheet To Another When Saving

Hello again, QBPaladin!

Thanks for the compliment. I think this may be what you want. I added the following line at the beginning of the "UpdateOrders" code so that it will not run when the sheet is "wiped".

If Sheets("Orders").Range("A4").Value = "" Then Exit Sub

I added the following code to the BeforeSave event of the ThisWorkbook module to run the code each time the workbook is saved:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Run "UpdateOrders"
End Sub

I hope this helps.

Mac

Re: Variable Lists In Same Cell Controlled By Contents Of Another Cell

In the attachment below, I have created 3 lists. List1 is the vlidation list for A1. The list for B1 is decided by the selection in A1. Is this what you had in mind?

Mac

Re: Variable Lists In Same Cell Controlled By Contents Of Another Cell

Hello, jcsw!
To what kind of list are you referring? Is it a data validation list?

Mac

Re: Repeat Values Into A Column

Quote from StephenR

Oops, didn't read the question properly.

I misread as well. Oh well! No harm in offering several solutions.

My apologies,

Mac

Re: Copy & Update Rows From One Sheet To Another When Saving

Take a look at the attachment. Is that what you need? If this is it, then I'll explain how to run the code when saving.

Mac

Re: Center As Default

I used your code as an add-in to accomplish this. When you install the add-in, your code runs. Would that work for you?

Mac

Re: Repeat Values Into A Column

Maybe something like the attached?

Mac

Re: Log Users

Hello zotee98!
Have a look at the attachment.

Mac

Re: Current User

Try this:

Range("A1").Value = Environ("UserName")

Mac

Re: Find Out Next Chart

Hi udhay28!

Maybe something like this:

Sub NextLetter()
Dim CharRange As Range
Dim iResult As Range


Set CharRange = Range("A1")
Set iResult = Range("A2")


iResult.FormulaR1C1 = "=CHAR(CODE(""" & CharRange.Value & """)+1) "
End Sub

Mac

Re: Copy & Update Rows From One Sheet To Another When Saving

Hello, QBPaladin!

Could you possibly attach a copy or example of your file? It would be much easier to work it out.

Mac

Re: Option Button Name Changes When Copied To New Worksheet

Hello, Foxxy1!

Are you copying this button through code or manually? I don't quite understand what the problem is. Is it that you want the pasted button to have the same name as the copied button? What kind of button is it?

Mac

Re: Local Settings Overriding Savechanges:=false

Have you tried turning DisplayAlerts off?

Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True

Mac

Re: Selecting Generic Range

Try this:

Range(ActiveCell, Range("AJ" & ActiveCell.Row))

Mac

Re: Viewing Attachments In Current Threads

Hi, Tracy!

I've made the correction to the range. As for the "Subscript out of range" error, did you click "Debug"? If so, which line was shaded?

Mac

Re: Viewing Attachments In Current Threads

Try this, Tracy. I added 2 buttons to the worksheet. The first (Transfer) will transfer the data to the "Results " workbook. The other (Transfer Option) will let you decide which workbook to transfer to. Just enter the workbook name without the .xls.

Please post back with further questions or problems. I'll be glad to assist you.

Mac

Re: Viewing Attachments In Current Threads

No problem at all, Tracy! I'll be glad to take a look and see what I can do.

Mac

Re: Macro To Prompt User To Input Data

Assuming A1 should be populated:

Sub MakeSure()
If Range("A1").Value = "" Then
        MsgBox "Please enter a value for A1"
End If
End Sub

I hope this helps.

Mac

Re: Viewing Attachments In Current Threads

No problem, tpampel. I was under the impression you wanted to search by the item description(Column C). Try that and it should work. Then, we can make any changes you need to suit.

Mac