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

Страницы: 1 2 След.
Копирование без формата ячеек при сборе данных с листов книги, модификация макроса из Приема "Сборка данных со всех листов книги в одну таблицу"
 
Михаил Витальевич С., Спасибо большое за помощь!
Копирование без формата ячеек при сборе данных с листов книги, модификация макроса из Приема "Сборка данных со всех листов книги в одну таблицу"
 
Михаил Витальевич С.,Большое спасибо! Заработало! А как сделать чтобы скрытые листы не учитывал?
Копирование без формата ячеек при сборе данных с листов книги, модификация макроса из Приема "Сборка данных со всех листов книги в одну таблицу"
 
Михаил Витальевич С., мне нужно собрать на лист DATA в этой же книге, все данные с листов, которые идут после листа DATA.
Копирование без формата ячеек при сборе данных с листов книги, модификация макроса из Приема "Сборка данных со всех листов книги в одну таблицу"
 
Михаил Витальевич С.,Добрый день, прикрепил к первому сообщению. Помогите пожалуйста с решением этой задачи. Спасибо!
Копирование без формата ячеек при сборе данных с листов книги, модификация макроса из Приема "Сборка данных со всех листов книги в одну таблицу"
 
Задачу так и не решил.
Пошел другим путем, макросом скинул форматирование на всех листах которые необходимо копировать.
Но теперь вопрос, я копирую их на лист в этом же документе, и у меня есть три листа из которых не нужно извлекать информацию, кто подскажет создать новую тему? или кто сможет помочь здесь же? Как исключить первые три листа из копирования?
Копирование без формата ячеек при сборе данных с листов книги, модификация макроса из Приема "Сборка данных со всех листов книги в одну таблицу"
 
Kuzmich,
Ну я лишнее всё убрал, в начальное вставил код из примера с приёма.

Вот мой:
Код
Sub CollectDataFromAllSheets()
    Dim ws As Worksheet
     
    Set wbCurrent = ActiveWorkbook
    Set wbReport = ActiveWorkbook.Worksheets("DATA")
     
    'копируем на итоговый лист шапку таблицы из первого листа
    'wbCurrent.Worksheets(1).Range("A1:D1").Copy Destination:=wbReport.Worksheets(1).Range("A1")
     
    'проходим в цикле по всем листам исходного файла
    For Each ws In wbCurrent.Worksheets
     
        'определяем номер последней строки на текущем листе и на листе сборки
        n = wbReport.Range("A1").CurrentRegion.Rows.Count
         
        'задаем исходный диапазон и вставляем в итоговую книгу со следующей строки:
        Set rngData = ws.Range("A2", ws.Range("A2").SpecialCells(xlCellTypeLastCell))    'от А2 и до конца листа
         
        'копируем исходный диапазон и вставляем в итоговую книгу со следующей строки
        rngData.Copy Destination:=wbReport.Cells(n + 1, 1)
         
    Next ws
End Sub
Изменено: argyman - 6 Дек 2019 19:08:48
Копирование без формата ячеек при сборе данных с листов книги, модификация макроса из Приема "Сборка данных со всех листов книги в одну таблицу"
 
Kuzmich,
к сожалению выдает ошибку 438, doesn't support property or method
Копирование без формата ячеек при сборе данных с листов книги, модификация макроса из Приема "Сборка данных со всех листов книги в одну таблицу"
 
