Ошибка времени выполнения «13» не может найти решение проблемы - PullRequest
Новая
       24

Ошибка времени выполнения «13» не может найти решение проблемы

0 голосов
/ 15 февраля 2020

Я довольно новичок в VBA, но необходимо, чтобы формула не попала в ячейки, поскольку ее собираются использовать несколько человек. Я написал код if-then, но кажется, что что-то не так, и я не могу понять это. Я искал вокруг, и я не могу найти решение. Я получаю сообщение об ошибке 13 несоответствие типов на странице = "Страница: 1/5". 

Sub Pagecontrole()

Dim Page As String
Page = Range("N4").Value

If Sheets("Lttlog P5").Range("F8:F37").Value = Not ("") Then
    Page = "Page: 1/5"
    Else
    If Sheets("Lttlog P4").Range("F8:F37").Value = Not ("") Then
        Page = "Page: 1/4"
        Else
        If Sheets("Lttlog P3").Range("F8:F37").Value = Not ("") Then
            Page = "Page: 1/3"
            Else
            If Sheets("Lttlog P2").Range("F8:F37").Value = Not ("") Then
            Page = "Page: 1/2"
            Else: Page = "Page: 1/1"
            End If
            End If
            End If
            End If

End Sub
...