Код для ухода за клетками и после этого сделать If - PullRequest
Новая
       11

Код для ухода за клетками и после этого сделать If

0 голосов
/ 21 мая 2018

Я пытаюсь отфильтровать некоторые данные, используя If, но не могу.В приведенном ниже коде я пытаюсь найти диапазон ячеек, но он остановился. 

Set objExcel = CreateObject("Excel.Application")
Set objWorkBook = objExcel.Workbooks.Open("C:\Users\LuisEduardo\Desktop\Pruebas\PruebasF.xlsx")
objExcel.Visible = TRUE
Set objWorkSheet = objExcel.Worksheets("Sheet1")
objWorksheet.Name = "Sheet1"
objWorksheet.Activate
salida = ""
valor = objWorksheet.Cells.Range("E20")
valor2 = objWorksheet.Cells.Range("d20")
valor3 = objWorksheet.Cells.Range("C20")
If valor <= "1" Then
    If valor2 = valor3 Then
        salida = "correcto"
    Else 
        salida = "error"
    End If
End If
objWorksheet.Cells.Range("H1:H1000").Value = salida
objExcel.DisplayAlerts = False
objWorkbook.SaveAs "C:\Users\LuisEduardo\Desktop\Pruebas\PruebasF.xlsx"
objWorkbook.Close
objExcel.Workbooks.Close
objExcel.Quit
Set objExcel = Nothing
MsgBox("Filtred")
...