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

Страницы: 1
Сбор данных из большого количества однотипных книг в одну, Сбор данных из большого количества однотипных книг в одну строку
 
msi2102, у меня нет слов для выражения благодарности!
Огромное спасибо.
Сбор данных из большого количества однотипных книг в одну, Сбор данных из большого количества однотипных книг в одну строку
 
RAN, если не сложно, можете помочь с циклом.
Крайне плохо знаком с VBA. До этого момента правил только макросы записаные через запись действий.

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

P.S. Запрос не актуален, спасибо.
Изменено: Easyway13 - 30 июл 2020 14:36:45
Сбор данных из большого количества однотипных книг в одну, Сбор данных из большого количества однотипных книг в одну строку
 
msi2102, просьба помочь отредактировать макрос.
Нужно поменять выборку под три отдельные ячейки.

Менял Range и Case. Но думаю я что то не так делаю в блоке Case'ов
Заранее благодарен.
Код
Sub Copy_data()
    Dim FilesToOpen
    Dim x As Integer
    Dim a(), i As Long, b As Long
    Dim lis As String
    
    Application.ScreenUpdating = False

 On Error GoTo EH
    
    FilesToOpen = Application.GetOpenFilename(FileFilter:="All files (*.*), *.*", MultiSelect:=True, Title:="Files to Merge")

    If TypeName(FilesToOpen) = "Boolean" Then
        MsgBox "Select files to open"
        Exit Sub
    End If
    
    x = 1
    While x <= UBound(FilesToOpen)
        Set importWB = Workbooks.Open(Filename:=FilesToOpen(x))
        
        Workbooks(importWB.Name).Sheets("info").Activate
        a = Workbooks(importWB.Name).Sheets("info").Range("C6,C7,H5").Value

        b = ThisWorkbook.Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row + 1
        
        For i = 1 To 3
            Select Case i
                Case 1 To 3: s = i
            
            End Select
         
            ThisWorkbook.Sheets("Sheet1").Cells(b, i) = a(s, 1)
        
        Next

        importWB.Close savechanges:=False
        x = x + 1
    Wend

    Application.ScreenUpdating = True
    
    Exit Sub
    
EH:
    MsgBox "Info is copied"
    Application.ScreenUpdating = True
    
End Sub
Изменено: Easyway13 - 30 июл 2020 13:18:16
Как в Range диапазон в макросе заменить на список отдельных ячеек?, Есть .Range("C3:C6") нужно поменять на список С3,С4,H5
 
Спасибо, да так, я просто не знаком с правилами записи VBA.
У меня значит затуп в другой части макроса.

Тему можно закрывать.
Как в Range диапазон в макросе заменить на список отдельных ячеек?, Есть .Range("C3:C6") нужно поменять на список С3,С4,H5
 
Добрый день!
Просьба помочь заменить Range диапазона на отдельные ячейки.
Если нужно поменять команду, то на какую менять в данном случае?
Если есть ссылка на матчасть по этому вопросу, буду крайне благодарен.

Заранее спасибо.
[ Закрыто] Поиск значений в файлах, у которых каждую неделю новые названия
 
msi2102, спасибо за совет, очень сильно помогли.

Подскажите кто-то как добавить в диапазон отдельную ячейку, например .Range("C1:C5" & "H5")
Заранее благодарен.
Изменено: Easyway13 - 30 июл 2020 10:44:52
[ Закрыто] Поиск значений в файлах, у которых каждую неделю новые названия
 
Добрый день!
Нужен такой макрос:
1. Из определенной папки пройтись по всем файлам(они исключительно xlsx) и достать 3 значение из каждого.
2. Названия файлов из отчета к отчету будут меняться, так что нужен механизм обновления списка файлов под работу макроса. В этой папке файлы каждую неделю будут обновляться.
3. Пример подачи информации во вложении. Формат файлов папки во второй закладке.

Диапазоны в файлах одинаковые.
Как пример будет достаточно одного поиска по одному параметру.

Буду крайне благодарен за рекомендации, подсказки или решение.
Заранее спасибо.
Найти предпоследнее значение >0
 
БМВ, на двух формулах выдает одну и ту же ошибку. Видимо, что-то делаю не так. Файл во вложении.
Речь про формулы:
Код
=INDEX(A1:G1;1;LARGE(COLUMN(A1:G1)*(A1:G1>0)*ISODD(COLUMN(A1:G1));2))
=CHOOSE(LARGE({1;2;3;4}*(CHOOSE({1;2;3;4};A1;C1;E1;G1)>0);2);A1;C1;E1;G1)

Сергей, у меня нет желания тратить попусту Ваше и мое время.  Моя ошибка, что не увидел все возможные варианты и не описал детальнее. Мне задача виделась проще и понятнее по первичному условию.




 
Найти предпоследнее значение >0
 
БМВ,
ок, усложню пример(во вложении). Необходимые ячейки для подсчета остаются прежними A1,C1,E1,G1. В этом случае предпоследние положительное значение(слева на право) - 5. Если брать диапазон A1:G1, то предпоследнее значение - 21.
Найти предпоследнее значение >0
 
