convertir columna a may

KL, yo estaba poniendo la formula dentro de las celda de
la columna A ,ya lo hice como me dices y funciona pero no
es lo que yo quiero pues si pongo un dato nuevo no me lo
pone en mayuscula.
Un saludo pepe

fe de erratas:
En la primera parte de mi respuesta quise decir "Ahora

puedes eliminar la

columna [A]." y no "Ahora puedes eliminar la columna

[B]."

Saludos,
KL

"KL" wrote in

message

news:

Hola Pepe,

la primera de =mayusc(A1) me da un
error de referencia a la misma celda

Espero que no pongas la formula dentro de la misma

celda que quieres

convertir (o sea =mayusc(A1) dentro de la celda [A1]).

Lo que tienes que

hacer es introducir una nueva columna vacia, digamos

[B]. Luego en la

celda [B1] pones =mayusc(A1) y copias hacia abajo hasta

el final de tus

datos en la columna [A]. Seleccionas la columna [B]

entera, pulsas Ctrl+C,

vas al menu Edicion>Pegado Especial>Valores>Aceptar.

Ahora puedes eliminar

la columna [B].

si yo quisiera seleccionar un rango en la
columna A y que este cambiara a mayuscula como seria el
codigo

Prueba esteÑ

'-Inicio Codigo--
Private Sub Worksheet_SelectionChange(ByVal Target As

Excel.Range)

Dim rng As Range, celda As Range
Set rng = Intersect(Target, Me.Range("A:A"))
If rng Is Nothing Then Exit Sub
For Each celda In rng
celda = UCase(celda)
Next celda
End Sub
'-Fin Codigo--




Saludos,
KL

.

...pero ?te ha funcionado el segundo codigo que te puse?

KL

"pepe" wrote in message
news:11d601c536f4$5f30c900$
KL, yo estaba poniendo la formula dentro de las celda de
la columna A ,ya lo hice como me dices y funciona pero no
es lo que yo quiero pues si pongo un dato nuevo no me lo
pone en mayuscula.
Un saludo pepe

fe de erratas:
En la primera parte de mi respuesta quise decir "Ahora

puedes eliminar la

columna [A]." y no "Ahora puedes eliminar la columna

[B]."

Saludos,
KL

"KL" wrote in

message

news:

Hola Pepe,

la primera de =mayusc(A1) me da un
error de referencia a la misma celda

Espero que no pongas la formula dentro de la misma

celda que quieres

convertir (o sea =mayusc(A1) dentro de la celda [A1]).

Lo que tienes que

hacer es introducir una nueva columna vacia, digamos

[B]. Luego en la

celda [B1] pones =mayusc(A1) y copias hacia abajo hasta

el final de tus

datos en la columna [A]. Seleccionas la columna [B]

entera, pulsas Ctrl+C,

vas al menu Edicion>Pegado Especial>Valores>Aceptar.

Ahora puedes eliminar

la columna [B].

si yo quisiera seleccionar un rango en la
columna A y que este cambiara a mayuscula como seria el
codigo

Prueba esteÑ

'-Inicio Codigo--
Private Sub Worksheet_SelectionChange(ByVal Target As

Excel.Range)

Dim rng As Range, celda As Range
Set rng = Intersect(Target, Me.Range("A:A"))
If rng Is Nothing Then Exit Sub
For Each celda In rng
celda = UCase(celda)
Next celda
End Sub
'-Fin Codigo--




Saludos,
KL

.

Si, gracias he convencido a la gente que ocultaban los
tilulos y les explique como hacer para mostrarlos y
ocultarlos de nuevo,muchas gracias por tu colaboracion me
ha sido de gran ayuda.
Un saludos Pepe

pero ?te ha funcionado el segundo codigo que te puse?

KL

"pepe" wrote in

message

news:11d601c536f4$5f30c900$
KL, yo estaba poniendo la formula dentro de las celda de
la columna A ,ya lo hice como me dices y funciona pero no
es lo que yo quiero pues si pongo un dato nuevo no me lo
pone en mayuscula.
Un saludo pepe

fe de erratas:
En la primera parte de mi respuesta quise decir "Ahora

puedes eliminar la

columna [A]." y no "Ahora puedes eliminar la columna

[B]."

Saludos,
KL

"KL" wrote in

message

news:

Hola Pepe,

la primera de =mayusc(A1) me da un
error de referencia a la misma celda

Espero que no pongas la formula dentro de la misma

celda que quieres

convertir (o sea =mayusc(A1) dentro de la celda [A1]).

Lo que tienes que

hacer es introducir una nueva columna vacia, digamos

[B]. Luego en la

celda [B1] pones =mayusc(A1) y copias hacia abajo

hasta

el final de tus

datos en la columna [A]. Seleccionas la columna [B]

entera, pulsas Ctrl+C,

vas al menu Edicion>Pegado Especial>Valores>Aceptar.

Ahora puedes eliminar

la columna [B].

si yo quisiera seleccionar un rango en la
columna A y que este cambiara a mayuscula como seria

el

codigo

Prueba esteÑ

'-Inicio Codigo--
Private Sub Worksheet_SelectionChange(ByVal Target As

Excel.Range)

Dim rng As Range, celda As Range
Set rng = Intersect(Target, Me.Range("A:A"))
If rng Is Nothing Then Exit Sub
For Each celda In rng
celda = UCase(celda)
Next celda
End Sub
'-Fin Codigo--




Saludos,
KL

.

.