Default first two characters of cell input

[mr.bonligur]

hi,, im sorry for interrupting. im a newbie here. how can i post?


hi.. how cud i pre input two characters in default without typing it. im encoding code having the same first two letters as "BH" because we are using those codes. e.g. BHUN BHGY BHFD BHAA BHEE BHFD some what like that. im thinking it wud be more easy if i'l type letters UN only instead of BHUN, GY instead of BHGY and so on..

hope u can help me with this one. im from the philippines.

 

[BarCodeWiz]

How about this:

(Alt+F11, then double click on Sheet1 and copy the text into the editor.)

Private Sub Worksheet_Change(ByVal Target As Range)
If Left(Target.Value, 2) <> "BH" Then Target.Value = "BH" & Target.Value
End Sub

It will prefix your text with BH for any cell you change in the sheet, so be careful with that. I'm sure you'll need to finetune it for your needs.

 

[Sektor]

BarCodeWiz, what for is this checking?
If Left(Target.Value, 2) <> "BH"

 

[BarCodeWiz]

Sektor,

It prevents and infinite loop

 

[Sektor]

And what if I want to be in a cell BHBH?
To prevent infinite loop:

[COLOR="Blue"]Private[/COLOR] [COLOR="Blue"]Sub[/COLOR] Worksheet_Change([COLOR="Blue"]ByVal[/COLOR] Target [COLOR="Blue"]As[/COLOR] Range)
    Application.EnableEvents = [COLOR="Blue"]False[/COLOR]
        Target.Value = "BH" & Target.Value
    Application.EnableEvents = [COLOR="Blue"]True[/COLOR]
[COLOR="Blue"]End[/COLOR] [COLOR="Blue"]Sub[/COLOR]

 

[gregtx81]

I believe it is for when the user edits a cell that has already been populated.

 

[Sektor]

And what if I want BHBH to be in a cell?

 

[BarCodeWiz]

Very good. Your solution seems much better.

 

[gregtx81]

Type "BHBH"

 

[Sektor]

Cool solution taking into account mr.bonligur's request to enter only two letters.
Great!