Sub macro345() If Range("G6").Value = Range("G9").Value Then Application.Run "Макрос6" Else Range("G6").Value > Range("G9").Value Application.Run "Макрос7"
End If End Sub
[/vba]
Прошу подсказать на счет правильности написанного. Что-то не работает. Сижу ковыряюсь.
[vba]
Код
Sub macro345() If Range("G6").Value = Range("G9").Value Then Application.Run "Макрос6" Else Range("G6").Value > Range("G9").Value Application.Run "Макрос7"
End If End Sub
[/vba]
Прошу подсказать на счет правильности написанного. Что-то не работает. Сижу ковыряюсь.ant6729
Sub macro345() If Range("G6").Value = Range("G9").Value Then Application.Run "Макрос6" ElseIf Range("G6").Value > Range("G9").Value Then Application.Run "Макрос7" End If End Sub
[/vba]
правильно так: [vba]
Код
Sub macro345() If Range("G6").Value = Range("G9").Value Then Application.Run "Макрос6" ElseIf Range("G6").Value > Range("G9").Value Then Application.Run "Макрос7" End If End Sub
ant6729, в вашем макросе (да и в том варианте, что я написал), непонятно, что надо делать, если Range("G6").Value < Range("G9").Value. Правильно будет так: [vba]
Код
Sub macro345() If Range("G6").Value = Range("G9").Value Then Application.Run "Макрос6" ElseIf Range("G6").Value > Range("G9").Value Then Application.Run "Макрос7" Else Application.Run "Макрос8" End If End Sub
[/vba] или, если запускаем тот же "Макрос7", то [vba]
Код
Sub macro345() If Range("G6").Value = Range("G9").Value Then Application.Run "Макрос6" Else Application.Run "Макрос7" End If End Sub
[/vba]
ant6729, в вашем макросе (да и в том варианте, что я написал), непонятно, что надо делать, если Range("G6").Value < Range("G9").Value. Правильно будет так: [vba]
Код
Sub macro345() If Range("G6").Value = Range("G9").Value Then Application.Run "Макрос6" ElseIf Range("G6").Value > Range("G9").Value Then Application.Run "Макрос7" Else Application.Run "Макрос8" End If End Sub
[/vba] или, если запускаем тот же "Макрос7", то [vba]
Код
Sub macro345() If Range("G6").Value = Range("G9").Value Then Application.Run "Макрос6" Else Application.Run "Макрос7" End If End Sub