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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 36 След.
Дополнительный фильтр через макро рекордер, Не срабатывает дополнительный фильтр если его записать через макро рекордер и запустить
 
lextoys,Что бы заработало вам надо:
1) В таблице с данными сделать числа записанные как текст числами
2) В таблице условий записывать дробные числа используя как разделитель целого и дробного "." (Точку) а не "," (запятую)
Изменено: Александр П. - 14 янв 2021 09:09:10
Разность забитых мячей в записях 2-1, 3-4, 5-2
 
Владимир Осипов,  Почитайте статью про функцию ВЫЧИСЛИТЬ, думаю поможет.
Тему думаю можно назвать - как вычислить выражение записанное в ячейке
Копирование формул из одного отфильтрованного столбца в другой отфильтрованный столбец
 
derekT, Вариант. Немного изменил макрос отсюда, http://www.excelworld.ru/forum/2-37980-1
Код
Option Explicit

Public Sub Фильтр_Копировать_Параллельно()
Dim rng As Range
Set rng = Selection.SpecialCells(xlCellTypeVisible)

On Error Resume Next
Dim rngInput As Range
Set rngInput = Application.InputBox(Prompt:="Выберите ячейку или введите в формате A1:", Type:=8)
On Error GoTo 0

If Not rngInput Is Nothing Then
    Dim СтолбецСмещения
    
    СтолбецСмещения = rngInput.Column - rng.Column
Else
    
    Exit Sub '==>>
End If

Dim eL As Range

For Each eL In rng
    eL.Copy
    eL.Offset(0, СтолбецСмещения).PasteSpecial xlPasteFormulas
Next

MsgBox "Всё !"
End Sub
Сохранение листа в отдельный файл с именем из ячейки, Как сохранить лист из книги в отдельный файл с именем из ячейки?
 
alexexcel1990,
Код
sPath = ThisWorkbook.Path & "D:\"
Вот эту строку вы изменили неверно. естественно у вас ошибка, ибо нет такого пути
Если вам надо сохранять файл по пути "D:\"
то она должна выглядеть так
Код
sPath = "D:\"
Изменено: Александр П. - 4 дек 2020 05:12:21
Сохранение листа в отдельный файл с именем из ячейки, Как сохранить лист из книги в отдельный файл с именем из ячейки?
 
Цитата
alexexcel1990 написал:
привязал макрос на кнопку
И где же тут кнопка ?) Кстати в файлах с расширениями xlsx макросы не живут, так что и макроса в файле нет.
Изменено: Александр П. - 4 дек 2020 05:02:35
Сохранение листа в отдельный файл с именем из ячейки, Как сохранить лист из книги в отдельный файл с именем из ячейки?
 
alexexcel1990, ещё раз, приложите файл пример с ошибкой.
Mershik, судя по первому сообщению у ТСа версия 2007 или выше, должно работать без проблем.
Изменено: Александр П. - 3 дек 2020 10:02:33
Сохранение листа в отдельный файл с именем из ячейки, Как сохранить лист из книги в отдельный файл с именем из ячейки?
 
alexexcel1990, Если перенесли код в свой файл без изменений и в ячейке указано корректное для имения файла значение то должно работать.
Показывайте файл пример с ошибкой.
Выпадающий список с автофильтром в объединенных наименованиях
 
Цитата
Вадим Яворов написал:
фильтруются только те ячейки в  которых Зелень прописана  первой.
Использовать подстановочные символы религия не позволяет? :D  
Изменено: Александр П. - 3 дек 2020 09:33:21
Сохранение листа в отдельный файл с именем из ячейки, Как сохранить лист из книги в отдельный файл с именем из ячейки?
 
Вариант
Код
Sub savesheet()
Dim wb As Workbook, sName As String, sPath As String
Application.DisplayAlerts = False
sPath = ThisWorkbook.Path & "\" 'Путь по которому сохраняем файл, в данном случае папка где находится книга с макросом
sName = Cells(1, 1).Value 'Имя файла, в данном случае берется из ячейки А1
Set wb = ThisWorkbook
wb.ActiveSheet.Copy
Set wbCopySheet = ActiveWorkbook
wbCopySheet.SaveAs Filename:=sPath & sName & ".xlsx", FileFormat:=51
wbCopySheet.Close
Application.DisplayAlerts = True
End Sub
Изменено: Александр П. - 3 дек 2020 09:06:14
Сохранение листа в отдельный файл с именем из ячейки, Как сохранить лист из книги в отдельный файл с именем из ячейки?
 
