Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Igor67
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 126 След.
Некорректно работает условное форматирование
 
#
15.04.2024 17:38:24
Если вы хотите в пределах одного года сравнивать по месяцам, формула в УФ
 =И(МЕСЯЦ(H$4)>=МЕСЯЦ($E6);МЕСЯЦ(H$4)<=МЕСЯЦ($F6))
Потому что в шапке (H$4...) у вас везде перовое число месяца
Изменено: Igor67 - 15.04.2024 17:40:13
 
Перейти    
Название объекта
 
#
13.04.2024 14:57:04
Посмотрите по ссылке Тут тема Универсальный обработчик событий контролов юзерформы
 
Перейти    
Передать в функцию если результат выполнения функции впр
 
#
13.04.2024 13:00:28
Добрый день! Проверяйте на ошибку =ЕСЛИ(ЕОШИБКА(ВПР());ЛОЖЬ;ИСТИНА) и это будет ваша истина.
Изменено: Igor67 - 13.04.2024 13:00:43
 
Перейти    
Как активировать функцию группировать/разгруппировать после защиты листа
 
#
12.04.2024 16:35:15
ALT+F11 откроется редактор VBA
Скрытый текст
 
Перейти    
Поиск значения в одном столбце по данным с другого столбца с копированием адреса ячейки
 
#
12.04.2024 12:59:23
Еще вариант
 
Перейти    
Подсчитать количество документов и действий с ними, Посчитать сумму
 
#
11.04.2024 20:45:15
Павел \Ʌ/, судя по
Цитата
Masha2323 написал:
должно быть 7дней
Надо или удалить повторы (ID&NAME), или считать уникальные по потокам =СУММПРОИЗВ(1/СЧЁТЕСЛИ(C2:C8;C2:C8);F2:F8), а кол-во листов вообще не меняется при передаче документа.
Но, подозреваю, что надо еще и ID учитывать.
Изменено: Igor67 - 11.04.2024 20:45:48
 
Перейти    
Макрос на заполнения ячеек после определенного символа в предыдущей ячейке.
 
#
11.04.2024 20:36:47
Вариант
 
Перейти    
Выбор по одному значению из нескольких
 
#
11.04.2024 12:46:47
Смотрите вариант.
 
Перейти    
не запускается макрос из личной книги
 
#
08.04.2024 16:52:31
Добрый день!
У вас прямое указание назначить лист из этой книги (из которой запускается макрос), но в личной книге такого нет
замените ThisWorkbook.Sheets("Лист1")
Используйте активную на момент запуска макроса книгу с активным листом.
Set ws = ActiveWorkbook.ActiveSheet
Изменено: Igor67 - 08.04.2024 16:53:47
 
Перейти    
Макрос по поиску первой пустой строки в таблице, занесения в неё часть значений с другого листа и сохранения ссылок в ней как значение
 
