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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 183 След.
Макрос, на изменения названия книги
 
Дмитрий, или как вариант так
Макрос, на изменения названия книги
 
Дмитрий, самое просто это добавить доп столбец  пола и в макросе тогда все просто
Сложный подсчет кол-ва уникальных Клиентов по их Структуре в общем объеме
 
Цитата
Anatoly Vishnevsky написал:
Михаил Л , не понятны Ваши комментарии
здесь помогают по екселю и файлы соответствующего расширения должны быть, а не картинки - эо очень сильно ускорит получение Вами решения и думаю не одного
Запрет на изменение границ ячеек
 
Sof07, не уверен что будет понятно)
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B2:B10")) Is Nothing Then 'проверка были изменены ячейки в указанном диапазоне
        Target.Borders.LineStyle = True 'если условие выше верно - меняем границы на заданные если не выполняется - выход из макроса
    End If
End Sub
Изменено: Mershik - 26 сен 2020 22:09:43
Автоматическая подстановка данных по ФИО
 
Katya223, вы бы описали нормально задачу, что вот  есть такая таблица и есть такая, во второй хочу вносить ФИО туда-то и хоче получать как показано в табличке ниже расположенной там то..
а так наугад ВПР, ИНЕДКС+ПОИСКПОЗ - таких тема масса
Макросом скопировать на другой лист или книгу ячейки, находящиеся в области печати, при условии что область печать меняется
 
vaspup88, только лист =Worksheets("Лист4") переименуйте на нужный Вам
Код
Sub d()
Range(PageSetup.PrintArea).SpecialCells(xlCellTypeVisible).Copy Destination:=Worksheets("Лист4").Range("A1")
End Sub
Изменено: Mershik - 26 сен 2020 20:54:24
VBA. Аналог функции SumIf для умной таблицы
 
mbk61, а что не так с обычным Sumif? есть еще DSUM
Изменено: Mershik - 26 сен 2020 20:32:16
Найти наименьшее количество затраченных материалов, для разработки 1 единицы продукции
 
Даниил Матвеев, а покажите желаемый результат....в файле
Возможно ли ссылаться на отдельный лист с формулой для нескольких ячеек?
 
Цитата
Ilia Basov написал:
Есть файл эксель, в нем несколько листов.
нет ни одного файла и листов в том числе. НУжно показывать в екселе

и еще тут  в бесплатной ветке отвечают на конкретный вопрос ?
а комплексно Вам помогут в разделе РАБОТА...
Отфильтровать данные из одной Таблицы в новую таблицу
 
Макросом например, только из файла не понятно где что (где сходные данные, где желаемый результат)
Изменено: Mershik - 26 сен 2020 09:18:35
Возможно ли ссылаться на отдельный лист с формулой для нескольких ячеек?
 
Антиспам скрыл все повторите текст и файл пример прикрепите  
Написание макроса, для переноса данных из одной книги в другую и заполнение ячейки случайным образом
 
Цитата
restor38ru написал:
у этого листа всегда изменяется имя при работе
а положение меняется? если нет то воспользуйтесь советом
Цитата
Михаил Витальевич С. написал:
Worksheets(1) (1 без кавычек)- тогда имя листа значения не имеет.
это порядок расположения листов 1 самый левый и так далее
Изменено: Mershik - 25 сен 2020 16:15:31
Разделения столбца ( Конвертирования центов в Доллары )
 
Богдан Петрюк, пишите в любом месте 2, копируете ее, затем выделяете
Цитата
Ечейка "G" -
специальная ставка - умножить - ок
ну так же с
Цитата
Богдан Петрюк написал:
Ечейка "T"
выбрать лучший результат тестируемого
 
Kedr Iohan, массивная
Код
=ЕСЛИ(И(МАКС(ЕСЛИ($A$2:$A$13=A2;$B$2:$B$13))=B2;СЧЁТЕСЛИМН($A$1:A2;A2;$B$1:B2;B2)=1);"a";"")
Как установить "видимость" значения ячейки в зависимости от того или иного условия?
 
matvei, УФ я так понимаю не подходит? ( так как ячейка будет не пуста внутри но на вид будет как пуста)
"Метод PasteSpecial из класса Range завершен неверно" при переносе на другую машину, Нестабильный сбой макроса при переносе на другую ПЭВМ
 
Цитата
Jack Famous написал:
вы сначала попробуйте
а зачем?)
VBA. Удаление неопределенного количества столбцов
 
Цитата
Мария - написал:
Нужно удалить все столбцы начиная с P до 1го появления Overall result (строка 2)
ВЫШЕ МОЖНО ВЗЯТЬ КАК НАЗВАНИЕ ТЕМЫ
Код
Sub del_col()
Dim cell As Range
Set cell = Rows(2).Find("Overall Result")
Range(Cells(, 16), Cells(, cell.Column - 1)).EntireColumn.Delete
End Sub

а это чет не понял

Цитата
и перенести колонку с 2м Overall result на место Q
но наверное так...
Код
Sub del_col()
Dim cell As Range, lcol As Long
x = 2 ' номер строки где ищем Overall Result
Set cell = Rows(x).Find("Overall Result")
Range(Cells(, 16), Cells(, cell.Column - 1)).EntireColumn.Delete
lcol = Cells(x, Columns.Count).End(xlToLeft).Column
Columns(lcol).Cut Destination:=Columns(17)
End Sub
Изменено: Mershik - 25 сен 2020 10:51:24
VBA. Удаление неопределенного количества столбцов
 