alexexcel1990, Вам надо сохранить Активный лист, или лист с определённым названием?
Сохранение листа в отдельный файл с именем из ячейки, Как сохранить лист из книги в отдельный файл с именем из ячейки?
 
Приемы
Условное форматирование. Сравнение дат и заполненность ячеек строк
 
Вариант
Формула подсчета уникальных значений с несколькими условиями
 
skorlink,Вариант
Код
=СУММПРОИЗВ(($C$2:$C$11="Asus")/СЧЁТЕСЛИМН($C$2:$C$11;$C$2:$C$11;$D$2:$D$11;$D$2:D11))
Если нужно за определённый интервал времени (например за ноябрь) то так
Код
=СУММПРОИЗВ((($B$2:$B$11>=ДАТА(2020;11;1))*($B$2:$B$11<=ДАТА(2020;11;30))*($C$2:$C$11="Asus"))/СЧЁТЕСЛИМН($C$2:$C$11;$C$2:$C$11;$D$2:$D$11;$D$2:D11))
Изменено: Александр П. - 27 ноя 2020 05:59:17
Автоматическое изменение даты, согласно указанного времени суток
 
skymilk,Вариант
Найти значение, выполнив поиск в нескольких строках
 
evgeniygeo, Вариант
Код
=ЕСЛИОШИБКА(ИНДЕКС(Справочник!$B$2:$E$2;СУММПРОИЗВ(($B2=Справочник!$B$3:$E$8)*СТОЛБЕЦ(Справочник!$B$3:$E$8))-1);"")
Дописать текст в начало каждой ячейки в столбце
 
Цитата
БМВ написал:
сейчас окажется что там формулы  
Была такая мысль :)
Цитата
Дмитрий(The_Prist) Щербаков написал:
может у Вас в столбце А и формулы, и текст, и числа и пустые ячейки. А надо добавить только к тексту(игнорируя остальные ячейки).
И такая потом посетила  :D  
Дописать текст в начало каждой ячейки в столбце
 
Edgar-by Вариант
Код
Sub test()
Dim rRng As Range
Set rRng = Sheets("Лист1").UsedRange.Columns(1).SpecialCells(2)

For Each cl In rRng
    cl.Value = "какой то текст " & cl.Value
Next
End Sub
P.S. Вам бы не спорить, а просто показать сразу как выглядят ваши исходные данные и какой должен получится результат в примере, и не было бы никакой головной боли.
Возможно я тоже не угадал  :)  
Изменено: Александр П. - 18 ноя 2020 04:45:08
Менять название листа при протягивании формулы
 
smol74, Как - то так
Поиск и вывод всех найденных значений в один MsgBox
 
evgeniygeo,В циклах присваивайте значения переменной, а после цикла выводите сообщение.
Например, для первого блока:
Код
Sub aaa()
a = Date - 1
Set fcell = Columns("A:A").Find(a)
If Not fcell Is Nothing Then

For i = 3 To CStr(fcell.Row)
If Cells(i, 2).Value > 0 Then
    sStr = sStr & "вагон1: " & Cells(i, 1).Value & "-" & Cells(i, 2).Value & "мин" & vbCrLf
End If
Next i
MsgBox sStr
End If
End Sub
остальное по аналогии перепишите.
Хотя, зачем 4 отдельных цикла, можно весь ваш код примерно так записать
Код
Sub aaa()
a = Date - 1
Set fcell = Columns("A:A").Find(a)
If Not fcell Is Nothing Then
For j = 2 To 5
    For i = 3 To CStr(fcell.Row)
        If Cells(i, j).Value > 0 Then
            sStr = sStr & "вагон" & j - 1 & ": " & Cells(i, 1).Value & "-" & Cells(i, j).Value & "мин" & vbCrLf
        End If
    Next i
