Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 След.
Помогите с макросами и поиском
 
Для отображения всех данных по столбцу "ответчик" необходимо заходить в Фильтр или создать макрос?
Странно работает функция ВПР, Повторение и смещение данных
 
Всем большое спасибо за помощь. Всё ясно.
Странно работает функция ВПР, Повторение и смещение данных
 
Создан файл, в котором На лист БОчка в столбец В  при помощи функции ВПР происходит выборка данных с другого листа Таблица.
Однако в выборке в некоторых ячейках (помеч. желтым) повторяются значения, а ниже по столбцу смещаются результаты.
Не понимаю причину этого. Пожалуйста, помогите разобраться.
Макрос Уокенбаха Дж. (вложенные Select Case) у меня неправильно работает., Определение диапазонаЙ
 
Юрий М, большое спасибо! Все ясно!
Макрос Уокенбаха Дж. (вложенные Select Case) у меня неправильно работает., Определение диапазонаЙ
 
Начал изучать VBA, используя  книгу Уокенбах Дж. - Excel 2010. Профессиональное программирование на VBA.
Один пример у меня дает не верный результат.
Текст книги:

Структуры Select Case можно вкладывать друг в друга. Например, следующая процедура использует процедуру VBA TypeName для определения того, что выделено в настоящий момент (диапазон ячеек, ничего или что-либо еще). Если выделен диапазон, процедура вызывает на выполнение вложенный оператор Select Case, а также проверяет количество ячеек в диапазоне. Если выделена одна ячейка, отображается сообщение Выделена одна ячейка. В противном случае отображается сообщение, в котором указывается количество выделенных строк.

Sub SelectionType()
   Select Case TypeName(Selection)
       Case "Диапазон"
           Select Case Selection.Count
           Case 1
               MsgBox "Выделена одна ячейка "
           Case Else
               MsgBox Selection.Rows.Count & " строк "
           End Select
       Case "Ничего"
           MsgBox "Ничего не выделено"
       Case Else
           MsgBox "Выделен объект, отличный от диапазона "
   End Select
End Sub


У меня выдает выдает постоянно один результат: "Выделен объект, отличный от диапазона ".

Помогите, пожалуйста разобраться в чем ошибка.
Изменение макроса для вставки строк
 
Sanja, спасибо за помощь!
Попробовал макрос.
При запуске макроса выдает сообщение "Ячейка или диаграмма защищены от изменений. Чтобы изменить... " и.т.д., но все действия производит.
Через несколько запусков макроса - "Прекращена работа программы "Microsoft Excel. Windows может попытаться восстановить данные"
Изменение макроса для вставки строк
 
Всем доброго дня!

На форуме встретил макрос для создания копии строки. Макрос срабатывает по событию двойного клика по ячейке. Для очистки отдельных ячеек в макросе указывается их расположение по названиям колонок.
Код
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Target.Count > 1 Then Exit Sub
    If Target.Column > 1 Then Exit Sub
    Application.ScreenUpdating = False
    Rows(Target.Row).Copy: Rows(Target.Row).Insert
    Cells(Target.Row, "I").Select: ActiveCell.ClearContents
End Sub  
Мне нужно создать таблицу, состоящую из большого количества колонок, в которых будут как данные для расчетов, так и формулы.

Можно-ли внести изменения в данный макрос, чтобы в созданной копии строки происходила очистка данных всех ячеек, не содержащих формулы, не зависимо от их расположения?

Создать копию строки
 
БМВ, всё хорошо! Большое спасибо!
Замечания в свой адрес учту.
Создать копию строки
 
БМВ,добавил Ваш код.
Вторую строку выделяет красным.
Создать копию строки
 
БМВ, перечитал все сообщения. Я опять задал неправильный вопрос.

