Страницы: 1
RSS
VBA Проверка с помощью IF (если), без учета формата
 
Уважаемые форумчане, здравствуйте.
Помогите, пожалуйста, разобраться, имеется две таблицы и макрос, который проверят по одним столбцам если значение совпадает, то переносит значение из одного столбца в другой столбец. Но при формировании одной из таблиц, у некоторых ячеек вылазит ошибка "число в этой ячейке отформатировано как текст или перед ним стоит апостроф.", и по этим ячейкам значение не переноситься. Подскажите, пожалуйста, как возможно сделать проверку и перенос не обращая внимания на формат.


Код
For i = 8 To 13
    If Cells(i, "E").Value = Cells(i, "K").Value Then
        Cells(i, "L").Value = Cells(i, "F").Value
    End If
Next i
 
Код
If StrComp(Cells(i, "E").Value,Cells(i, "K").Value,1) = 0 Then
    Cells(i, "L").Value = Cells(i, "F").Value
End If
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
Дмитрий,  большое спасибо за помощь) А подскажите если потребуется три ячейки сравнивать?
 
Цитата
Graber777: если потребуется три ячейки сравнивать?
Код
If CStr(Cells(1,1)) = CStr(Cells(1,2)) And CStr(Cells(1,2))=CStr(Cells(1,3)) Then
суть: сравниваем значения ячеек, предварительно преобразовывая их в текст
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
Страницы: 1
Наверх