Kuzmich, спасибо за ответ,
Это в эту часть вставлять?
Код
'копируем исходный диапазон и вставляем в итоговую книгу со следующей строки
rngData.[COLOR=#7b3000][B]Copy Destination:=wbReport.Worksheets(1).Cells(n + 1, 1)
Копирование без формата ячеек при сборе данных с листов книги, модификация макроса из Приема "Сборка данных со всех листов книги в одну таблицу"
 
Добрый день!

Отличный прием "Сборка данных со всех листов книги в одну таблицу", но мне нужно чтобы ячейки копировались без сохранения исходного формата.
Код
Sub CollectDataFromAllSheets()    Dim ws As Worksheet   
    Set wbCurrent = ActiveWorkbook
    Workbooks.Add
    Set wbReport = ActiveWorkbook
     
    'копируем на итоговый лист шапку таблицы из первого листа
    wbCurrent.Worksheets(1).Range("A1:D1").Copy Destination:=wbReport.Worksheets(1).Range("A1")
     
    'проходим в цикле по всем листам исходного файла
    For Each ws In wbCurrent.Worksheets
     
        'определяем номер последней строки на текущем листе и на листе сборки
        n = wbReport.Worksheets(1).Range("A1").CurrentRegion.Rows.Count
         
        'задаем исходный диапазон, который надо скопировать с каждого листа - любой вариант на выбор:
        Set rngData = ws.Range("A1:D5")            'фиксированный диапазон или
        Set rngData = ws.UsedRange                 'всё, что есть на листе или
        Set rngData = ws.Range("F5").CurrentRegion    'область, начиная от ячейки F5 или
        Set rngData = ws.Range("A2", ws.Range("A2").SpecialCells(xlCellTypeLastCell))    'от А2 и до конца листа
         
        'копируем исходный диапазон и вставляем в итоговую книгу со следующей строки
        rngData.Copy Destination:=wbReport.Worksheets(1).Cells(n + 1, 1)   
    Next ws
End Sub

Это возможно?

Спасибо за ответы!
Изменено: argyman - 7 Дек 2019 12:15:21
Копирование в буфер обмен файлов по прямой ссылке на них
 
Настя_Nastya, огромное спасибо! Отличный макрос!

Удалил с листа код, для запуска после выделения, и добавил кнопку, чтобы запускать с помощью нее.

Еще раз спасибо!
Копирование в буфер обмен файлов по прямой ссылке на них
 
Добрый день!

Есть список ссылок на файлы, есть ли возможность при выделении ячеек с ними, чтобы они копировались в буфер обмен, или открывалось бы окно для выбора пути куда их копировать.

Пример не прикрепляю, т.к. у Вас на компьютере он будет бесполезен, т.к. файлов нет.

Заранее спасибо!
Макрос по созданию папки с именем ячейки
 
Юрий М, спасибо исправил, но макрос все равно зависает на минут 5
Макрос по созданию папки с именем ячейки
 
tolstak, Добрый день! при запуске этого макроса, Excel зависает минут на 5, это нормально? Помогите пожалуйста
Код
Sub createFolders()
    Dim fso As Object
    sFldr = "C:\ВашаПапка\"  ' путь к папке
    If Dir(sFldr, vbDirectory) = "" Then MkDir sFldr ' создаем, если нет
    Set fso = CreateObject("Scripting.FilesystemObject")
    For Each el In Range([G2], [G1].Offset([A2].End(xlDown).Row - 1, 0))
        If Not fso.FolderExists(sFldr  & el.Value) Then
            fso.CreateFolder (sFldr  & el.Value)
        End If
    Next
End Sub
Вывод всех наименований по условию
 
Sanja, спасибо! этот прием для формулы массива подойдет? UPD. УПС. ПРОШУ ПРОЩЕНИЯ ГЛУПЫЙ ВОПРОС.
Изменено: argyman - 22 Май 2019 11:22:29
Вывод всех наименований по условию
 
Mershik, спасибо за замечаний, мне нужно удалить тему и заново опубликовать?
Вывод всех наименований по условию
 
Добрый день!

задача такая, ищу в таблице значение по нескольким другим, но совпадений может быть больше одного, а ПОИСКПОЗ + ИНДЕКС показывают первое найденное.
Как показать последующие, например с пом доп. ячейки с номером найденных значений.
Это первая задача.
Вторая вывески весь список найденных значений.

Пример прикреплен.

Помоги пожалуйста!
Получение списка только имен папок из пути в ячейки
 
Sanja, божественно!!! Огромное Вам спасибо!!! Вы лучше всех!!! :)  
Получение списка только имен папок из пути в ячейки
 
Sanja, спасибо, но не смог разобраться, т.к. там по моему не excel VBA. либо я ошибаюсь, если есть возможность объясните, как применить её к моей задаче пожалуйста.
Получение списка только имен папок из пути в ячейки
 
Добрый день!

Никак не могу заставить макрос из приема "Список файлов в папке" заставить выдавать только имена папок, выводить их в другой диапазон задаваемый, и чтобы путь брался из определенной ячейки.
https://www.planetaexcel.ru/techniques/3/45/https://www.planetaexcel.ru/techniques/3/45/

Sub FileList()    Dim V As String
   Dim BrowseFolder As String
   
   'открываем диалоговое окно выбора папки
   With Application.FileDialog(msoFileDialogFolderPicker)
       .Title = "Выберите папку или диск"
       .Show
       On Error Resume Next
       Err.Clear
       V = .SelectedItems(1)
       If Err.Number <> 0 Then
           MsgBox "Вы ничего не выбрали!"
           Exit Sub
       End If
   End With
   BrowseFolder = CStr(V)
   
   'добавляем лист и выводим на него шапку таблицы
   ActiveWorkbook.Sheets.Add
   With Range("A1:E1")
       .Font.Bold = True
       .Font.Size = 12
   End With
   Range("A1").Value = "Имя файла"
   Range("B1").Value = "Путь"
   Range("C1").Value = "Размер"
   Range("D1").Value = "Дата создания"
   Range("E1").Value = "Дата изменения"
   
   'вызываем процедуру вывода списка файлов
   'измените True на False, если не нужно выводить файлы из вложенных папок
   ListFilesInFolder BrowseFolder, True
End Sub