Помогите создать макрос добавления копии строки.
В ячейке "A4" и ниже по всему столбцу "А" должна быть кнопка "копировать строку" или просто знак "+"
Нажимая на ячейку "A4" ниже (в строке "5") должна появится копия строки "4", но с обнуленными ячейками "B, C, D, E, I, K, L".

Теперь это вопрос по данной теме?
Создать копию строки
 
БМВ, Премного благодарен!
Создать копию строки
 
БМВ,прошу прощения.

Мне нужно, чтобы в макросе сообщения 10 очистилась ни одна ячейка "I",
а ячейки  "B, C, D, E, I, K, L".

Необходимо создать новую. тему?
Я Вас правильно понял?
Создать копию строки
 
БМВ, прошу прощения. Не правильно поставил вопрос.
Надо в строке очистить, допустим, B, C, D, E, I, K, L
Одной строкой можно?
Создать копию строки
 
SAS888, а если надо очистить несколько ячеек?
Могут они располагаться и подряд  и вразнобой.
По каждой ячейке добавлять код с соответствующей колонкой?
Код
    Cells(Target.Row, "I").Select: ActiveCell.ClearContents
Макрос для суммирования значений из разных КНИГ адаптация
 
Sanja,большое спасибо!
Потестировал макрос - всё OK!
Удачи Вам!
Макрос для суммирования значений из разных КНИГ адаптация
 

Уважаемые специалисты!

Имеется большое количество таблиц одинаковой структуры. Каждая таблица - отдельная книга. Все книги расположены в одной папке.  
Необходимо произвести суммирование аналогичных ячеек в отдельный файл.

На сайте я нашел похожую тему с макросом.

https://www.planetaexcel.ru/forum/?PAGE_NAME=read&FID=8&TID=5169

Однако у меня отличается структура таблиц.

Можно ли адаптировать макрос под мои таблицы?

В суммирующей таблице очистку и суммирование данных нужно проводить с ячейки В4.

Кроме того, наименования таблиц (по колонке А и строке 3) связаны с суммирующей таблицей ссылками. Макрос суммирует везде, где имеются ссылки.

Можно ли ячейки с суммой 0 оставлять пустыми?

Пример прилагаю.

Заранее благодарен!

Код макроса, который нужно адаптировать.

Код
Option Explicit

Sub SummAll()
Dim BazaWb As Workbook 'текущая книга (общий файл)
Dim BazaSht As Worksheet 'лист для суммы в общем файле
Dim TempWb As Workbook 'по-очерёдно открываемый файл
Dim TempSht As Worksheet 'лист для суммы в по-очерёдно открываемом файле

Dim iTempFileName As String 'имя по-очерёдно открываемого файла
Dim iPath As String 'путь к папке, где лежат все файлы

Dim iCol As Long 'строка в файле
Dim iRow As Long 'столбец в файле
Dim iRowTmp As Long 'последняя заполненная строка в файле по столбцам
Dim iColTmp As Long 'последний заполненный столбец в  файле
Dim iNumFiles As Long 'количество открываемых файлов


    With Application
        .ScreenUpdating = False
        .DisplayAlerts = False
        .Calculation = xlManual
        Set BazaWb = ThisWorkbook
        Set BazaSht = BazaWb.ActiveSheet
        iPath = BazaWb.Path & "\"
        iTempFileName = Dir(iPath & "*.xls")
        
            'удаляем данные перед суммированием, если нужно
            With BazaSht
                .Range(.Cells(2, 1), .Cells(.Cells(Rows.Count, 1).End(xlUp).Row, .Cells(1, Columns.Count).End(xlToLeft).Column)).ClearContents
            End With
      
        'по очереди открываем файлы из папки
        Do While iTempFileName <> ""
            If iTempFileName <> BazaWb.Name Then
                Set TempWb = .Workbooks.Open _
                     (Filename:=iPath & iTempFileName, UpdateLinks:=False, ReadOnly:=True)
                     iNumFiles = iNumFiles + 1
                     Set TempSht = TempWb.ActiveSheet
                     
                     'Рабочая книга не должна быть защищена паролем
                     With TempSht
                        'всего столбцов в открытом листе
                        iColTmp = .Cells(1, Columns.Count).End(xlToLeft).Column
                          
                            For iCol = 1 To iColTmp
                                'номер последней заполненой строки в столбце
                                iRowTmp = .Cells(Rows.Count, 1).End(xlUp).Row
                                
                                    For iRow = 2 To iRowTmp
                                    
                                        BazaSht.Cells(iRow, iCol).Value = BazaSht.Cells(iRow, iCol).Value + .Cells(iRow, iCol).Value
                                    
                                    Next iRow
                                    
                            Next iCol
                         
                     End With
                     TempWb.Close saveChanges:=False
                
            End If
            iTempFileName = Dir
        Loop
        .Calculation = xlAutomatic
        .DisplayAlerts = True
        .ScreenUpdating = True
    End With
    MsgBox "Данные обработаны из " & iNumFiles & " файлов!", vbInformation, "Конец"
