надо достать данные от слова товар до суммы, включая эти слова

помогите отобрать данные, пример прикреплен

сорян

спс
нашел

Sub ЗаменаГиперссылокСформуламиНаОбычныеВВыделенномДиапазоне()
   Dim cell As Range: Application.ScreenUpdating = False
   For Each cell In Selection ' перебираем все выделенные ячейки
       addr$ = FormulaHyperlink(cell) ' берем ссылку из формулы
       If Len(addr$) Then ' если ссылка есть, то
           cell.Value = cell.Value ' заменяем формулу значением
           cell.Hyperlinks.Add cell, addr$ ' заново прописываем гиперссылку
       End If
   Next cell
End Sub

Function FormulaHyperlink(ByRef cell As Range) As String
   If cell.HasFormula And (cell.Hyperlinks.Count = 0) Then
       If cell.Formula Like "=HYPERLINK*" Then
           FormulaHyperlink = Evaluate(Mid$(Split(cell.Formula, ",")(0), 12))
       End If
   End If
End Function

Добрый день, подскажите есть ячейки с гиперссылками как перенести эти ссылки в поле для ссылок (когда правой на ячейке нажмешь там внизу ссылка, и открывает вставка гиперссылки)

ошибка

подскажите как макросом открыть гиперссылку вот что находиться в ячейке
=ГИПЕРССЫЛКА(СЦЕПИТЬ("https://google.com/"&I3927);I3927)

помогите доработать код, с текстом кнопка работает но вот если в ячейке даты то фильтр ломается

вот код.

Private Sub CheckBox7_Click()
If CheckBox7 Then
ActiveSheet.Range(Cells(1, 1), Cells.SpecialCells(xlCellTypeLastCell)).AutoFilter Field:=ActiveCell.Column, Criteria1:=ActiveCell
   
Else

ActiveSheet.ShowAllData 'Showalldata снимает фильтры со всей таблицы, независимо от расположения выделенной ячейки
ClearFields

End If
End Sub

подскажите можно как-то доработать фильтр что-бы он автоматом прокручивался вверх (или при установке в поле ввода таблица сама прокручивалась вверх), а то неудобно если находишься внизу таблицы и забиваешь что-то в фильтр надо постоянно прокручивать, вот код

Private Sub TextBox1_Change()

  If TextBox1.Value <> "" Then
      Selection.AutoFilter Field:=10, Criteria1:="*" & TextBox1.Value & "*", Operator:=xlAnd
  Else
      Selection.AutoFilter Field:=10
  End If
Range("e1") = TextBox1.Value
End Sub

подскажите как загрузить данные по ссылкам, вот пример ссылок
https://www.test.com/Poisk/?searchText=AK77&beginSearch=
https://www.test.com/Poisk/?page=2&searchText=AK77
https://www.test.com/Poisk/?page=3&searchText=AK77
https://www.test.com/Poisk/?page=4&searchText=AK77
https://www.test.com/Poisk/?page=5&searchText=AK77
надо загрузить данные со всех ссылок в одну таблицу

класс работает спасибо

данные
артикул	кол-во
A1	2
A2	2

надо получить в итоге
A1
A1A2A2
вот тут

• • Книга1-76.xlsx (17.44 КБ)
    
  правильно но не понимаю как это сделано
  

не то

а как это повторить в другой книге

Размножить ячейку на количество указанное в ячейке. Пример прикреплен.

что-то не получается

помогите получить ячейку из количества, с названием темы тоже.

спасибо работает

спасибо. работает только собирает от новых к старому, а надо от старых к новому и форматирование данных надо оставить оригинальное

Помогите макросом или по другому как.
надо из определенной папки забрать 20 файлов excel  ( точнее данный из этих файлов ) файлы брать по времени создания файла от самого младшего по времени до старшего ( время до секунд, так как разница во времени файла 10 секнд )  и данный из этих файлов собрать в 1 книгу по порядку на один лист. Первая строка в файлах игнорируется.

создать новую тему?

а тут есть по 1с специалисты может кто поможет кнопками печати 1лист 4 копии сразу печать и 2лист и дальше 4копии сразу печать

точно излогает

спасибо

о.бендер

помогите формулой

пробовал выгрузить на машине где нет офиса поставил libre ofiice какой-то так програ вообще не выгрузила написало ошибку что ексель не найден

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

программа не моя в ней нет возможности редактирования полей

подскажите при экспорте из программы по умолчанию открывается excel но формат ячейки стоит общий и обрезает большие числа как по умолчанию сделать формат ячейки текст