Добрый день, подскажите есть ячейки с гиперссылками как перенести эти ссылки в поле для ссылок (когда правой на ячейке нажмешь там внизу ссылка, и открывает вставка гиперссылки)
помогите доработать код, с текстом кнопка работает но вот если в ячейке даты то фильтр ломается
вот код.
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
подскажите можно как-то доработать фильтр что-бы он автоматом прокручивался вверх (или при установке в поле ввода таблица сама прокручивалась вверх), а то неудобно если находишься внизу таблицы и забиваешь что-то в фильтр надо постоянно прокручивать, вот код
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
Помогите макросом или по другому как. надо из определенной папки забрать 20 файлов excel ( точнее данный из этих файлов ) файлы брать по времени создания файла от самого младшего по времени до старшего ( время до секунд, так как разница во времени файла 10 секнд ) и данный из этих файлов собрать в 1 книгу по порядку на один лист. Первая строка в файлах игнорируется.
подскажите при экспорте из программы по умолчанию открывается excel но формат ячейки стоит общий и обрезает большие числа как по умолчанию сделать формат ячейки текст
привет помогите с формулой если в a1 значение от 1 то а1*2 если в a1 значение от 2 то а1*1,5 если в a1 значение от 3 то а1*1 если в a1 значение от 4 то а1*0,5 коэфициенты
2 1.5 1 0.5 могуты быть в столбце вот както через если =(ЕСЛИ(a1>=1;a1*2;ЕСЛИ(a1>=2;a2*1,5;ЕСЛ**** так далее
Все привет. Подскажите можно как-то доработать фильтр чтобы он подсветил найденные результаты которые которые были введены в TextBox1
Код
Private Sub TextBox1_Change() If TextBox1.Value <> "" Then
Selection.AutoFilter Field:=6, Criteria1:="*" & TextBox1.Value & "*", Operator:=xlAnd
Else
Selection.AutoFilter Field:=6
End If
End Sub
Добрый день. Подскажите как скрыть столбец в котором к примеру забито слово "скрыть", то есть макрос ищет в листе к примеру во второй строке слово скрыть и скрывает этот столбец таких столбцов может быть много, а также потом открывает скрытые. В книге пример в итоге надо скрыть столбцы b, d, e, f, i, j, k, l, m, p.
Добрый, подскажите как преобразовать ячейку в гиперссылку, к примеру есть столбец данных надо в соседнем столбце сделать гиперссылку с данными из первого столбца. (
подскажите как макросом или формулой отсортировать данные в алфавитном порядке внутри ячейки данные разделены точкой с запятой ( ; ) ? пример данных : abc (1-2);bcd(5-9);zds(20-65);wdddsg(88-99); abq (46-987)