Formato de celda, número

hola, !

En una columna quiero introducir un codigo que empezara por G o por I al que seguira un numero con dos cifras.
He creado para otras ocasiones un formato, de manera que al escribir un numero, por ejemplo el 1, aparezca directamente G-01.
Sin embargo ahora, como he dicho los codigos, o empiezan por G o por I.
Es posible crear un formato que al introducir yo, por ejemplo, g1 lo transforme en G-01
y al introducir, por ejemplo, i8 lo transforme en I-08. ...

suponiendo que esa "una columna" es la columna A a partir de la fila 2 -?????-
copia/pega (o escribe) lo siguiente en el modulo de codigo de "esa hoja"

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 And Target.Count > 1 Then ActiveCell.Select
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 1 Then Exit Sub Else On Error GoTo Restore
Application.EnableEvents = False
ActiveCell.NumberFormat = UCase(Left(Target, 1)) & "\-00"
ActiveCell.Value = Mid(ActiveCell.Value, 2)
Restore:
Application.EnableEvents = True
End Sub

En realidad yo pensaba que se podría hacer desde
Formato/celda/número/personalizada.

La propuesta tuya parece que corresponde al apasionante mundo de las macros,
el cual yo desconozco.

Gracias de todas formas




"Héctor Miguel" escribió:

hola, !

> En una columna quiero introducir un codigo que empezara por G o por I al que seguira un numero con dos cifras.
> He creado para otras ocasiones un formato, de manera que al escribir un numero, por ejemplo el 1, aparezca directamente G-01.
> Sin embargo ahora, como he dicho los codigos, o empiezan por G o por I.
> Es posible crear un formato que al introducir yo, por ejemplo, g1 lo transforme en G-01
> y al introducir, por ejemplo, i8 lo transforme en I-08. ...

suponiendo que esa "una columna" es la columna A a partir de la fila 2 -?????-
copia/pega (o escribe) lo siguiente en el modulo de codigo de "esa hoja"

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 And Target.Count > 1 Then ActiveCell.Select
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 1 Then Exit Sub Else On Error GoTo Restore
Application.EnableEvents = False
ActiveCell.NumberFormat = UCase(Left(Target, 1)) & "\-00"
ActiveCell.Value = Mid(ActiveCell.Value, 2)
Restore:
Application.EnableEvents = True
End Sub

Aun con mis limitaciones he introducido la instrucción en el código de hoja,
y no es eso lo que quiero, ya que me vincula el resultado a la celda
inmediatamente superior, y no quiero eso.


Yo quiero un formato de número que se pueda utilizar en cualquier celda y
que al introducir una letra y un número lo transforme en esa letra más un
guión y el mismo número siempre de dos cifras.






"Héctor Miguel" escribió:

hola, !

> En una columna quiero introducir un codigo que empezara por G o por I al que seguira un numero con dos cifras.
> He creado para otras ocasiones un formato, de manera que al escribir un numero, por ejemplo el 1, aparezca directamente G-01.
> Sin embargo ahora, como he dicho los codigos, o empiezan por G o por I.
> Es posible crear un formato que al introducir yo, por ejemplo, g1 lo transforme en G-01
> y al introducir, por ejemplo, i8 lo transforme en I-08. ...

suponiendo que esa "una columna" es la columna A a partir de la fila 2 -?????-
copia/pega (o escribe) lo siguiente en el modulo de codigo de "esa hoja"

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 And Target.Count > 1 Then ActiveCell.Select
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 1 Then Exit Sub Else On Error GoTo Restore
Application.EnableEvents = False
ActiveCell.NumberFormat = UCase(Left(Target, 1)) & "\-00"
ActiveCell.Value = Mid(ActiveCell.Value, 2)
Restore:
Application.EnableEvents = True
End Sub

hola, !

Aun con mis limitaciones he introducido la instruccion en el codigo de hoja
y no es eso lo que quiero, ya que me vincula el resultado a la celda inmediatamente superior, y no quiero eso.
Yo quiero un formato de numero que se pueda utilizar en cualquier celda
y que al introducir una letra y un numero lo transforme en esa letra mas un guion y el mismo numero siempre de dos cifras.

(segun yo ?) la propuesta de codigo del mensaje anterior "hace" (precisamente) lo que solicitas (p.e.

- en alguna celda en la columna A y de la fila 2 en adelante, al introducir una letra y un numero (p.e. g1, o h25)
el codigo lo transforma en G-01 o H-25 (segun las pruebas realizadas)

saludos,
hector.

__ OP __

En una columna quiero introducir un codigo que empezara por G o por I al que seguira un numero con dos cifras.
He creado para otras ocasiones un formato, de manera que al escribir un numero, por ejemplo el 1, aparezca directamente G-01.
Sin embargo ahora, como he dicho los codigos, o empiezan por G o por I.
Es posible crear un formato que al introducir yo, por ejemplo, g1 lo transforme en G-01
y al introducir, por ejemplo, i8 lo transforme en I-08. ...

suponiendo que esa "una columna" es la columna A a partir de la fila 2 -?????-
copia/pega (o escribe) lo siguiente en el modulo de codigo de "esa hoja"

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 And Target.Count > 1 Then ActiveCell.Select
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 1 Then Exit Sub Else On Error GoTo Restore
Application.EnableEvents = False
ActiveCell.NumberFormat = UCase(Left(Target, 1)) & "\-00"
ActiveCell.Value = Mid(ActiveCell.Value, 2)
Restore:
Application.EnableEvents = True
End Sub

Lo siento, pero no me funciona.

"Héctor Miguel" escribió:

hola, !

> Aun con mis limitaciones he introducido la instruccion en el codigo de hoja
> y no es eso lo que quiero, ya que me vincula el resultado a la celda inmediatamente superior, y no quiero eso.
> Yo quiero un formato de numero que se pueda utilizar en cualquier celda
> y que al introducir una letra y un numero lo transforme en esa letra mas un guion y el mismo numero siempre de dos cifras.

(segun yo ?) la propuesta de codigo del mensaje anterior "hace" (precisamente) lo que solicitas (p.e.

- en alguna celda en la columna A y de la fila 2 en adelante, al introducir una letra y un numero (p.e. g1, o h25)
el codigo lo transforma en G-01 o H-25 (segun las pruebas realizadas)

saludos,
hector.

__ OP __
>>> En una columna quiero introducir un codigo que empezara por G o por I al que seguira un numero con dos cifras.
>>> He creado para otras ocasiones un formato, de manera que al escribir un numero, por ejemplo el 1, aparezca directamente G-01.
>>> Sin embargo ahora, como he dicho los codigos, o empiezan por G o por I.
>>> Es posible crear un formato que al introducir yo, por ejemplo, g1 lo transforme en G-01
>>> y al introducir, por ejemplo, i8 lo transforme en I-08. ...
>>
>> suponiendo que esa "una columna" es la columna A a partir de la fila 2 -?????-
>> copia/pega (o escribe) lo siguiente en el modulo de codigo de "esa hoja"
>>
>> si cualquier duda (o informacion adicional)... comentas ?
>> saludos,
>> hector.
>>
>> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
>> If Target.Column = 1 And Target.Count > 1 Then ActiveCell.Select
>> End Sub
>> Private Sub Worksheet_Change(ByVal Target As Range)
>> If Target.Column > 1 Then Exit Sub Else On Error GoTo Restore
>> Application.EnableEvents = False
>> ActiveCell.NumberFormat = UCase(Left(Target, 1)) & "\-00"
>> ActiveCell.Value = Mid(ActiveCell.Value, 2)
>> Restore:
>> Application.EnableEvents = True
>> End Sub