Run-time error '13'; Type mismatch

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Run-time error '13'; Type mismatch (Формулы/Formulas)

vasilek7777

Дата: Пятница, 29.06.2018, 20:39 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 14

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Добрый вечер!
Подскажите пожалуйста в чем проблема, выдает ошибку "Run-time error '13'; Type mismatch" при выполнении строчки
[vba]

Код

For j = 1 To LastRow1
For Each rRow In outData.UsedRange.Rows

If inData.Cells(j, 8) = rRow.Cells(7) Then

[color=red]If inData.Cells(j, 2) < rRow.Cells(3) < inData.Cells(j, 2) + Minute("00:40:00") Then[/color]

inData.Cells(j, 10) = rRow.Cells(1)
inData.Cells(j, 11) = rRow.Cells(13)
inData.Cells(j, 12) = rRow.Cells(14)
inData.Cells(j, 13) = rRow.Cells(3)
inData.Cells(j, 14) = rRow.Cells(5)

[/vba]
До этого все было хорошо, сделала новую выгрузку, поля те же, типы те же. Пробовала приводить к одному типу, безуспешно.

Ответить

_Boroda_

Дата: Пятница, 29.06.2018, 20:54 | Сообщение № 2

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

Репутация: 6481 ±

Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS

1. Прочитайте Правила форума
2. Оформите код тегами - в режиме правки поста выделите код и нажмите кнопку # на панельке чуть выше
3. Приложите пример файла с полным кодом макроса
4. Вы точно уверены, что

Цитата vasilek7777, 29.06.2018 в 20:39, в сообщении № 1 ()

До этого все было хорошо

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

vasilek7777

Дата: Пятница, 29.06.2018, 22:40 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 14

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Спасибо!
Да, уверена, единственное, выгрузка новая, но запрос тот же(т.е. типы полей выгрузиться должны были без изменений)(

[vba]

Код

Option Explicit

Sub K_insert_Z()

Dim outData As Worksheet
Dim inData As Worksheet
Dim rRow As Range
Dim iRow&
Dim j As Integer

    Windows("may_Za.xlsm").Activate
    Dim LastRow1 As Integer

    'table borders KS
    LastRow1 = Worksheets("Part1").Cells(Rows.Count, 1).End(xlUp).Row

    'download KS
    Set outData = Workbooks("may_KS.xlsx").Worksheets("export-12")

    'insert KS in Za
    Set inData = Workbooks("may_Za.xlsm").Worksheets("Part1")

    'first row in the sheet
    iRow = 2

    'Dim FormulaCells As Range, ContentCells As Range
    'Dim cells As Rangege

    For j = 1 To LastRow1
        For Each rRow In outData.UsedRange.Rows

            If inData.Cells(j, 8) = rRow.Cells(7) Then

               If inData.Cells(j, 2) < rRow.Cells(3) < inData.Cells(j, 2) + Minute("00:40:00") Then

                    inData.Cells(j, 10) = rRow.Cells(1)
                    inData.Cells(j, 11) = rRow.Cells(13)
                    inData.Cells(j, 12) = rRow.Cells(14)
                    inData.Cells(j, 13) = rRow.Cells(3)
                    inData.Cells(j, 14) = rRow.Cells(5)
                    'inData.cells(j, 14).Interrior.Color

                End If
            End If

            iRow = iRow + 1

        Next rRow
    Next j
End Sub

[/vba]

К сообщению приложен файл: Module3.bas (1.3 Kb)

Ответить

Pelena

Дата: Пятница, 29.06.2018, 23:11 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 19182

Репутация: 4420 ±

Замечаний: ±

Excel 365 & Mac Excel

[vba]

Код

If inData.Cells(j, 2) < rRow.Cells(3) < inData.Cells(j, 2) + Minute("00:40:00") Then

[/vba]Это условие неверно записано.
Попробуйте так [vba]

Код

If inData.Cells(j, 2) < rRow.Cells(3) And rRow.Cells(3) < inData.Cells(j, 2) + Minute("00:40:00") Then

[/vba]

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

_Boroda_

Дата: Суббота, 30.06.2018, 03:18 | Сообщение № 5

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

Репутация: 6481 ±

Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS

Цитата _Boroda_, 29.06.2018 в 20:54, в сообщении № 2 ()

Вы точно уверены

Цитата vasilek7777, 29.06.2018 в 22:40, в сообщении № 3 ()

Да, уверена

Цитата Pelena, 29.06.2018 в 23:11, в сообщении № 4 ()

Это условие неверно записано

Я именно про это и намекал
первый кусок [vba]

Код

inData.Cells(j, 2) < rRow.Cells(3)

[/vba]дает True или False, а потом Вы полученное пытаетесь сравнить с каким-то значением (минутами)

Ответить

vasilek7777

Дата: Суббота, 30.06.2018, 22:09 | Сообщение № 6

Группа: Пользователи

Ранг: Новичок

Сообщений: 14

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Да нет, все работало именно так.
Исправила, как Вы мне предложили, но проблема осталась.
Сейчас пробую формат ячеек в самих файлах менять%).

Ответить

Pelena

Дата: Суббота, 30.06.2018, 22:22 | Сообщение № 7

Группа: Админы

Ранг: Местный житель

Сообщений: 19182

Репутация: 4420 ±

Замечаний: ±

Excel 365 & Mac Excel

Тогда прикладывайте пример с данными

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

vasilek7777

Дата: Суббота, 30.06.2018, 22:42 | Сообщение № 8

Группа: Пользователи

Ранг: Новичок

Сообщений: 14

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Вот в чем проблема, мне кажется, я сравниваю два столбца, в первом значение="01.06.2018 00:12" во втором значение="43280,18488"
Выделяю второй столбец, преобразовываю в формат, как в первом столбце, но все равно ему не нравится.
Может есть функция, преобразования. Date() не помогает, Format() тоже. Может эта комбинация чисел, это особенность excel?
Добавила 2 файла с проблемой.