Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 След.
ToDo List (VBA), Просто проектик на прожарку)
 
Цитата
Заканчивайте с программированием, это не ваше  
это понятно))
Цитата
У меня лично не заработало при открытии без бубна.
а можете описать ситуацию и ошибки при запуске и какие бубны использовали?

это уже интересная информация и обратная связь)
ToDo List (VBA), Просто проектик на прожарку)
 
Да, и поля подкрашенные зеленным будут скрытыми, сейчас просто оставил для наглядности
ToDo List (VBA), Просто проектик на прожарку)
 
Доброго времени суток, уважаемые Форумчане!)
Собственно, просто хотел узнать мнение мастеров и может подслушать пару интересных идей и фич VBA.
Во вложении маленький проект простого ТуДу-листа, реализованного в Excel. Буду рад комментариям что доработать, как лучше писать - оформлять код и просто небольшому тестированию.
На самом деле тут хотелось понять и обкатать логику взаимодействия с умными таблицами.
В проекте использовал функцию сортировки массива(coolsort), остальное уже моё.
функционал:
- на листе Planned_task вписываем задачи Дату начала и Дедлайн, а также из выпадающего списка выбираем приоритет;
- жмем кнопку "Обновить список задач"
- на листе ToDo отобразятся задачи отсортированные по Дедлайну и приоритету
   - активные задачи можно пометить в поле Отметка "В работе" в этом случае при добавлении новых задач отмеченная будет добавляться с этой же отметкой и станет еще одним фильтром в сортировке задач
   - Если поставить отметку "Выполнено" задача будет перенесена на лист "Сompleted_tasks"
Старался не мудрить, но сделать красиво)
Буду рад обратной связи и заранее спасибо!)
При удалении Queries ломается файл, Возникла проблема при удалении запросов PQ с помощью VBA. Нужен совет как поймать ошибку)
 
Ну и по сути это тот же код только в обратном порядке, и все равно результат тот же)))
При удалении Queries ломается файл, Возникла проблема при удалении запросов PQ с помощью VBA. Нужен совет как поймать ошибку)
 
Проблема как раз в том, что нужно удалить запросы не открывая физически файлы...
При удалении Queries ломается файл, Возникла проблема при удалении запросов PQ с помощью VBA. Нужен совет как поймать ошибку)
 
И снова здравствуйте, форумчане!
Возникла проблема при удалении запросов Power Pivot с помощью VBA (сам макрос находится в 1 книге, а wb_bill - это уже другой файл, который открывается, редактируется из 1-го), используя простой скрипт:
Код
Dim query_con As WorkbookQuery
For Each query_con In wb_bill.Queries
    query_con.Delete
Next
wb_bill.Save
wb_bill.Close

При открытии этого файла(wb_bill) возникает следующая ошибка: "Ошибка1" (из вложения) и единственная информация которой я располагаю после открытия файла это адрес битой таблицы и xml файле, в который совсем не хочется лезть("Ошибка2"). Причем данная ошибка перемещается вслед за этим куском кода.
К сожалению, не могу скинуть пример файла, ибо обезличть его уже очень тяжело будет, и знаю, что без примера тяжело понять чего хочет очередной болванчик вопрощающий, но подскажите, в каком направлении двигаться)
Важный момент:
данная ошибка возникает только при работе из другой книги. В самой книге все работает штатно.
Заранее спасибо!
Изменено: Станислав Воротынцев - 22.05.2024 16:28:20
Получение данных умной таблицы в UserForm, Не могу отловить ошибку в одной форме все работает отлично, в другой такая же конструкция не работает.
 
Хорошо, понял)))
Большое спасибо!))
Получение данных умной таблицы в UserForm, Не могу отловить ошибку в одной форме все работает отлично, в другой такая же конструкция не работает.
 
Огромное спасибо!
Шпаргалка огонь!!!
Но подскажите, пожалуйста,  почему если такое обращение не корректно, оно сработало при вызове Userform uf_story_telling&
Получение данных умной таблицы в UserForm, Не могу отловить ошибку в одной форме все работает отлично, в другой такая же конструкция не работает.
 
Всех приветствую и в очередной раз прошу помощи у уважаемого сообщества!)
Вопрос не по работе, так сказать, а творческий, но все же, на данном проекте учусь с Userform обращаться.
Это простенький игровой проект, чтобы поддержать интерес к программированию у младшего брата, но столкнулся с ошибкой "451 - объект не является коллекцией", но есть нюанс, как говорится.

