Cómo funciona JustAnswer:
  • Preguntar a un Experto
    Los expertos tienen muchos conocimientos valiosos y están dispuestos a ayudar en cualquier pregunta. Credenciales confirmadas por una empresa de verificación perteneciente a Fortune 500.
  • Obtener una respuesta profesional
    Por correo electrónico, mensaje de texto o notificación mientras espera en su sitio. Haga preguntas de seguimiento si lo necesita.
  • Garantía de satisfacción plena
    Garantizamos tu satisfacción.
Formule su propia pregunta a Jose M.
Jose M.
Jose M., Especialista en Seguridad Informáti
Categoría: Informática
Clientes satisfechos: 10
Experiencia:  Instalación de Software y Hardware Informático.
53196706
Escriba su pregunta sobre Informática aquí...
Jose M. está en línea ahora

Hola, mi pregunta es la siguiente Tengo una macro para ver

Pregunta del cliente

Hola, mi pregunta es la siguiente:
Tengo una macro para ver si alguna celda de la hoja ha cambiado, pero no se como hacer que se guarde la fila de la celda modificada para ir a la columna G y realizar un cambio en la letra que se encuentra en dicha celda, es decir si existe una A pase a una B y si existe una B pase a una P.

Muchas gracias XXXXX XXXXX ayuda.
Enviada: hace 6 año.
Categoría: Informática
Experto:  Jose M. escribió hace 6 año.
Hola, gracias XXXXX XXXXX Justanswer.

Primeramente donde quieres guardar la celda modificada,¿ en G ? ¿y en G quieres hacer el cambio?

Un saludo
Experto:  Jose M. escribió hace 6 año.
Hola, mira este código creo que te puede ayudar en lo que quieres:

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("B1:B10")) Is Nothing Then

'MsgBox Target.Value
Range("F" & Target.Row).Value = Target.Value

Select Case (Target.Value)
Case "A": Range("G" & Target.Row).Value = "B"
Case "B": Range("G" & Target.Row).Value = "P"
Case "P": Range("G" & Target.Row).Value = "P"
End Select


End If
End Sub

Un saludo.

Editado por Jose M. el 03/02/2011 a las 17:53 EST