End Sub


Макрос вставки строк с копированием формул
 
Sanja, вылетает ошибка Compile error: Variable not defined при запуске макроса. Указывает на LastRow =
Макрос вставки строк с копированием формул
 
МатросНаЗебре, при добавлении строки не создается выпадающий список по валюте.
Сопоставление ячеек и наименований листов в файле и создание Гиперссылки, сделать ячейку Гиперссылкой на соответствующий лист
 
Дмитрий Щербаков,Большое спасибо! Всё OK!
Сопоставление ячеек и наименований листов в файле и создание Гиперссылки, сделать ячейку Гиперссылкой на соответствующий лист
 
Anchoret, Доброго дня Вам!
Опробовал Baш макрос. При наличии пробела в имени листа - так-же появляется сообщение "Недопустимая ссылка".
Этот вопрос разрешим? Или использовать вместо пробела иной символ?
Благодарю Вас.
Макрос для переделывания данных из 1с, Макрос строчную таблицу переделывает в столбцы и по критериям выборки
 
Jack Famous,, подскажите, пожалуйста, где Вы нашли бесплатный Code VBA?
На их сайте написано 20 days free trial. Prices starting at 79.95 € / US$ 90.35
Активация листа соответствующего текущей дате
 
k61,Спасибо за решение.
Как найти ячейку, соответствующую Дню месяца
 
Пытливый, большое спасибо. Сейчас то, что нужно.
Как найти ячейку, соответствующую Дню месяца
 
Kuzmich, логично. Благодарю.
Как найти ячейку, соответствующую Дню месяца
 
Kuzmich,  спасибо! Столбец выделен, но мне не надо, чтобы автоматом переходило на  лист Итог, т.к. надо ввести еще данные на листе Исходные.
Как найти ячейку, соответствующую Дню месяца
 
Kuzmich, спасибо! Я искал выделенный столбец, на активную ячейку не смотрел.
Какую добавить строку в коде?

Пытливый. Прошу прощения, но я не указал еще одно условие. Поиск должен осуществляться именно во второй строке листа Итог.
Изменено: Сергей Эм - 14 Окт 2017 06:48:35
Как найти ячейку, соответствующую Дню месяца
 
Изменил дату в ячейке F5. Это ничего не дало.
Как найти ячейку, соответствующую Дню месяца
 
Kuzmich. В модуль листа исходные вставил - макрос не срабатывает.
Пытливый. Все хорошо.
Всем спасибо за помощь! Удачи вам и здоровья!
Как найти ячейку, соответствующую Дню месяца
 
Здравствуйте.
Имеется Таблица.
В Ячейке F5 на листе "Исходные" расположена дата.
Как найти ячейку, соответствующую Дню месяца на листе Итог и сделать активным соответствующий столбец?
Активация листа соответствующего текущей дате
 
Всем большое спасибо и удачи!!!
Страницы: 1 2 След.
Наверх