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

Страницы: 1
Ошибка 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:02:48
Добрый день.
Есть код
Код
Intersect(Columns(6), TargetGlobal.EntireRow).Value
который возвращает значение шестого столбца в строке где найдено значение.
Как изменить код чтобы он возвращал значение не столбца а пятой строки в столбце где найдено значение?
Изменено: web-master - 26.12.2017 09:31:41
 
Перейти    
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:01:07
Здравствуйте.
Столкнулся с проблемой использования формулы массива.
Необходимо из списка значений, ячейки которого не объединены перенести значения в список где ячейки объединены, по условию соседних ячеек, где стоит 1
Но с объединенными ячейками формула массива работает не корректно.
Может можно использовать другую формулу?
Во вложении пример.
Изменено: web-master - 21.09.2017 14:03:07
 
Перейти    
Список в проверке данных по условию
 
#
13.09.2017 14:32:44
Добрый день.
Делаю список проверки данных по условию соседних ячеек
Условие: создать список значений у которых в соседнем столбце стоит "0"
Формула такая, но работает немного не корректно
Файл во вложении, думаю будет понятно где не корректность
Код
{=СМЕЩ(B2;ПОИСКПОЗ(0;B2:B10;0)-1;-1;СЧЁТЕСЛИ(B2:B10;0);1)}
 
Перейти    
Настройка поиска 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: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
Наверх