Несколько условий в VBA

Question

В настоящее время я копирую некоторые данные на другой рабочий лист, но мне нужно ввести несколько условий в мою функцию if - в моей книге в колонке H есть шоколад, клубника, ваниль - мне просто нужно, чтобы шоколад и клубника смещались к следующему листу. До сих пор у меня есть,

If Sheets("Sheet1").Cells(i, "H").Value = "chocolate" 

Как сказать VBA, чтобы переместить всю строку, если столбец H имеет шоколад или клубника? Я попробовал -

If Sheets("Sheet1").Cells(i, "H").Value = "chocolate" Then 
ElseIf If Sheets("Sheet1").Cells(i, "H").Value = "strawberry" 

Но это закончилось тем, что просто держало только строки из клубники.

Answer 1

Используйте это для своего утверждения vba If.

If Sheets("Sheet1").Cells(i, "H").Value = "chocolate" Or Sheets("Sheet1").Cells(i, "H").Value = "Strawberry" Then 
... 
Your code 
End If