Hola, necesito ayuda con una Macro

hola de nuevo, disculpame pero acabo de encontrar otra marra en el ultimo
codigo

resulta que si tienes una letra y un nº (pej : f5) tambien te ponia lo que
habia en la celda (f5 en el ej) correspondiente de la hoja1.

cambia esto ->

.Value = Hoja1.Range(Trim(.Value) & 1)

por esto en ambos codigos ->

If Not IsNumeric(Right(valor, 1)) Then _
.Value = Hoja1.Range(Trim(.Value) & 1)

NOTA=> (solo por si lo desconocieras) en los codigos, por comodidad, he
usado el CodeName de las hojas en vez de su nombre, y no me he dado cuenta
de cambiarlo. Ten cuidado con ello pues te puede marear si no lo controlas.
Puedes cambiar Hoja1 y/o Hoja2 por Worksheets("Hoja1") y/o
Worksheets("Hoja2") o el nombre de tus hojas si se lo has puesto
(Worksheets("TuHoja") ).

El Name y el CodeName pueden ser iguales (' y siendolo solo parecerlo
')pero no hacer referencia a la misma hoja/objeto. Puedes comprobarlo si
abres un libro nuevo, cambias el nombre a algunas hojas, insertas alguna,
abres el editor de vba y te fijas, en el explorador de proyectos, en los
nombres de las hojas que aparecen.

bueno, creo que esta puede ser la definitiva. Si quieres comentas como te ha
ido

un saludo
Ivan

Perfecto, la primera me sirve, muchas gracias de nuevo.

Un saludo

On 29 ene, 16:41, "Ivan" wrote:
Mostrar la cita

hola de nuevo

prueba a ver con estos codigos

Para la hoja:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim valor
With Target
valor = .Value
On Error Resume Next
.Value = Hoja1.Range(Trim(.Value) & 1)
If Err.Number <> 0 Then .Value = valor
On Error GoTo 0
End With
End Sub

para una macro en modulo normal:

Sub CambiarSiLetra3()
Dim celda As Range, valor
With Hoja2
For Each celda In .UsedRange
With celda
valor = .Value
On Error Resume Next
.Value = Hoja1.Range(Trim(.Value) & 1)
If Err.Number <> 0 Then .Value = valor
On Error GoTo 0
End With
Next
End With
End Sub

a ver que tal

un saludo
Ivan

Corregido, muchas gracias Ivan. ;-))

Un saludo


On Jan 29, 7:23 pm, "Ivan" wrote:
Mostrar la cita

hola de nuevo, disculpame pero acabo de encontrar otra marra en el ultimo
codigo

resulta que si tienes una letra y un nº (pej : f5) tambien te ponia lo que
habia en la celda (f5 en el ej) correspondiente de la hoja1.

cambia esto ->

.Value = Hoja1.Range(Trim(.Value) & 1)

por esto en ambos codigos ->

If Not IsNumeric(Right(valor, 1)) Then _
.Value = Hoja1.Range(Trim(.Value) & 1)

NOTA=> (solo por si lo desconocieras) en los codigos, por comodidad, he
usado el CodeName de las hojas en vez de su nombre, y no me he dado cuenta
de cambiarlo. Ten cuidado con ello pues te puede marear si no lo controlas.
Puedes cambiar Hoja1 y/o Hoja2 por Worksheets("Hoja1") y/o
Worksheets("Hoja2") o el nombre de tus hojas si se lo has puesto
(Worksheets("TuHoja") ).

El Name y el CodeName pueden ser iguales (' y siendolo solo parecerlo
')pero no hacer referencia a la misma hoja/objeto. Puedes comprobarlo si
abres un libro nuevo, cambias el nombre a algunas hojas, insertas alguna,
abres el editor de vba y te fijas, en el explorador de proyectos, en los
nombres de las hojas que aparecen.

bueno, creo que esta puede ser la definitiva. Si quieres comentas como te ha
ido

un saludo
Ivan