Страницы: 1
RSS
Макрос запускающий два других по результатам сравнения ячеек
 
Добрый день, подскажите пожалуйста как можно прописать в макрос сравнение двух ячеек - проверяемой и контрольной, то есть после запуска макрос должен сравнить проверяемую с контрольной если она меньше - запустить макрос "Добавить" после чего опять сравнить, если больше то макрос "Убрать", если равно - прекратить работу, ну или как вариант - высчитать разницу и запустить нужный макрос столько раз сколько надо для уравнивания. Спасибо заранее.    
 
If, else либо select case
 
К сожалению я не продвинулcя в VBA сильно дальше правки записей рекордера, поэтому даже погуглив и почитав руководство с примерам If, else вижу все ту же китайскую грамоту ((( понял что мне нужна Функция IIf но это пока и все... еще и зациклить как то надо что бы повторялась пока ну достигнет нужного значения.
Изменено: CD_Zenit - 26.08.2019 14:03:35
 
Код
Sub main()
    Application.ScreenUpdating = False 'отключаем обновление экрана для ускорения
    With Лист2
        Select Case .[c2].Value
            Case Is > .[e2].Value: iDelite
            Case Is < .[e2].Value: iInsert
        End Select
    End With
    Application.ScreenUpdating = True
End Sub

Sub iInsert()
    Dim cell As Range
                
    Sheets("Лист3").Range("A1:A4").Copy
    Sheets("Лист2").Cells.Find(What:="Goo", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate
    ActiveSheet.Paste
End Sub
Sub iDelite()
    Dim cell As Range
    Range("A1:A3").Delete
End Sub
"Все гениальное просто, а все простое гениально!!!"
 
Спасибо большое, макрос работает, но как зациклить его так что бы он выполнялся до тех пор пока значения не сравняются мне понять так и не удалось ((, к Do Loop пытался прикрутить, но видимо не дано ((
Страницы: 1
Наверх