Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » web-master
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Ошибка Run-time error '438' на Intersect(Rows(5), TargetGlobal.EntireColomn).Value
 
#
26.12.2017 11:05:41
Sanja, оу, спасибо!!!!!!!
 
Перейти    
Ошибка Run-time error '438' на Intersect(Rows(5), TargetGlobal.EntireColomn).Value
 
#
26.12.2017 10:45:11
Добрый день.
Есть строка кода VBA
Код
Worksheets("СЗ временное подчинение").Range("A20").Value = "В связи с производственной необходимостью прошу Вас передать во временное подчинение работника " + Intersect(Columns(6), TargetGlobal.EntireRow).Value + " из " + Worksheets("График сменности").Range("E5").Value + " в " + Box_Unit.Value + " дата " + Intersect(Rows(5), TargetGlobal.EntireColomn).Value

Интерпретатор ругается на последнюю функцию Intersect(Rows(5), TargetGlobal.EntireColomn).Value ошибкой Run-time error '438' - Object doesn't support this property or method
В чем может быть проблема???
 
Перейти    
Ссылка на строку в найденом столбце
 
#
22.12.2017 15:33:49
БМВ, писал так, Ошибка Run-time error '438' - Object doesn't support this property or method
 
Перейти    
Ссылка на строку в найденом столбце
 
#
22.12.2017 15:02:48
Добрый день.
Есть код
Код
Intersect(Columns(6), TargetGlobal.EntireRow).Value
который возвращает значение шестого столбца в строке где найдено значение.
Как изменить код чтобы он возвращал значение не столбца а пятой строки в столбце где найдено значение?
Изменено: web-master - 26.12.2017 09:31:41
 
Перейти    
Mакрос перебора строк и очистки диапазона по условию, Run-time error '13' type mismatch
 
#
18.10.2017 14:17:31
Sanja, спасибо огромное, все работает
 
Перейти    
Mакрос перебора строк и очистки диапазона по условию, Run-time error '13' type mismatch
 
#
18.10.2017 14:08:18
Sanja, сейчас проверю, есть условие, эти диапазоны (по 200 строк) разделены одной строкой, которую трогать нельзя
 
Перейти    
Mакрос перебора строк и очистки диапазона по условию, Run-time error '13' type mismatch
 
#
18.10.2017 13:37:07
Спасибо всем большое за помощь, как можно сделать перенос длинной строки диапазона, символ _ не помогает
Код
Set myRng = Sheets("Табель (работники участка)").Range("H9:AL208,H210:AL409,H411:AL610,H612:AL811,H813:AL1012,H1014:AL1213,H1215:AL1414,H1416:AL1615,H1615:AL1816,H1818:AL2017,H2019:AL2218,H2220:AL2419,H2421:AL2620,H2622:AL2821,H2823:AL3022,H3024:AL3223,H3225:AL3424,H3426:AL3625,H3627:AL3826,H3828:AL4027,H4029:AL4228,H4230:AL4429,H4431:AL4630,H4632:AL4831,H4833:AL5032,H5034:AL5233,H5235:AL5434,H5436:AL5635,H5637:AL5836,H5838:AL6037,H6039:AL6238")
Изменено: web-master - 18.10.2017 13:37:15
 
Перейти    
Он-лайн контроль ввода слов, предложения системы ближайшего похожего слова при вводе текста в ячейку
 
#
17.10.2017 16:19:40
Вот набросал форму с мгновенным поиском по введенным буквам, ищет по базе в синем столбце, вставляет в выделенную ячейку желтого диапазона по двойному щелчку
 
Перейти    
Mакрос перебора строк и очистки диапазона по условию, Run-time error '13' type mismatch
 
#
17.10.2017 14:04:36
Теперь использую код #tolstak, работает очень быстро
Код
Dim i&, clearRn As Range
    For i = 9 To 208 Step 1
        If Cells(i, 1).Value = 0 Then
' Добавление выбранных ячеек к диапазону
            If clearRn Is Nothing Then
                Set clearRn = Range("E" & i & ":AI" & i)
            Else
                Set clearRn = Union(clearRn, Range("E" & i & ":AI" & i))
            End If
             
        End If
    Next i