Мария -, правильно ли я понял нужно удалить столбцы которые имеют в строке 2 имя "Overall Result" ?  
видимо нет нужно удалить столбцы до первого появления  в строке 2 имя "Overall Result" ? а всегда со столбца Р???
Изменено: Mershik - 25 сен 2020 10:19:24
Подстановка значения IP при условии, что 2 параметра соответствую заданным, не выполняется условие в макросе
 
Sne mart, честно без файла мне не понятен вопрос
Отображение списка в три колонки для печати, Отображение списка в три колонки для печати
 
Ирина *, что значит поделить для печати? что сейчас не так для печати?? или что вы имеете ввиду ? как газетная печать?может это
https://ruexcel.ru/dvekolonki/
Изменено: Mershik - 24 сен 2020 21:55:43
Поиск текста в таблице по дате и времени., Необходимой текст подтягивался под дату
 
Перт Кудашкин,так  (все для F2)
Код
=СУММПРОИЗВ(($B$2:$B$23=F$1)*($A$2:$A$23=$E2)*1)
или так
Код
=СЧЁТЕСЛИМН($B$2:$B$23;F$1;$A$2:$A$23;$E2)
Деление значений при определенных условиях
 
Александр,
Код
=ЕСЛИ(И(B3=0;D3=0);0;ЕСЛИ(И(B3>0;D3=0);B3*100;(B3/D3)*100))
Сопоставить две таблицы из разных листов и отметить совпадения
 
Цитата
naum_c написал: Какой?
Цитата
Для одаренных

почему нельзя просто выделить повторяющиеся значения?
в УФ для диапазона 1 листа С2:С39
Код
=ЕСЛИ(СЧЁТЕСЛИ(Лист2!$C:$C;Лист1!$C2)>0;ЕСЛИ(СЧЁТЕСЛИМН($C:$C;$C2;$H:$H;$H2)>1;ИСТИНА;ЛОЖЬ))
Макросом (из отдельного файла) вывести список листов указанной открытой книги и сохранить указанный лист в отдельный файл
 
Цитата
vaspup88 написал: можно на стандартной новой книге тренироваться
можете потренироваться
https://www.planetaexcel.ru/techniques/3/60/
а потом ActiveWorkbook замените на нужную Вам книгу
Сопоставить две таблицы из разных листов и отметить совпадения
 
Цитата
naum_c написал:  похожие
или все же
Цитата
naum_c написал: Поиск задвоений
в моем понимании задвоение это повторяющиеся значение точь в точь...
ну и конечно вам бы
Цитата
Ігор Гончаренко написал: подготовить файл пример с десятком строк
Написание макроса, для переноса данных из одной книги в другую и заполнение ячейки случайным образом
 
Цитата
restor38ru написал:
Пытаюсь написать макросы
а где хоть один или попытки?
Цитата
restor38ru написал:
есть Книга
у нас нет.
Цитата
restor38ru написал:
как переносить данные с помощью макроса из одной книги в другую?
ну пишите макрос и он это делает - только уточните о ПЕРЕНОСЕ вы говорите или все же КОПИРОВАНИИ - так как это 2 разные вещи. А вообще у вас нет гугла/яндекса ? Первые попавшиеся:
https://www.cyberforum.ru/vba/thread2194254.html
https://sirexcel.ru/makrosi_vba/kak_skopirovat_dannie_iz_odnoi_knigi_v_druguy­u/
https://exceltable.com/formatirovanie/perenos-dannyh-iz-tablicy
https://www.excel-vba.ru/forum/index.php?topic=1095.0

и самое главное ОДНА ТЕМА ОДИН ВОПРОС (такие правила форума они ТУТ, там и файле примере и о желаемом результате)
Поиск по значению на основе нескольких столбцов
 
не понял, я не гнался за тем что-бы что-то чему-то уступало  
Изменено: Mershik - 24 сен 2020 15:41:12
Скопировать столбец В со всех листов книги на Общий лист
 
Екатерина, даже в приведенном файле от New, ? или после копирования в ваш файл такими стали?
если да то еще раз их скопируйте но в раскладке русскоязычной.
Код
Option Explicit

Sub Собрать_столбцы_В()
Dim Sht As Worksheet, Counter As Long, LastCol As Long

    With Worksheets("Общий")
        LastCol = .Cells(1, Columns.Count).End(xlToLeft).Column 'номер последнего столбца
        .Cells.Clear 'удаляем данные со всего листа Общий (если НЕ надо удалять, то закомментируйте)
    End With
    
    'Counter = LastCol 'если надо добавлять столбцы правее, то раскомментируйте эту строку
     
    For Each Sht In ActiveWorkbook.Worksheets
        If Sht.Name <> "Общий" Then
            Counter = Counter + 1
            Sht.Columns(2).Copy Worksheets("Общий").Cells(1, Counter) 'копируем столбец В на лист Общий
        End If
    Next Sht
    MsgBox "Копирование столбцов В завершено!", vbInformation, "Конец"
End Sub

Изменено: Mershik - 24 сен 2020 15:10:11
Поиск по значению на основе нескольких столбцов
 
Григорий Сергиенко, можно ща попробую
Код
=ПРОСМОТР(2;1/ПОИСК('Исходные данные'!$A$2:ИНДЕКС('Исходные данные'!$A:$A;СЧЁТЗ('Исходные данные'!$A:$A);1);Результат!A2&Результат!B2&Результат!C2);'Исходные данные'!$B$2:ИНДЕКС('Исходные данные'!$B:$B;СЧЁТЗ('Исходные данные'!$B:$B);1))
Изменено: Mershik - 24 сен 2020 14:52:48
Подсчет нескольких критериев из диапазона
 
Ярослав, а может опишите задачу а не формулу?
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 183 След.
Наверх