Один макрос работает, другой нет

Question

Я импортирую валютные данные с веб-сайта по событию click .

. Импортирование выполняется и вызывается следующим кодом:

Option Explicit

 Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Count = 1 Then
    If Not Intersect(Target, Range("F13")) Is Nothing Then
        Call GetCurrency
    End If
End If
If Selection.Count = 1 Then
    If Not Intersect(Target, Range("F14")) Is Nothing Then
        Call UpdateCurrency
    End If
End If
End Sub

Если ячейкаНажатие F13, макрос GetCurrency запускается, импортирует данные, замечательно.

Но нажатие F14 ничего не вызывает.

Макрос валюты обновления выглядит следующим образом

Sub UpdateCurrency()

Range("N15").Value = Range("I19").Value
Range("N14").Value = Range("I26").Value
Range("N16").Value = Range("I22").Value

 End Sub

Это должно просто обновить некоторые другие ячейки, чтобы заставить другую формулу работать правильно.Вопрос в том, почему нажатие на ячейку F14 не запускает функцию UpdateCurrency?

Answer 1

Кажется, вам нужно немного изменить оператор if.

Option Explicit

 Private Sub Worksheet_SelectionChange(ByVal Target As Range)

 If Selection.Count = 1 Then
    If Target = Range("F13") Then
        If Not Intersect(Target, Range("F13")) Is Nothing Then
            Call GetCurrency
        End If
     Else
            If Not Intersect(Target, Range("F14")) Is Nothing Then
                Call UpdateCurrency
            End If
        End If
    End If
End Sub