Prefill cell with data and selecting cell if zero

[mbesspiata]

I have two questions on this post. I have to enter numbers into a cell for scripting into another program but the other program requires the numbers to be preceeded with a V00. Can I do some formula in the cell to where I can just type the number and it automatically places the V00 in front of it?

Second question is if a cell is blank, I want to pull in a specific date from another cell. What formula would I use in cells to say if this is blank, use this cell data?

Mike

 

[nuked]

This will solve your first problem.

Alt+F11
Double click your sheet on the left-hand side.
Paste this on the right hand side.

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Set rng = Range("A1") 'put your cell or range in here that you want this to apply to
If Not Intersect(Target, rng) Is Nothing Then
    Target = "V00" & Target
End If
End Sub

 

[nuked]

The problem with the second request is that as soon as you type into a box it removes the formula. So, you could have by default a formula which references another cell, or today's date, for example. Then the user can type over it with their own data if they want?

=A1
=Now()

 

[mbesspiata]

The alt f11 opens the macro folder. Where on the left side of my spreadsheet do I double click?
Am I pasting this into the spreadsheet or into the new macro?

 

[nuked]

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Set rng = Range("A1") 'put your cell or range in here that you want this to apply to
Application.EnableEvents = False
If Not Intersect(Target, rng) Is Nothing Then
    Target = "V00" & Target
End If
Application.EnableEvents = True
End Sub

Use this ^^^^^ instead.

Alt+F11

On the left side of the screen you'll see a list of your various sheets. Double click the sheet that you want this code to work on. On the right side, after you have double clicked the sheet, you'll see a big white area. Paste the code there. Save. Use.