#
08.04.2024 14:31:18
Оксиген Ёлкина,  извините не досмотрел:(
замените в строчке shIsx.Range("H2:G2").Copy G ->J
shIsx.Range("H2:J2").Copy
 
Перейти    
Макрос по поиску первой пустой строки в таблице, занесения в неё часть значений с другого листа и сохранения ссылок в ней как значение
 
#
08.04.2024 12:56:12
Тогда простенький макрос по переносу строки 2
Код
Sub copyDan()
    Dim shIsx As Worksheet, lRow As Long

    Set shIsx = Sheets("ЗГП")

    lRow = Cells(Rows.Count, 2).End(xlUp).Row + 1
    'копирование и втавка значений
    shIsx.Range("A2:G2").Copy
    Cells(lRow, 2).PasteSpecial Paste:=xlPasteValues

    shIsx.Range("H2:G2").Copy
    Cells(lRow, 18).PasteSpecial Paste:=xlPasteValues

    Cells(lRow, 22).Value = shIsx.Range("K2").Value
    Cells(lRow, 32).Value = shIsx.Range("L2").Value

End Sub
 
Перейти    
Макрос по поиску первой пустой строки в таблице, занесения в неё часть значений с другого листа и сохранения ссылок в ней как значение
 
#
08.04.2024 12:17:03
Добрый день!
У вас все красиво, но хотелось бы знать:
1. Что это за лист ЗГП и как в него попадают данные.
2. Данные всегда расположены в желтых ячейках, или они могут менять позиции
Это нужно для того чтобы понять как искать данные и на что опираться.
 
Перейти    
VBA Проверка фильтрации данных
 
#
08.04.2024 12:02:07
Вставьте после установки фильтра строку
Код
ActiveSheet.ListObjects("Закупки").Range.SpecialCells(xlCellTypeVisible).Select
И используя F8 увидите что у Вас будет выделен заголовок таблицы, что уже больше 0
Да и на лист продажи у вас перехода не будет так, как у вас выход из процедуры при выполнении условия.
Изменено: Igor67 - 08.04.2024 12:03:57
 
Перейти    
Извлечь цифры из текста
 
#
05.04.2024 20:42:27
Макрос. Выделяете диапазон с данными для преобразования и запускаете макрос. Да, для переноса значений внутри ячейки в макросе используется перенос строки Chr(10) СИМВОЛ(10), можно заменить на пробелы " ".
 
Перейти    
Подстановку данных из одной таблицы в другую на разных листах
 
#
05.04.2024 18:49:05
Смотрите пример решения. Макрос в модуле листа. При внесении данных они записываются в итоговую таблицу. Контроля наличия записей/перезаписи данных нет. Поэтому что внесли, то в таблицу и уйдет.  
 
Перейти    
расчет перцентилей с учетом условий в разных строках и столбцах, написала формулу для расчета перцентилей по сцепке 2-х услови, а трех не получается, прощу помощи
 
#
03.04.2024 11:50:33
Добрый день!
у меня офис старше и не могу посмотреть формулу. У Вас проблема с определением расчетного диапазона.
По первой таблице вы можете сделать это так
Код
=$B$4:ИНДЕКС($B$4:$E$59;56;ПОИСКПОЗ($L5;$B$3:$E$3;0))

Изменено: Igor67 - 03.04.2024 13:10:55 (погорячился с началом таблицы:()
 
Перейти    
Разделение текста по разделителю на строки
 
#
23.03.2024 21:39:45
Максим, на работе часто приходится переносить текст из Word в Excel, и там наоборот перенос строки трактуется как новая строка.
Попробуйте сначала скопированное вставить в Word, а уже потом уже скопировать и перенести в Excel.
 
Перейти    
Подтянуть значение, если диапазон через ячейку или несколько и находится на другой строке, Замена ВПР но не знаю чем или как правильно
 
#
22.02.2024 11:39:37
Для старого
Код
=ИНДЕКС(График!$A$3:$AF$54;ПОИСКПОЗ($A5;График!$A$3:$A$54;0)+3;СТОЛБЕЦ())
 
Перейти    
Данные из "БАЗЫ" в любую ячейку "РАСЧЕТА", Формирование таблици
 
#
18.01.2024 12:44:55
Держите вариант.
В Module1 вставляете Public Cl As Variant, mySh As String
В модуль ЭтаКнига код ниже
Код
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
    If Not Sh.Name Like ("БАЗА") Then
        Sheets("БАЗА").Select
    Else
        Sheets(mySh).Range(Cl).Value = Target.Value
        Sheets(mySh).Select
    End If
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    If Not Sh.Name Like ("БАЗА") Then
        mySh = Sh.Name
        Cl = Target.Address
    End If
End Sub
Другой код в листах Расчет и База удаляете
 
Перейти    
Поиск через VBA по массиву со скрытием
 
#
28.12.2023 12:07:25
Sanja, зато есть стимул разобраться.
Прикрутил к файлу решение  Alex_ST
 
Перейти    
Поиск через VBA по массиву со скрытием
 
#
28.12.2023 10:50:39
Добрый день!
Попробуйте посмотреть здесь
'============================================================­===============================================
' Author       : Alex_ST
' Topic_HEADER : Удобный автофильтр
' Topic_URL    : http://www.planetaexcel.ru/forum.php?thread_id=11478
' Post_Author  : Alex_ST
' Post_URL     :
' Date_Time    : 20.02.11
' Purpose      : Программа фильтрации по критерию "содержит" в соответствии с изменениями содержимого текстбоксов
' Notes1       : если задать аргумент СТОЛБЕЦ% = 0, то столбец для фильтрации будет определяться автоматически по положению левого верхнего угла каждого текстбокса
' Notes2       : возможно автоматическое позиционирование текстбоксов относительно ячеек и подгонка их ширины-высоты
' Notes3       : возможна автоматическая замена при вводимых в текстбоксы пробелов на звёздочки
'============================================================­===============================================
 
Перейти    
Запрос на помощь по извлечению данных из файла .docx, Прошу помощи в извлечении и обработке данных из файла .docx, выделенных зеленым и желтым цветом. Требуется улучшение кода для извлечения дополнительной информации. Прилагаю файлы. Спасибо!
 
#
01.12.2023 01:01:59
Попытался... На тестовом файле подогнал...
не смог написать условие для Суммы в RegExp и не смог в итоговой таблице границы закрасить:( Где-то надо явно указывать что это Excel, но не смог...
Скрытый текст
Может кто подскажет как регулярным выражением вытащить сумму - 113411,67, а не извращаться со строкой.
Тестовый файл не прикреплял, он выше.
 
Перейти    
VBA создание подключения к источнику данных, Использование документов слияния
 
#
25.11.2023 15:00:34
БМВ,  Спасибо, не досмотрел что это просто строка :(  Надо или очки покупать или ноут менять на большой экран.
А вот эта часть  User ID=Admin? это не отсылка к правам пользователя? Пример делал с домашнего, а вот что пишет на работе не посмотрел:( Да и что можно из записи выкинуть без последствий?
 
Перейти    
VBA создание подключения к источнику данных, Использование документов слияния
 
#
25.11.2023 12:52:45
Создаю письма в Ворд, данные для письма в файле Excel. Периодически теряется подключение к источнику данных. Могу пройти путь в ручную, но вот бесит... Попробовал написать макрос. Задача открыть единственный файл Excel в папке с бланком письма не зависимо от расширения.
Но вот в строке подключения выданной макрорекодером вызывают сомнения части строки User ID=Admin и хотелось бы иметь возможность указывать имя листа откуда берем данные FROM `01Osn$`" в переменной.
Забыл, проба макроса в Ворде.
Код
Connection:= _
        "Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=sConn;Mode=Read;Extended Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Engine Type=37;Jet OLEDB:Database Locking Mode=0;Jet OLE" _
        , SQLStatement:="SELECT * FROM `01Osn$`", SQLStatement1:="", SubType:= _
        wdMergeSubTypeAccess
Изменено: Igor67 - 25.11.2023 12:53:59 (расположение макроса)
 
Перейти    
Разделитель строки., Получить данные с двухстрочной ячейки построчно.
 
#
01.11.2023 22:31:27
Код
=ПСТР($A4;1;ПОИСК(СИМВОЛ(10);$A4;1)-1)
=ПСТР($A4;ПОИСК(СИМВОЛ(10);$A4;1)+1;10)
 
Перейти    
Каксвязать столбцы с одинаковыми названиями но находящиеся на разных листах, Привязка изменяющегося каждый день столбца "Дата" на одном листе к столбцу с соответствующей датой на другом листе
 
#
12.10.2023 20:59:56
 Так там по дате и ищется столбец. Еще вариант перебором дат.
ПС в примере все работает, а что у вас в рабочем файле - не знаю.
 
Перейти    
Каксвязать столбцы с одинаковыми названиями но находящиеся на разных листах, Привязка изменяющегося каждый день столбца "Дата" на одном листе к столбцу с соответствующей датой на другом листе
 
#
11.10.2023 22:15:03
Добрый день!
Формулы не позволят зафиксировать значения. Поэтому макрос. Обратите внимание таблицу Октябрь в примере обозвал МесяцТек и изменил формат отображения даты в шапке. Есть в ВБА проблемы при поиске даты с разными форматами и я не разбираюсь в этом. Как искать по вашему формату не знаю.
Жмите на кнопку. Макрос ищет столбец даты, вставляет формулу ВПР() и потом преобразует формулы в значение.
 
Перейти    
Формула: понедельник+номер месяца+# в ячейку
 
#
19.09.2023 17:26:10
день+месяц
Код
=ТЕКСТ(СЕГОДНЯ()-ДЕНЬНЕД(СЕГОДНЯ();3);"ДДММ\#")
год+месяц
Код
=ТЕКСТ(СЕГОДНЯ();"ГГММ\#")
 
Перейти    
автоскрытие строк в таблице при условии заданной 1ой пустой колонке, Вопрос по автоскрытию строк.
 
#
29.07.2023 22:10:27
Цитата
написал:
обращался к диапазону TABLE1, TABLE2 например к колонке A
Обращаемся к диапазону - Range("TABLE1").Select
Обращаемся к заданному столбцу в диапазоне - Range("TABLE2").Columns(1).Select
 
Перейти    
Как выбрать значение по условию?, Запутался с синтаксисом при составлении формулы СУММ
 
#
27.07.2023 22:20:56
FAV123, у вас задача скорее выбора значения по условию.
Юрий М, это можно и названием темы сделать
Если вынести формулы в сторону (не запихивать в 1 ячейку), то можно использовать ВПР(B$7-B$6;{0;0:8,01;0,5:10;1};2;1) для выбора значения по перерыву.
смотрите вариант в файле.
Можно создать пользовательскую функцию, но это уже макрос и соответствующие ограничения.
 
Перейти    
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 126 След.
Наверх