Private Sub ListFilesInFolder(ByVal SourceFolderName As String, ByVal IncludeSubfolders As Boolean)

   Dim FSO As Object
   Dim SourceFolder As Object
   Dim SubFolder As Object
   Dim FileItem As Object
   Dim r As Long

   Set FSO = CreateObject("Scripting.FileSystemObject")
   Set SourceFolder = FSO.getfolder(SourceFolderName)

   r = Range("A65536").End(xlUp).Row + 1   'находим первую пустую строку
   'выводим данные по файлу
   For Each FileItem In SourceFolder.Files
       Cells(r, 1).Formula = FileItem.Name
       Cells(r, 2).Formula = FileItem.Path
       Cells(r, 3).Formula = FileItem.Size
       Cells(r, 4).Formula = FileItem.DateCreated
       Cells(r, 5).Formula = FileItem.DateLastModified
       r = r + 1
       X = SourceFolder.Path
   Next FileItem
   
   'вызываем процедуру повторно для каждой вложенной папки
   If IncludeSubfolders Then
       For Each SubFolder In SourceFolder.SubFolders
           ListFilesInFolder SubFolder.Path, True
       Next SubFolder
   End If

   Columns("A:E").AutoFit

   Set FileItem = Nothing
   Set SourceFolder = Nothing
   Set FSO = Nothing

End Sub

Прошу Вашей помощи!
Аналог формулы FILTER из Google Sheet в Excel
 
Добрый день, есть ли аналогичная формула или способ реализовать формулу из Google Sheet?
Ниже её описание и синтаксис:

FILTER(диапазон; условие_1;[условие_2; ...])Пример
FILTER(A2:B26; A2:A26 > 5; D2:D26 < 10)

Описание
Отображает только те строки или столбцы в диапазоне, которые соответствуют заданным условиям.
диапазон
Фильтруемые данные.
условие_1
Столбец или строка, которые содержат истинные и ложные значения, соответствующие первой строке или первому столбцу в диапазоне, либо формула массива для оценки истинного или ложного значения.
условие_2... - [необязательный] повторяющийся
Дополнительные строки или столбцы, содержащие логические значения TRUE или FALSE. Они указывают на то, пройдет ли строка или столбец через фильтр. Вместо логических значений можно ввести формулу массива. Все условия должны касаться либо только столбцов, либо только строк. Смешанные условия работать не будут.

Буду благодарен за помощь!
Создание вариаций на основе данных
 
Mershik, большое спасибо! подошло, не правильно формировал свой запрос во вселенную.
Создание вариаций на основе данных
 
ДД,

подскажите можно ли в Excel создать вариации, на подобие как в Woocomerce
На примере обуви: в столбце А записываешь размеры, B цвет обуви, C вид.
А на другом листе бы создавались все возможные вариации.

Существует ли такое решение?
Копирование листа и переименование по списку
 
Здравствуйте уважаемые форумчане!

Есть основной лист Pivot, со списком необходимых листов и изначальных данных, также есть лист Sample_List, который необходимо скопировать по количеству наименований в диапазоне C1:C26, переименовав соответственно, скопировав предварительно диапазон С1:I2 и вставить транспорнировав на каждый продублированный лист на диапазон G4:G11 (образец создал последним листом "10"). И все это запускается после нажатие кнопки Create Lists.
И реально ли реализовать, чтобы этот файл сохранялся в другой по определенному пути, но без макроса и формул?

Буду очень благодарен за помощь!
Изменено: argyman - 24 Янв 2019 14:32:12
Макрос для поиска и замены текста в ячейках согласно списку
 
Nordheim, круто! спасибо большое!
Макрос для поиска и замены текста в ячейках согласно списку
 
tolstak, огромное Вам спасибо!
Отличное решение!
Именно то, что я и хотел!
Макрос для поиска и замены текста в ячейках согласно списку
 
Добрый день!

Прошу Вашей помощи!
В примере есть лист 1 - Specification, в первом столбце(его положение может меняться, поэтому лучше использовать выделенный диапазон) слова с ошибками, в них нужно исправить ошибки с помощью замены, из листа 2 - ReplaceList, в нём два столбца, в первом слова с ошибками, во втором правильный, он будет постоянно дополняться.

Нужен макрос, который бы находил и заменял текст в выделенном диапазоне ячеек согласно списку, объем достаточно большой от 2 500 до 10 000 ячеек.

Буду очень благодарен за помощь!

Спасибо!
Распределить данные, записанные по шаблону 1-2/3-4
 
Ігор Гончаренко, АlехМ, огромное Вам спасибо! Отличные решения!
Распределить данные, записанные по шаблону 1-2/3-4
 
Добрый день! Прошу Вашей помощи.
В ячейку записаны данные по шаблону А1: 1-2/3-4, необходимы распределить следующим образом
AB C D E
1-2/3-4    1 2 3 4
Пример в приложении, я там распределил первые строки вручную.
Очень жду Вашей помощи :)
Спасибо!
Изменение формата текста с помощью формул, Изменение формата текста с помощью формул или макроса
 
Всем здравствуйте!

Возможно ли изменять формат отдельных слов в предложении соединенных с помощью формулы СЦЕПИТЬ?
Пример прилагается

Заранее благодарю!
Поиск приближенного числа по условиям, Нужно найти в столбце искомое число при условиях
 
Всем Спасибо! особенно JayBhagavan! Всё получилось! Задача решена!
Страницы: 1 2 След.
Наверх