Comparar tres celdas de texto

Pelfort

New Member
Joined
Mar 22, 2019
Messages
1
'Escoger valor celda para borrar fotos e ir insertando segun correspondaPrivate Sub worksheet_change(ByVal target As Range)
If target.Cells.Count > 1 Then Exit Sub
If IsNumeric(target) And target.Address = "$L$9" Then
If Range("P7").Value = "3" Then
Select Case target.Value
Case 1: macro1
End Select
End If
If Range("P8").Value = "6" Then
Select Case target.Value
Case 2: Macro2
End Select
End If
If Range("P9").Value = "9" Then
Select Case target.Value
Case 3: Macro3
End Select
End If

Hola, soy nuevo aquí mando una parte de esta macro, que luego continua, si en la celda L9 entro un numero, funciona correctamente, automáticamente, pero deseo que en vez de número poner texto, un nombre y no funciona, lo he probado de mil maneras, haciendo cambios haciéndolo por macros bajadas de foros etc como debo hacer para que me funcione con texto? a veces lo he probado con formulas pero si el número viene de una formula no fuciona si el número lo pongo yo, si, gracias
 

Some videos you may like

Excel Facts

Does the VLOOKUP table have to be sorted?
No! when you are using an exact match, the VLOOKUP table can be in any order. Best-selling items at the top is actually the best.

James006

Well-known Member
Joined
Apr 4, 2009
Messages
3,680
Hola,

A mi me parece que la solucion deberia ser lo siguiente :

Code:
Private Sub Worksheet_Change(ByVal Target As Range)


If Target.Cells.Count > 1 Then Exit Sub
If Target.Address <> "$L$9" Then Exit Sub


If Range("P7").Value = "3" Then Application.Run ("Macro1")
If Range("P8").Value = "6" Then Application.Run ("Macro2")
If Range("P9").Value = "9" Then Application.Run ("Macro3")


End Sub
 

Watch MrExcel Video

Forum statistics

Threads
1,096,447
Messages
5,450,501
Members
405,614
Latest member
SJ789

This Week's Hot Topics

Top