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

Страницы: 1
object required ошибка, ошибка при инициализации формы
 
#
29.05.2019 08:56:56
нет это в другом модуле уже, код очень громоздкий  
 
Перейти    
object required ошибка, ошибка при инициализации формы
 
#
29.05.2019 08:50:59
Код
' Инициализация формы
Private Sub UserForm_Initialize()
    StartTime = Time
    
    pbProgressBar.Min = 0 - здесь вылетает на код ниже
    pbProgressBar.Max = 100
    pbProgressBar.Value = 0
    Call Update(0)
End Sub

'код где компилятор останавливается 
Application.Run (ThisWorkbook.Worksheets(FulfillmentEstimationWsName).PrintFulfillmentEstimation(IsYearFiltered, TargetYear, UseDates, Databank.SubSets, FileCases(), HideUnchanged, PreserveComments, NormalizeCA, UseCpark))

Доброго дня, при инициализации формы выскакивает ошибка Run-time error '424': Object required
- на других компьютерах работает, возможно не подключена соответствующая библиотека. кто что может подсказать?
 
Перейти    
Найти номер строки по дате с помощью find, Ошибка object variable or with block variable not set
 
#
19.10.2018 13:20:02
Цитата
JayBhagavan написал:
Как это???
конфиденциально типо  
 
Перейти    
Найти номер строки по дате с помощью find, Ошибка object variable or with block variable not set
 
#
19.10.2018 12:59:31
Цитата
JayBhagavan написал:
KindyakovEA , это уже хорошо, но файлы что Вы приложили:
Если эти оба файла открыть и из первого взять дату и выполнить поиск в другом файле тj вылетает ошибка, к сожалению прикрепить файлы не могу
 
Перейти    
Найти номер строки по дате с помощью find, Ошибка object variable or with block variable not set
 
#
19.10.2018 12:15:46
вот мой код с вашими исправлениями
Код
Sub read_record_data()
    Dim row_end_date As Double
    Dim end_date As Date
    Dim row_start_copy As Double
    Dim row_end_copy As Double
    
    row_end_date = Workbooks(name_books).Worksheets(well_number).Cells(Rows.Count, 1).End(xlUp).Row
    end_date = Workbooks(name_books).Worksheets(well_number).Cells(row_end_date, 1)
    row_end_copy = ActiveWorkbook.Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row
    row_start_copy = Range("A1:A" & row_end_copy).Find(CDate(end_date), , xlFormulas, xlWhole, , xlNext, False, False, False).Row
    
'    For i = 1 To row_end_copy
'        If Format(end_date, "dd.mm.yyyy hh:nn") = Format(Cells(i, 1), "dd.mm.yyyy hh:nn") Then
'            row_start_copy = i
'            Exit For
'        End If
'    Next i
'
    ActiveWorkbook.Worksheets(1).Range("A" & row_start_copy + 1 & ":E" & row_end_copy).Copy
    Workbooks(name_books).Worksheets(well_number).Range("A" & row_end_date + 1).PasteSpecial Paste:=xlPasteValues
    
End Sub
Изменено: KindyakovEA - 19.10.2018 12:16:49
 
Перейти    
Найти номер строки по дате с помощью find, Ошибка object variable or with block variable not set
 
#
19.10.2018 11:33:47
Цитата
JayBhagavan написал:
KindyakovEA , покажите пример,
Эти два файла в точности повторяют мой алгоритм  
 
Перейти    
Найти номер строки по дате с помощью find, Ошибка object variable or with block variable not set
 
#
19.10.2018 11:11:00
Цитата
JayBhagavan написал:
Отвечаете?
хм... ну в этой книги работает, попытался в макрос в свой вшить та же ошибка вылетает.
 
Перейти    
Найти номер строки по дате с помощью find, Ошибка object variable or with block variable not set
 
#
19.10.2018 10:53:20
вот элементарный пример, такая же ошибка всплывает, пробовал разными способами которые выше.
 
Перейти    
Найти номер строки по дате с помощью find, Ошибка object variable or with block variable not set
 
#
19.10.2018 09:00:12
алгоритм макроса:
  • есть книга с макросом
  • открываем еще одну книгу откуда будем копировать данные
  • данные в этой книги нужно скопировать с определенной даты (ищу строку через функцию find) - здесь ошибка (при чем форматы в обоих книгах одинаковы)
 