' Очистка не каждого диапазона по отдельности, а скопом
    clearRn.ClearContents
End Sub
И возникла необходимость обрабатывать 30 диапазонов по 200 строк на одном листе, например 9-208, 210-409, 411-610 и так далее, как правильно это реализовать?
Изменено: web-master - 17.10.2017 14:05:33
 
Перейти    
Mакрос перебора строк и очистки диапазона по условию, Run-time error '13' type mismatch
 
#
17.10.2017 12:28:55
Цитата
tolstak написал:
А еще лучше так:
Спасибо, так код работает гораздо быстрее
 
Перейти    
Mакрос перебора строк и очистки диапазона по условию, Run-time error '13' type mismatch
 
#
17.10.2017 11:24:16
Добрый день.
Есть макрос перебора строк и очистки диапазона по условию, но компилятор выдает ошибку на 4 строку.
Не могу разобраться в чем проблема
Код
Dim i&
    For i = 9 To 208 Step 1
        If Range("A" & i).Value = 0 Then
            ActiveSheet.Range("E" & Rows(i) & ":AI" & Rows(i)).Select ' ошибка Run-time error '13' type mismatch
            Selection.ClearContents
        End If
    Next i
 
Перейти    
Формирование списка значений массивом из необъединенных в объединенные
 
#
21.09.2017 14:41:16
V, спс
 
Перейти    
Формирование списка значений массивом из необъединенных в объединенные
 
#
21.09.2017 14:01:07
Здравствуйте.
Столкнулся с проблемой использования формулы массива.
Необходимо из списка значений, ячейки которого не объединены перенести значения в список где ячейки объединены, по условию соседних ячеек, где стоит 1
Но с объединенными ячейками формула массива работает не корректно.
Может можно использовать другую формулу?
Во вложении пример.
Изменено: web-master - 21.09.2017 14:03:07
 
Перейти    
Список в проверке данных по условию
 
#
13.09.2017 15:33:47
Сергей, это я подготавливаю формулу для проверки данных
 
Перейти    
Список в проверке данных по условию
 
#
13.09.2017 15:18:58
Сергей, Bema, формулы на листе работают, но для проверки данных они не идут
 
Перейти    
Список в проверке данных по условию
 
#
13.09.2017 15:17:39
Jack Famous, здравствуйте, да принцип оттуда, но там нужно чтобы список был отсортирован, у меня сортировать список после каждого нового значения не получится. Вот и придумываю велосипеды
 
Перейти    
Список в проверке данных по условию
 
#
13.09.2017 14:32:44
Добрый день.
Делаю список проверки данных по условию соседних ячеек
Условие: создать список значений у которых в соседнем столбце стоит "0"
Формула такая, но работает немного не корректно
Файл во вложении, думаю будет понятно где не корректность
Код
{=СМЕЩ(B2;ПОИСКПОЗ(0;B2:B10;0)-1;-1;СЧЁТЕСЛИ(B2:B10;0);1)}
 
Перейти    
Настройка поиска Find
 
#
12.09.2017 16:28:04
Sanja, все работает, спасибо
 
Перейти    
Настройка поиска Find
 
#
12.09.2017 16:14:00
Добавил файл.
Написал не правильно
Всегда выполняется условие "найдено"
 
Перейти    
Настройка поиска Find
 
#
12.09.2017 15:52:24
Ошибка пропала, но почему то все равно выполняется условие "Не найдено"
Код
Public Sub Add_type()
    Dim Cell As Range
    If ActiveSheet.Range("AE5").Value <> "" And ActiveSheet.Range("AE5").Value <> "Введите название типа..." Then
        With Sheets("БД-типы")
        Set Cell = .Range("B2:B10001").Find(What:=.Range("AE5").Value, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=True)
        End With
        If Not Cell Is Nothing Then
            'найдено
            MsgBox "Совпадение"
            ActiveSheet.Range("AE5").Value = Empty
        Else
            'не найдено
            lLastRow = Sheets("БД-типы").Cells(Rows.Count, 2).End(xlUp).Row
            Sheets("БД-типы").Cells(lLastRow + 1, 2).Value = Range("AE5").Value
            ActiveSheet.Range("AE5").Value = Empty
        End If
    Else
        ActiveSheet.Range("AE5").Value = Empty
    End If
