programar rango o columna

On 14 dic, 21:37, Rony Lainez <Rony
wrote:
> Hola tengo un pequeño problema, estoy programando una columna que para al
> momento de ingresar un nombre en una celda de esa columna auntomaticamente
> me de otra informacion en la celda de la culmna siguiente y asi
> susesivamente, la verad que lo logre pero un codigo para cada celda y en lo
> que quiero que me ayuden es a programar la columna de una vez y no celda por
> celda, aqui esta el codigo que yo tengo:
>
> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
>
> If Range("E4").Value = "RIO" Then
> Range("F4").Value = "RIRIHN"
> ElseIf Range("E4").Value = "INA" Then
> Range("F4").Value = "RIINHN"
> End If
>
> If Range("e4").Value <> "RIO" Then
> Range("F4").Value = "INFORMACION INVALIDA"
> End If
>
> If Range("e4").Value <> "INA" Then
> Range("F4").Value = "INFORMACION INVALIDA"
> End If
>
> If Range("E4").Value = "" Then
> Range("F4").Value = ""
> End If
>
> End Sub
>
> este codigo me funciona pero lo tengo que hacer para cada celdA.
>
> TAMBIEN LO TENGO ASI PERO EN UNA CELDA
>
> =IF(A5="RIO";"RIRIHN";IF(A5="INA";"RIINHN";IF(A5 = ""; "";IF(A5<>
> "INA";"Informacion Incorrecta";IF(A5<> "RIO";"Informacion incorrecta")))))
>
> Y SI FUNCIONA SOLO LO COPIO EN LA CELDA QUE LO QUIERO Y YA PERO LO QUIERO
> HACER CON VISUAL BASIC.
>
> ESPERO ME PUEDAN AYUDAR Y DE ANTEMANO MUCHAS GRACIAS.

Hola Rony.

Prueba lo siguiente:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 5 Then
Application.EnableEvents = False
If Target.Value = "RIO" Then
Target.Offset(0, 1).Value = "RIHRIN"
ElseIf Target.Value = "INA" Then
Target.Offset(0, 1).Value = "RIINHN"
ElseIf Target.Value = "" Then
Target.Offset(0, 1).Value = ""
Else
Target.Offset(0, 1).Value = "INFORMACION INVALIDA"
End If
End If
Application.EnableEvents = True
End Sub


Saludos,

Benito
Barcelona
.