Сергей,
работает.
Вот только по прежнему не решен вопрос лишних ячеек B1,D1,F1.
Мне нужно их исключить из расчета.
Найти предпоследнее значение >0
 
Андрей VG, пожалуйста,
во вложении.  С переводом формул должно быть все ок, у меня англ excel.
Найти предпоследнее значение >0
 
Что-то формула не работает. В этой части выдает ошибку (A1:G1>0)
В последовательности специально пропущена часть ячеек, так как в них могут быть данные не нужные для результата.
Изначальная последовательность ячеек: A1,C1,E1,G1. Данные ячеек B1,D1,F1 в расчете не должны участвовать.

Спасибо.
Изменено: Easyway13 - 11 янв 2019 19:35:24
Найти предпоследнее значение >0
 
Пытливый, вы правы, исправляюсь
пример ниже
Нужно найти предпоследнее >0 значение среди ячеек A1,C1,E1,G1 (последовательность - слева на право)
Найти предпоследнее значение >0
 
Добрый день!
Необходимо найти предпоследнее значение >0 в непоследовательном ряду ячеек.
Возможно, кто-то уже задавал подобный вопрос, быстро найти схожие запросы не удалось.
Например ряд ячеек A1,C1,E1,F1

Заранее спасибо за помощь.
Изменено: Easyway13 - 11 янв 2019 14:28:39
Поиск последнего значения в выбраных ячейках строки
 
Mershik,
Внимательный взгляд на последовательность A,C,E,G поможет прочитать условие правильно.
Решение уже дали, видимо, условие достаточное для решения.
В любом случае, благодарен за желание помочь!
Поиск последнего значения в выбраных ячейках строки
 
Mershik, Alex_rnd,
большинство примеров приведены с применением неприрывного диапазона, мне нужен диапазон конкретных ячеек в строке. Возможно, это просто поменять, но я быстрого решения не увидел.
Казанский, спасибо за решение.
Поиск последнего значения в выбраных ячейках строки
 
Добрый день!
В качестве примера приведу ряд ячеек, в котором нужно найти последнее значение: A1, C1, E1, G1. В ячейках цифры.
Подойдет любой из вариантов: последняя ячейка со значением или последняя ячейка со значением больше нуля.

Заранее спасибо за помощь!
Как в формуле сделать ссылку на строку, смещенную относительно текущей на фиксированную величину?, Необходимо изменение номера строки сделать динамическим
 
Ок, следующий раз буду подбирать лучше название.
В данном случае у меня напрашивается - "Как сделать из статического параметра динамический?" :)
Как в формуле сделать ссылку на строку, смещенную относительно текущей на фиксированную величину?, Необходимо изменение номера строки сделать динамическим
 
IKor, все оказалось так просто. Спасибо за помощь.
Как в формуле сделать ссылку на строку, смещенную относительно текущей на фиксированную величину?, Необходимо изменение номера строки сделать динамическим
 
Добрый день.
В формуле гпр нужно сделать параметр строки динамическим - чтоб он менялся при протягивании формулы.
Например формула установлена в одной из ячеек 2-й строки с параметром номер_строки 6. При протягивании формулы на ячейку 3-й строки в формуле должна поменяться цифра номер_строки на 7.
Уверен, такой вопрос задавали ни один раз на форуме, но я не знаю ключевых слов для поиска по проблеме.

Заранее спасибо за помощь.
Изменено: Easyway13 - 16 авг 2018 15:45:07
Суммирование в кросс-таблице
 
Спасибо за решение.
Суммирование в кросс-таблице
 
Доброго времени суток
Есть список товаров, например 123.. и список разного сырья abc...
Нужно прописать формулу для суммирования сырья в другой таблице в зависимости от необходимого кол-ва товаров.

Какие могут быть варианты решения?
Перевод в плоскую таблицу - видимое решение, но нужен проще вариант.

Спасибо.
Сводная. Редактирование данных под сводную., оптимальный путь редактирования данных для создания сводной
 
Sanja, спасибо за красивое решение!
Сводная. Редактирование данных под сводную., оптимальный путь редактирования данных для создания сводной
 
Таблица во вложении. Задача сделать сводную оптимальным путем(мин по времени).
Изменено: Easyway13 - 11 янв 2018 13:59:28
Сводная. Редактирование данных под сводную., оптимальный путь редактирования данных для создания сводной
 
Добрый день!
У меня имеется таблица с данными, которую нужно внести в сводную. Из видимых вариантов решения - перебрать всю информацию руками, с какими -то небольшими оптимизациями, то есть переформатировать под сводную. Возможно кто-то с форума сталкивался с такой задачей и нашел решение проще и быстрее.

Использую Excel 16.

Буду благодарен любым советам.  
Изменено: Easyway13 - 11 янв 2018 13:56:22
Страницы: 1
Наверх