End Sub
Изменено: web-master - 12.09.2017 15:52:59
 
Перейти    
Настройка поиска Find
 
#
12.09.2017 15:35:42
Sanja,ясно, все равно не использую ее потом.
Но ошибка не пропала, runtime error 13 - type mismatch
Весь код такой:
Код
'Добавление типа
Public Sub Add_type()
    Dim Cell As Range
    If ActiveSheet.Range("AE5").Value <> "" And ActiveSheet.Range("AE5").Value <> "Введите название типа..." Then
        With Sheets("БД-типы")
        Set Cell = .Range("B2:B10001").Find(What:=.Range("AE5").Value, After:=.Range("B1"), LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=True)
        End With
        If Cell Is Nothing Then
            'найдено
            MsgBox "Совпадение"
            ActiveSheet.Range("AE5").Value = Empty
        Else
            'не найдено
            lLastRow = Sheets("БД-типы").Cells(Rows.Count, 2).End(xlUp).Row
            Sheets("БД-типы").Cells(lLastRow + 1, 2).Value = Range("AE5").Value
            ActiveSheet.Range("AE5").Value = Empty
        End If
    Else
        ActiveSheet.Range("AE5").Value = Empty
    End If
End Sub
Изменено: web-master - 12.09.2017 15:38:24
 
Перейти    
Настройка поиска Find
 
#
12.09.2017 15:23:50
Sanja, как этого можно избежать?
 
Перейти    
Настройка поиска Find
 
#
12.09.2017 15:21:03
runtime error 13 - type mismatch - ошибка  
Изменено: web-master - 12.09.2017 15:21:18
 
Перейти    
Настройка поиска Find
 
#
12.09.2017 15:05:08
Здравствуйте
Настраиваю поиск в диапазоне через Find таким кодом:
Код
Set Cell = Sheets("БД-типы").Range("B2:B1001").Find(What:=Sheets("БД-типы").Range("AE5").Value, After:=Sheets("БД-типы").Range("B1"), LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=True)
Но компилятор ругается на эту строку, подскажите как правильно сделать поиск в диапазоне?
Изменено: web-master - 12.09.2017 16:13:02
 
Перейти    
Запуск макроса с другой книги
 
#
05.09.2017 15:52:38
The_Prist, спасибо
 
Перейти    
Запуск макроса с другой книги
 
#
05.09.2017 15:24:30
Добрый день.
Возникла проблема, не запускается макрос с другой книги, постоянно пишет что макрос отсутствует
Уже ставил область видимости для макроса Public, не помогает
В чем еще может быть проблема?
Использую следующие разные коды:
Код
Application.Run("Ñâîä ðàñøèôðîâîê.xlsm!Load")
Код
Application.ExecuteExcel4Macro Run("Ñâîä ðàñøèôðîâîê.xlsm!Load")
Код
Call Application.Run("Ñâîä ðàñøèôðîâîê.xlsm!Load")
 
Перейти    
Перебор диапазона в макроса
 
#
23.08.2017 14:07:17
Здравствуйте, есть код который перебирает строки 8-9 столбец А и если там стоит 0, то скрывает эти строки
Код
Dim i&
    For i = 8 To 9
        If Range("A" & i).Value = 0 Then
            Rows(i).EntireRow.hidden = True
        Else
            Rows(i).EntireRow.hidden = False
        End If
    Next i
Как можно переработать этот код чтобы он перебирал разные диапазоны строк, например: 8-9 потом 170-171, 332-333 и так далее??
Сразу весь диапазон с 8 по 333 перебирать не представляется возможным, так как тогда код работает долго

Заранее спасибо
Изменено: web-master - 23.08.2017 14:12:01
 
Перейти    
Страницы: 1
Наверх