Перейти    
Найти номер строки по дате с помощью find, Ошибка object variable or with block variable not set
 
#
19.10.2018 08:31:31
Цитата
БМВ написал: Find не находит ничего, так как вы начинаете текст искать, а у вас там скорее всего дата как число
да именно так функция find не чего не находит, я ищу дату а не текст, преобразовываю в один и тот же формат что и в другой книги.  
 
Перейти    
Найти номер строки по дате с помощью find, Ошибка object variable or with block variable not set
 
#
19.10.2018 08:11:51
Цитата
and_evg написал:
Вообще то лучше
Попробовал так, все равно ошибка выскакивает, как я понимаю здесь проблема в форматах.
Через цикл for все работает нормально.  
 
Перейти    
Найти номер строки по дате с помощью find, Ошибка object variable or with block variable not set
 
#
19.10.2018 07:35:04
Код
Sub read_record_data()
    Dim row_end_date As Double
    Dim end_date As Date
    Dim row_start_copy As Double
    Dim row_end_copy As Double
    
    row_end_date = Workbooks(name_books).Worksheets(well_number).Cells(Rows.Count, 1).End(xlUp).Row
    end_date = Format(Workbooks(name_books).Worksheets(well_number).Cells(row_end_date, 1), "m/d/yyyy h:mm")
    row_end_copy = ActiveWorkbook.Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row
    
    row_start_copy = ActiveWorkbook.Worksheets(1).Range("A2:A" & row_end_copy).Find(end_date).Row

Не получается найти номер строки по дате через функцию find.
Уже все перепробовал пишет ошибку "object variable or with block variable not set". Все перерыл не чего толком не написано, может кто что нибудь подскажет.
Изменено: KindyakovEA - 19.10.2018 09:53:05
 
Перейти    
VBA поиск точек пересечения на графике
 
#
23.09.2018 09:01:42
Тема закрыта
 
Перейти    
VBA поиск точек пересечения на графике
 
#
23.09.2018 07:42:56
Добрый день,
Возможно ли найти точки пересечения в этих местах с помощью средств EXCEL ?
  1. Красным выделены точки у которых известны координаты и по которым строится график
  2. Координаты точки X тоже известна на котором нужно снять значения по y
Изменено: KindyakovEA - 23.09.2018 08:12:14
 
Перейти    
Возможно ли с помощью vba получить коэффициенты линии тренда?
 
#
03.08.2018 07:21:04
Добрый день,
Возможно ли через vba как то получить коэффициенты линии тренда ?
Например эти по линейному тренду
Изменено: KindyakovEA - 03.08.2018 07:27:57
 
Перейти    
VBA поиск столбца с минимальным значением
 
#
02.08.2018 08:38:25
Цитата
Nordheim написал:
Цитата KindyakovEA  написал:нет так не выйдетПочему же?
Цитата
Nordheim написал:
Почему же
все получилось, спасибо. columns - column
бесит этим basic
 
Перейти    
VBA поиск столбца с минимальным значением
 
#
02.08.2018 08:30:52
Цитата
Цитата
Цитата
китин написал:
Set column_MIN_nomer = Worksheets(1).Range("B1083:E1083").Find(column_MIN)
column_MIN_nomer2 = column_MIN_nomer.Columns

нет так не выйдет
 
Перейти    
VBA поиск столбца с минимальным значением
 
#
02.08.2018 08:19:53
Цитата
Nordheim написал:
Прошу прощения, но вы сами поняли что написали, я к сожалению нет.
тогда поставлю вопрос так, найти столбец с минимальным значением  
 
Перейти    
VBA поиск столбца с минимальным значением
 
#
02.08.2018 08:12:46
Цитата
Nordheim написал:
Может значение ячейки либо номер столбца?
значение я вывожу а номер столбца этого значение ?
 
Перейти    
VBA поиск столбца с минимальным значением
 
#
02.08.2018 08:07:38
Добрый день!
мне нужно найти минимальное значение в диапазоне и присвоить переменной значение столбца
Код
column_MIN = Application.WorksheetFunction.Min(Worksheets(1).Range("B1083:E1083"))
 
Перейти    
Страницы: 1
Наверх