Есть следующая конструкция:
Код
Set ws = ThisWorkbook.Sheets("Главы")
    Set listObj_story = ws.ListObjects("story_chapter")
    Set found_value = listObj_story.DataBodyRange.Columns(1).Find(Me.tb_prev_chapt.Value, _
        LookIn:=xlValues, lookat:=xlWhole)
        
    story_text = listObj_story.DataBodyRange.Formula(found_value.row - 1, found_value.Column + 1)
в форме uf_story_telling и она работает прекрасно:
в Find() передается число, соответствующее номеру строки в умной таблице на листе "Главы", found_value возвращает позицию в таблице и с помощью .DataBodyRange.Formula(int, int) я достаю нужные мне данные.

в форме же uf_enemy_char_list схожая конструкция и выдает ошибку при присвоении переменной значения из ячейки умной таблицы, при этом проект проходит компиляцию.

Для того чтобы произвести ошибку нужно на листе "Лист Путешественника" нажать кнопку "Показать меню" -> "Начать новую игру" и в открывшейся форме(как указано на рис.1 ) вбить "5", после этого нажать перейти. В обновившейся форме нажать кнопку "в бой" правая нижняя красная кнопка))) и при инициализации формы uf_enemy_char_list и происходит данная ошибка.

Буду признателен за помощь)

P.S.: А игра классная, я сам в нее в детстве рубился))
Ошибка " method range of object _global failed" при копировании файла, При работе макроса возникает ошибка, при переходе в VBE и нажатии кнопки RUN макрос срабывает штатно.
 
По итогу, sokol92, вы оказались правы, обращение по индексу кардинально не изменило картину, переписал обращение к диапазону листа следующим образом:
Код
n_wb.Sheets("Форма_счет").ListObjects(1).ListColumns.Add
                            clmn_count = .ListObjects(1).Range.Columns.count + 1
                            header_row = .ListObjects(1).Range.Rows(1).Row
                            Range(.Cells(header_row, clmn_count), .Cells(header_row, clmn_count)).Select
                            ActiveCell.FormulaR1C1 = "Согласованная цена"
                            Range("Входящие_файлы_СЧЕТА[Согласованная цена]").Select
                            Selection.Font.Bold = True
Хотя намерено оставил повторный вызов по имени столбца умной таблицы(уже переименованному, 6-я строка)  и сейчас ошибка нет... Не понимаю почему так происходит, но вычитал интересную версию, что ошибку может вызывать язык на котором названа таблица, должен быть английский. Пока не проверял, звучит правдоподобно, по крайней мере я сталкивался с подобным, вот только не помню в каком контексте)))
Ошибка " method range of object _global failed" при копировании файла, При работе макроса возникает ошибка, при переходе в VBE и нажатии кнопки RUN макрос срабывает штатно.
 
Спасибо за помощь и совет!)
Тоже думал, что это связано с умными таблицами, но смущало, что ошибка вызывает прерывание процедуры, но затем идет штатно и то что я сам много не понимаю)))).

По предоставлению информации - учту, спасибо, я пока новичок в программировании и в VBA, я даже не знал, что можно вызвать компилятор, не запуская в работу код :D  :D  :D

Судя по вашим корректировкам, ошибка будто бы выскакивает, когда обращаешься к ListObjects по имени, а не по индексу. Не так давно, как раз, когда только начинал щупать умные таблицы через VBA, столкнулся с проблемой вызова объекта по имени, постоянно вываливался в ошибки, как и не которые свойства ListObjects выпадали в ошибки, хотя при обращении по индексу отрабатывали штатно.
Попробую переписать в пн, с обращением к диапазону, а не к умной таблице, и с обращением к умной таблице только по индексу, просто с ними все очень удобно, но очень непонятно(мне :) )
Еще раз спасибо!
Ошибка " method range of object _global failed" при копировании файла, При работе макроса возникает ошибка, при переходе в VBE и нажатии кнопки RUN макрос срабывает штатно.
 
Спасибо за комментарии! а как у вас вызвался Mod_sed_for_coordination_test, он же вроде не завязан нигде?
По поводу версии, наверное дело в том что у меня стоит Excel из комплекта Office365, а данный формат выдал макрорекордер)...
Изменено: Станислав Воротынцев - 24.11.2023 14:30:47
Ошибка " method range of object _global failed" при копировании файла, При работе макроса возникает ошибка, при переходе в VBE и нажатии кнопки RUN макрос срабывает штатно.
 