Next j
End If
MsgBox sStr
End Sub
Изменено: Александр П. - 2 ноя 2020 09:29:46
Как вывести часть данных ячейки с сохранением формата?
 
Тимур Капеев,Вариант
Изменено: Александр П. - 2 ноя 2020 06:36:49
Замена любой ошибки на текст, Как заменить любую ошибку при расчёте на любой текст
 
Macvaer, Понял, не заметил про вывод текста и при нулевом значении в первом посте.
Как вывести часть данных ячейки с сохранением формата?
 
Тимур Капеев,Формулами - никак
Замена любой ошибки на текст, Как заменить любую ошибку при расчёте на любой текст
 
Macvaer, В вашем случае, правильнее так.
Код
=ЕСЛИОШИБКА(ОКРУГЛВВЕРХ(K43/ИНДЕКС(Плот.Теплоносителя!$B$5:$G$110;ПОИСКПОЗ(ОКРУГЛВВЕРХ((K33+K34)/2;0);Плот.Теплоносителя!$A$5:$A$110);ПОИСКПОЗ('#Техническое задание'!H39;Плот.Теплоносителя!$B$2:$G$2));4);"нет данных")
открыть макросом xml файл в блокноте
 
Цитата
assedo написал:
сохранить в кодировке UTF-8
Как вариант
Код
Sub test()
Dim oStream
sFile = "C:\Users\Katalog\Desktop\file.xml"
Set oStream = CreateObject("ADODB.Stream")
With oStream
    .Open
    .Charset = "utf-8"
        For i = 1 To 30
            .WriteText Cells(i, 1), 1
        Next i
    .SaveToFile sFile, 2
End With
Set oStream = Nothing
End Sub
.Replace с текстом и числами. Отказывается заменять, пропускает запятую.
 
Цитата
RAN написал:
(почему, самому до кончика хвоста любопытно),
Да всё те же заморочки с региональными настройками. Поменяйте в региональных настройках разделитель целой и дробной части с (",") на ("."), и всё будет прекрасно работать.
Тема с похожей проблемой, только там с разделителем элементов списка траблы, хотя в этой решение другое )
Изменено: Александр П. - 16 окт 2020 10:49:50
Как написать текст в столбце G в каждой видимой ячейке после фильтрации столбца H, Записью макроса не могу встать в первую видимую ячейку
 
Цитата
Владислав написал:
Как написать в столбце G в каждой видимой ячейке после фильтрации "Замена модема"?
Код
    lrow = Cells(Rows.Count, "H").End(xlUp).Row
    Set Rng = Range("$G$2:$G$" & lrow).SpecialCells(xlCellTypeVisible)
    Rng.Value = "Замена модема"
VBA : при клике на фигуру - ее имя заносится в ячейку
 
Код
Sub test()
Dim str As String
    Sheets(2).Range("B2").Value = Application.Caller(1)
End Sub
Изменено: Александр П. - 16 окт 2020 04:53:54
Поиск части текста и подстановка значений
 
Цитата
Рамиль Камалитдинов написал:
НЕ вижу варианта
прошу прощения, вариант предложенный в сообщении 3 от Wild.Godlike
Мой вариант не вытащит из колонки С если перед номером счёта не будет стоять знак номера №
Изменено: Александр П. - 15 окт 2020 09:42:23
Поиск части текста и подстановка значений
 
Рамиль Камалитдинов,Не понял вашего вопроса. Вариант предложенный Mershik гораздо лучше.
Поиск части текста и подстановка значений
 
Цитата
Рамиль Камалитдинов написал:
То есть вопрос у меня в том как в соседнем столбце в листе EXPORT сделать ячейки содержащие то, что можно сравнивать через ВПР с данными в Базе по номеру счета.
Вставьте в D11 и протяните формулу
Код
=СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ(C11;"№ ";"№");" ";ПОВТОР(" ";99));ПОИСК("№";ПОДСТАВИТЬ(ПОДСТАВИТЬ(C11;"№ ";"№");" ";ПОВТОР(" ";99)))+1;99))
Правда у вас не везде на листе export в колонке C, есть номера счетов
Изменено: Александр П. - 15 окт 2020 09:15:44
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 36 След.
Наверх