2015-12-02 3 views
0

Goodmorning из Голландии,Ошибка компиляции в VBA

Я просто n00bing вокруг VBA, и держать натыкаясь в к указанной ошибки компиляции, как показано на скриншоте; Screenshot Я бы хотел, чтобы это было решено, но я хочу узнать, как убить эти ужасные ошибки. Какая у меня ошибка?

+0

Где ошибка? – Fratyx

+0

Отредактировано, поэтому на экране отображается ошибка. – RobExcel

+0

Просто посчитайте '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' – Fratyx

ответ

2

Как сообщается вам в сообщении об ошибке, вам не хватает одного End If -Создание: Вы открываете три If -Приложения, но закрываете только два из них. (Я думаю, вы хотите поставить недостающую перед линией, заявив If not Rng Is Nothing Then, закрыв тем самым заявление If Trim(FindString) <> "" Then)

На будущее: Правильный отступ вашего кода поможет вам легко выявить такие ошибки!

+0

Спасибо, что задумались о том, чтобы понять, что отступы ясны. Второй хороший ответ на один из моих вопросов, герой. – RobExcel

+0

@RobExcel приветствую :-) Еще одна вещь: попробуйте добавить код в письменной форме, а не как снимок экрана. Это облегчает нам пробовать с ним, не вводя все с нуля! – Verzweifler

+0

сделаю. Хороший совет! – RobExcel

2

Вашей «Если не Rng ничего после этого» отсутствует знак «End If»

Это должно быть более очевидным, если вы отступ правильно кода.