Я так понимаю, непосредственно в коде каких-то ошибок нет?
Ошибка " method range of object _global failed" при копировании файла, При работе макроса возникает ошибка, при переходе в VBE и нажатии кнопки RUN макрос срабывает штатно.
 
Вроде как нужно разархивировать и все заработает.
К слову, удалил при копировании одну вспомогательную умную таблицу, теперь вылезает ошибка определенная объектом или приложением, но на том же месте)))
Все страннее и страннее
Ошибка " method range of object _global failed" при копировании файла, При работе макроса возникает ошибка, при переходе в VBE и нажатии кнопки RUN макрос срабывает штатно.
 
тогда пожалуй надо скинуть архив
Ошибка " method range of object _global failed" при копировании файла, При работе макроса возникает ошибка, при переходе в VBE и нажатии кнопки RUN макрос срабывает штатно.
 
Коллеги, добрый день!
Данный макрос создает копию основного листа сохраняет его в отдельной папке как книгу и добавляет листом в другую книгу. Файл содержит умные таблицы, при нажатии на кнопку "Отправить" на строке в основном(большом) блоке WITH:
Код
n_wb.Sheets("Форма_счет").Range("Входящие_файлы_СЧЕТА[[#Headers],[Наценка на цену Конкурента]]").ListObject.ListColumns.Add
возникает ошибка "1004 method range of object _global failed", по при переходе в VBE по кнопке Debug и нажатии RUN все продолжает работать штатно.

