¿Como limitar Worksheet_SelectionChange(ByVal Target As Range) para que solo se active al dar clik en columna dada con macro ?
Y felices fiestas mis bendiciones para usted y su familia :3
Quiero es que esta macro solo se active al dar clic solo en la columna B que ya determine, funciona bien pero ejecuta la macro al dar clic en cualquier columna. Toma el valor de la fila donde este posicionada al dar clic y hace la comparación de lo que contenga la columna B y la fila en la que se dio clic con los nombres de los documentos que tengo en mi pc si lo encuentra pregunta si desea abrirlo y en caso de no encontrarlo pregunta si desea buscarlo manualmente
De igual manera agradecería si me pudieran decir como captar la letra de la columna y numero de fila al mismo tiempo
Este es el código que tengo hasta ahorita
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ChDir "C:\Users\cari\Documents\libros\"
nombre = Range("b" & ActiveCell.Row).Value
Set fso = CreateObject("scripting.filesystemobject")
If fso.fileexists(CurDir() & "\" & nombre) Then
x = MsgBox("el archivo existe. Desea abrirlo??", vbYesNo, "ATENCION")
If x = vbNo Then Exit Sub
Shell "C:\Program Files (x86)\Adobe\Reader 9.0\Reader\AcroRd32.exe " & nombre
Else: y = MsgBox("El archivo no fue localizado desea buscarlo manualmente", vbYesNo, "ATENCION")
If y = vbNo Then Exit Sub
On Error GoTo salida
ChDir "C:\Users\cari\Documents\libros\"
archivo = Application.GetOpenFilename
If archivo = False Then Exit Sub
Shell "C:\Program Files (x86)\Adobe\Reader 9.0\Reader\AcroRd32.exe " & archivo
Exit Sub
End If
End Sub
Funciona bien pero quiero que solo se active al seleccionar alguna fila de la columna B
De antemano les agradezco la ayuda :3