Нашел тему с такой же ошибкой, где проблема была в глобальной переменной, но я не использовал данный тип переменных ( хотя была идея, но я отказался). Прошу помочь разобраться и поймать ошибку.
Заранее спасибо.
Код
Sub send_for_coordination()

    Dim wb, n_wb, wb_cost As Workbook
    Dim ws As Worksheet
    Dim lr, i As Long
    Dim count As Long
    Dim markup_StS As Currency
    Dim price_Comp As Currency
    Dim price_StS As Currency
    Dim sum_markup_StS As Currency
    Dim sum_price_Comp As Currency
    Dim sum_price_StS As Currency
    Dim file_name, my_path, cost_path As String
    Dim arr As Variant
    
        Application.ScreenUpdating = False
        Application.DisplayAlerts = False
        
        Call save_data
        ' инициализация объектов
        Set wb = Workbooks(ThisWorkbook.Name)
        Set ws = wb.Sheets("Форма_счет")
            
            ' инициализация имени новой книги
            my_path = wb.Sheets("ВСП").Range("path_to_save")
            file_name = ws.Range("C3") & " № " & ws.Range("E3") & " от " & ws.Range("E2") & ".xlsm"
            If Len(file_name) > 30 Then
                    file_name = ws.Range("C3") & " № " & ws.Range("E3") & ".xlsm"
            Else
                file_name = ws.Range("C3") & " № " & ws.Range("E3") & " от " & ws.Range("E2") & ".xlsm"
            End If
            ws.Copy
            ' инициализация новой книги - счета, отключаем всплывающие окна
            ActiveWorkbook.SaveAs my_path & file_name, FileFormat:=52
            ' вносим адрес книги "Для подгрузки", прячем сворачиванием столбцов
            Set n_wb = Workbooks(file_name)
                n_wb.Sheets(1).Range("O1") = wb.Sheets("ВСП").Range("path_cost_price")
                n_wb.Sheets(1).Columns("O:O").Select
                Selection.EntireColumn.Hidden = True
                n_wb.Sheets(1).OLEObjects("CommandButton1").Delete
                ' закрытие новой книги, включение всплывающих окон
                n_wb.Sheets(1).Range("C2").Select
            ' открываем файл "Для подгрузки"
            
            Application.Workbooks.Open filename:=wb.Sheets("ВСП").Range("path_cost_price[путь к данным себестоимость]")
            Set wb_cost = ActiveWorkbook
                ' В файл "для подгрузки" вставляем дату из документа
                wb_cost.Sheets("НМ").Range("C2") = ws.Range("E2")
                wb_cost.Sheets("Заявки").Activate
                    ' вносим данные на лист "Заявки"
                    With wb_cost.Sheets("Заявки")
                        .Unprotect Password:="12345w!"
                        ' последняя строка таблицы
                        lr = .Cells(Rows.count, 2).End(xlUp).Row + 1
                        ' номер по порядку
                        Range("B" & lr).Select
                        ActiveCell.Formula2R1C1 = lr - 2
                        ' создаем ссылку на документ
                        Range("C" & lr).Select
                        ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
                        "Заявки\" & file_name & "", _
                        TextToDisplay:="Заявки\" & file_name & ""
                        ' Форматируем новую строку
                        Rows(lr & ":" & lr).Select
                        Selection.RowHeight = 30
                        Range("D" & lr).Select
                    End With

                n_wb.Sheets("Форма_счет").Activate
                n_wb.Sheets("Форма_счет").Select

                    With n_wb.Sheets("Форма_счет")
                        
                        ' Ищем себестоимость в файле "Для подгрузки"
                        Range("I5") = "Максимальная себестоимость"
                        Range("I6").Select
                        ActiveCell.FormulaR1C1 = "=IFERROR(IF(OR([@[Цена конкурента]]="""",[@[Цена конкурента]]=0),0,VLOOKUP([@Артикул],'[Себестоимость.xlsm]НМ'!C1:C7,MATCH('[Себестоимость.xlsm]НМ'!R3C7,'[Себестоимость.xlsm]НМ'!R3,0),0)),0)"
                        If Range("Входящие_файлы_СЧЕТА[Максимальная себестоимость]").Rows.count > 1 Then
                            Selection.AutoFill Destination:=Range("Входящие_файлы_СЧЕТА[Максимальная себестоимость]")
                        End If
                        Range("Входящие_файлы_СЧЕТА[Максимальная себестоимость]").Select
                        Selection.Copy
'                        Selection.NumberFormat = "#,##"
'                        Selection.PasteSpecial Paste:=xlPasteValues
'                        Selection.PasteSpecial xlPasteValues
'                        Range("Входящие_файлы_СЧЕТА[Максимальная себестоимость]").PasteSpecial xlPasteValues
                        ' расчет наценки на цену СТС
                        Range("J5") = "Наценка на цену СантехСтандарт"
                        Range("J6").Select
                        ActiveCell.FormulaR1C1 = "=IFERROR(Входящие_файлы_СЧЕТА[@Цена]/Входящие_файлы_СЧЕТА[@[Максимальная себестоимость]]-1,"""")"
                        If Range("Входящие_файлы_СЧЕТА[Наценка на цену СантехСтандарт]").Rows.count > 1 Then
                            Selection.AutoFill Destination:=Range("Входящие_файлы_СЧЕТА[Наценка на цену СантехСтандарт]")
                        End If
                        ' расчет наценки на цену конкурента
                        Range("K5") = "Наценка на цену Конкурента"
                        Range("K6").Select
                        ActiveCell.FormulaR1C1 = "=IFERROR(Входящие_файлы_СЧЕТА[@[Цена конкурента]]/Входящие_файлы_СЧЕТА[@[Максимальная себестоимость]]-1,"""")"
                        If Range("Входящие_файлы_СЧЕТА[Наценка на цену Конкурента]").Rows.count > 1 Then
                            Selection.AutoFill Destination:=Range("Входящие_файлы_СЧЕТА[Наценка на цену Конкурента]")
                        End If
                        
                         Range("Входящие_файлы_СЧЕТА[[Сумма]:[Максимальная себестоимость]]").Select
                            Selection.Copy
                            Application.CutCopyMode = False
                            Selection.Copy
                            Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                                :=False, Transpose:=False
                            Selection.NumberFormat = _
                                "_-* #,##0.00 _?_-;-* #,##0.00 _?_-;_-* ""-""?? _?_-;_-@_-"
                        'Range ("Входящие_файлы_СЧЕТА[Максимальная себестоимость]")
'                        Range("clmn_var").Delete
                        Range("J2:K3").Select
                        With Selection
                            .HorizontalAlignment = xlCenter
                            .VerticalAlignment = xlCenter
                            .WrapText = True
                            .Borders.LineStyle = xlContinuous
                            .Style = "Percent"
                        End With
                        Range("J2").Interior.ColorIndex = 19
                        Range("J2") = "Наценка на счет СантехСтандарт"
                        Range("K2") = "Наценка на счет от конкурента"
                        Range("K2").Interior.ColorIndex = 19
                        

                        n_wb.Sheets("Форма_счет").Range("Входящие_файлы_СЧЕТА[[#Headers],[Наценка на цену Конкурента]]").ListObject.ListColumns.Add
'                            Selection.ListObject.ListColumns.Add
                            Range("Входящие_файлы_СЧЕТА[[#Headers],[Столбец1]]").Select
                            ActiveCell.FormulaR1C1 = "Согласованная цена"
                            Range("Входящие_файлы_СЧЕТА[Согласованная цена]").Select
                            Selection.Font.Bold = True
                            With Selection.Interior
                                .Pattern = xlSolid
                                .PatternColorIndex = xlAutomatic
                                .ThemeColor = xlThemeColorAccent6
                                .TintAndShade = 0.799981688894314
                                .PatternTintAndShade = 0
                            End With
                        
                        arr = ActiveSheet.ListObjects("Входящие_файлы_СЧЕТА").Range
                        For i = LBound(arr) + 1 To UBound(arr)
                            If arr(i, 6) <> 0 Then
                            'If arr(i, 6) = 0 Then
                                count = arr(i, 3)
                                ' расчет себестоимости
                                markup_StS = arr(i, 8) * count
                                price_Comp = arr(i, 6) * count
                                price_StS = arr(i, 4) * count
                                sum_markup_StS = sum_markup_StS + markup_StS
                                sum_price_Comp = sum_price_Comp + price_Comp
                                sum_price_StS = sum_price_StS + price_StS
                            End If
                        Next i
                        
                        Range("J3") = sum_price_StS / sum_markup_StS - 1
                        Range("K3") = sum_price_Comp / sum_markup_StS - 1
                        n_wb.Sheets("Форма_счет").Activate
                        Range("Входящие_файлы_СЧЕТА[[Наценка на цену СантехСтандарт]:[Наценка на цену Конкурента]]").Select
                        Range(Selection, Selection.End(xlDown)).Select
                        Selection.Style = "Percent"
                    End With
                    
                    n_wb.Sheets("Форма_счет").Copy after:=wb_cost.Sheets("ВСП")
                    With wb_cost
                        .Sheets("Форма_счет").Name = wb.Sheets("Форма_счет").Range("C3") & " № 1 " & wb.Sheets("Форма_счет").Range("E3")
                    End With
                    ' сохранение и закрытие книги
                    wb_cost.Save
                    wb_cost.Close
                    n_wb.Save
                    n_wb.Close
                    
            Application.ScreenUpdating = True
            Application.DisplayAlerts = True

            MsgBox "Запрос отправлен"
End Sub
Фильтрация столбца определяемого параметром, Необходим найти способ задать столбец для фильтрации параметром.
 
СУПЕР! Большое спасибо!
Это то что нужно, я вначале не понял, как столбец передать, спасибо за пример!)
Фильтрация столбца определяемого параметром, Необходим найти способ задать столбец для фильтрации параметром.
 
да, все верно, в зависимости от типа счета, столбец по которому происходит фильтрация меняется, поэтому хочу инициировать столбец параметром от пользователя.
Идея в том, что в зависимости от типа счета, поле "Артикул" может находиться либо в 3-м, либо в 5-м столбце, все остальные агрегации в запросе одни и те же. Пока я делаю это в ручную, но хочется автоматизировать этот процесс.
Пока тестирую Ваше предложении, но если честно все равно пока получаю ошибку, возможно не верно передаю параметры в функцию.
Прошу прощения, но я пока новичок в pq не совсем понимаю, что нужно передать в параметр record.  
Изменено: Станислав Воротынцев - 20.11.2023 16:27:20
Фильтрация столбца определяемого параметром, Необходим найти способ задать столбец для фильтрации параметром.
 
Добрый день!
Давненько бьюсь над задачкой:
- есть 2 типа счетов из 1С в формате .xlsx, из которые с помощью PQ тянется нормализованная таблица с арт., наименованием, и пр. данными. Но если в одном нужное поле находится в 3-м столбце, то во втором счете данные в 5-ом столбце. Есть ли возможность передать столбец параметром в запись:
Код
= Table.SelectRows(#"Столбец расширенной таблицы1", each not List.ContainsAny({null, ""}, {[Column5]}))
т.е. вместо [Column5] задать параметр, который будет вводиться пользователем?
Стандартный (для меня) метод формата List{0} не срабатывает, что понятно вроде как понятно, PQ ругается на несоответствие типов.
есть возможность реализовать такой метод?

P.S.: Вообще уже подумываю над тем, чтобы снова вернуться к идее спарсить основные данные VBA, но все же хочется попробовать сделать именно так)
Изменено: Станислав Воротынцев - 20.11.2023 15:45:59
связать 2 диапазона на разных листах книги, необходим метод по которому 2 диапазона будут ссылаться друг на друга, с возможностью редактирования.
 
верно ли, что если у меня несколько диапазонов на исходном листе1 ссылаются на разные листы, то нужно условие?
связать 2 диапазона на разных листах книги, необходим метод по которому 2 диапазона будут ссылаться друг на друга, с возможностью редактирования.
 
Отлично, спасибо! возьму на вооружение. не додумался о таком подходе, использовал только для ускорения общей работы.
связать 2 диапазона на разных листах книги, необходим метод по которому 2 диапазона будут ссылаться друг на друга, с возможностью редактирования.
 
О...ГОСПОДЬ...ВСЕМОГУЩИЙ!
Это великолепно!) Большое спасибо!  Все работает! я два дня бился головой об лед, хоть параллельные задачки порешал))) Шикарное решение, сейчас буду разбираться!)))
связать 2 диапазона на разных листах книги, необходим метод по которому 2 диапазона будут ссылаться друг на друга, с возможностью редактирования.
 
Private Sub Worksheet_Change(ByVal Target As Range)
   Dim KeyCells As Range
   Dim rng As String
   Dim val As Long
   Dim wb As Workbook
   Set wb = ThisWorkbook
   Set KeyCells = wb.Sheets("лист1").Range("I19:I25")
If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
'    MsgBox (Range(Target.Address).Address(rowAbsolute:=False, columnAbsolute:=False))
   rng = Range(Target.Address).Address(rowAbsolute:=False, columnAbsolute:=False)
   val = Range(Target.Address).Value
   With wb.Sheets("Лист2").Range(rng).Offset(75)
       .Value = val
'        MsgBox (wb.Sheets("лист2").Range(rng).Offset(75))
       Exit Sub
   End With
End If
End Sub


пока имею вот такой код, идея была в том, чтобы такой же код написать на втором листе-близнеце, но естественно это превращается в бесконечный цикл. нужен какой-то стопор, но пока не могу понять. Может кто подскажет?) Или все же идея обречена на провал?
связать 2 диапазона на разных листах книги, необходим метод по которому 2 диапазона будут ссылаться друг на друга, с возможностью редактирования.
 
Добрый день!
Бьюсь над следующей проблемой:
- есть два листа, на которых есть диапазоны, которые в теории должны ссылаться друг на друга. Т.е. при заполнении на одном листе, данные должны переноситься на другой, и наоборот.
- ранее находил метод "Intersect", который помогал запустить макрос при изменении параметра "KeyCell", полагаю, что и сейчас как-то через него надо работать, но не могу сообразить как, по прямому условию связать диапазона не получается, при вводе данные просто удаляются)

 Есть ли вообще способ через VBA настроить подобную связь двух диапазонов?
Прошу помочь наставлением на путь истинный))

Если задача окажется решаема прикреплю файл)
Заранее спасибо!
Изменено: Станислав Воротынцев - 16.05.2023 10:16:35
При переносе данных из закрытой книги всплывает ошибка, Прошу помощи в поиске ошибки в коде макроса getValue(module1)
 
Большое Вам спасибо!!!!!!!!!
Чувствую себя тупым, но оно того стоило)
При переносе данных из закрытой книги всплывает ошибка, Прошу помощи в поиске ошибки в коде макроса getValue(module1)
 
А можно еще вопрос по горячим следам, ругается на то что объект не определен в строке .Formula
Изменено: Станислав Воротынцев - 05.10.2022 11:01:00
При переносе данных из закрытой книги всплывает ошибка, Прошу помощи в поиске ошибки в коде макроса getValue(module1)
 
спасибо! протупил-понял)
При переносе данных из закрытой книги всплывает ошибка, Прошу помощи в поиске ошибки в коде макроса getValue(module1)
 
Есть процедура для извлечения данных из книги, но работает не корректно, возвращает #ССЫЛКА!. В файле-источнике в нужном диапазоне стоят формулы, думал из-за этого ошибка, но если ссылаться на диапазон со значениями та же ошибка. Прошу помочь разобраться с ошибкой, файл во вложении.
Заранее спасибо!

P.S.:Не хочется сильно перегружать формулу, т.к. я новичок в VBA, да и этим файлом не только я буду пользоваться.
VBA Заполнение таблицы из листов в книге, Прошу помощи в поиске ошибки в коде макроса filltable
 
Спасибо! кажется начал понимать. Я только начинаю, поэтому этот вариант как, минимум более понятен для меня
VBA Заполнение таблицы из листов в книге, Прошу помощи в поиске ошибки в коде макроса filltable
 
Спасибо за ответ! масштабно получилось))
А почему мой вариант считал не верно не подскажите?)
Страницы: 1 2 След.
Наверх