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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 167 След.
Выборочное копирование в новую книгу с ее сохранением под определенным именем.
 
Андрей,  из правил:
Цитата
2.6. Один вопрос - одна тема. Не следует в открываемой теме обозначать и задавать сразу несколько вопросов.
а у вас 1
Цитата
Андрей написал:
выбирал все значения из обоих столбцов, даже когда их кол-во меняется.
и 2
Цитата
Андрей написал:
как сохранить файл с нужным именем.  
Заполнение пустых ячеек столбца, между непустыми ячейками, значением из нижней непустой ячейки для отдельного "пустого диапазона"
 
Vale Lask,
Код
=ЕСЛИОШИБКА(ИНДЕКС($B:$B;ПОИСКПОЗ(МИН(A3:$A$500);A3:$A$500;0)+СТРОКА(D1));B2)
Заменить в нескольких ячейках номер строки на указанный
 
oleg9911, а я все еще до конца не понимаю, что вы делаете и для чего
в А3 и протянуть влево... вправо
Код
=ИНДЕКС(Лист2!$1:$1048576;Лист1!$E$3;СТОЛБЕЦ())
Изменено: Mershik - 11 авг 2020 17:32:58
Заменить в нескольких ячейках номер строки на указанный
 
oleg9911, ничего не понятно если честно, но зачем тогда менять номер строки если просто макросом можно подставить сразу нужные данные соответствующие указанной строке?
Метод .Find не ищет часть даты
 
Azakia,
Код
 Sub dateee()
d = #7/1/2020#
MsgBox Worksheets(2).Columns("A:A").Find(What:=Format(d, "m.YYYY"), LookAt:=xlPart, LookIn:=xlValues).Row

End Sub
Метод .Find не ищет часть даты
 
Azakia, так вам же нужно по части даты искать (месяц и год) ?? или статью до конца не дочитали?
Метод .Find не ищет часть даты
 
Azakia, у вас там текст или дата? лучше покажите эту ячейку в файле Это скорее всего связано что дата в VBA 07/01/2020 Будет задана.
https://codernotes.ru/articles/vba/poisk-na-liste-excel.html
Изменено: Mershik - 11 авг 2020 16:09:40
Простое заполнение таблицы, Подскажите как сделать простое заполнение таблицы
 
slentse, а что вы хотите понять? макрос я вам предложил или он не работает - если это так то покажите его в файле-примере...
и оставлю это здесь ( в модуль листа, по умолчанию если по заданным параметрам есть число то к нему прибавляем новое)
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("N4")) Is Nothing Then
Dim r As Range, c As Range

    Set r = Columns(1).Find([C4].Value, LookIn:=xlValues, LookAt:=xlWhole)
    Set c = Rows(7).Find([I4].Value, LookIn:=xlValues, LookAt:=xlWhole)
        
    If IsEmpty([C4]) Or r Is Nothing Then
        MsgBox "НЕ ЗАПОЛНЕН ИЛИ УКАЗАН НЕВЕРНЫЙ РАЙОН , ПРОВЕРЬТЕ ВВЕДЕННЫЕ ДАННЫЕ И ПОВТОРИТЕ ПОПЫТКУ!"
        Exit Sub
    ElseIf IsEmpty([I4]) Or c Is Nothing Then
        MsgBox "НЕ ЗАПОЛНЕН ИЛИ УКАЗАН НЕВЕРНЫЙ ТИП, ПРОВЕРЬТЕ ВВЕДЕННЫЕ ДАННЫЕ И ПОВТОРИТЕ ПОПЫТКУ!"
        Exit Sub
    ElseIf IsEmpty([N4]) Then
        MsgBox "НЕ УКАЗАНО КОЛИЧЕСТВО! ПРОВЕРЬТЕ ВВЕДЕННЫЕ ДАННЫЕ И ПОВТОРИТЕ ПОПЫТКУ!"
        Exit Sub
    Else
        Cells(r.Row, c.Column) = Cells(r.Row, c.Column) + [N4].Value
    End If

End If

End Sub

Изменено: Mershik - 11 авг 2020 17:26:39
ПУСТАЯ ЯЧЕЙКА ОПРЕДЕЛЯЕТСЯ EXCEL-ЕМ КАК НЕ ПУСТАЯ
 
inseption,  https://www.excel-vba.ru/chto-umeet-excel/pustaya-yachejka-opredelyaetsya-excel-em-kak-ne-pustaya-chto-za-glyuk/
ПУСТАЯ ЯЧЕЙКА ОПРЕДЕЛЯЕТСЯ EXCEL-ЕМ КАК НЕ ПУСТАЯ
 
inseption, inseption, честно ничего не пойму, у меня все меняется при любом изменении ячейки.
возможно стоит описать последовательность действий когда появляется ошибка?
Простое заполнение таблицы, Подскажите как сделать простое заполнение таблицы
 
slentse, мог, но еще раз повторю он может не работать на картинке. и у вас появится в будущем куча вопросов, а что делать если не корректно задали тип или район  или не указали количество, а если уже есть с заданными параметрами данные с количеством, что делать тогда..в общем удачи)
тема: Автоматическое заполнение ячейки по заданным параметрам
Код
Sub dddd()
Dim r As Range, c As Range
Set r = Columns(1).Find([C4].Value, LookIn:=xlValues, lookat:=xlWhole)
Set c = Rows(7).Find([I4].Value, LookIn:=xlValues, lookat:=xlWhole)
Cells(r.Row, c.Column) = [N4].Value
End Sub
Изменено: Mershik - 11 авг 2020 15:47:16
Простое заполнение таблицы, Подскажите как сделать простое заполнение таблицы
 
только макросом, но макросы не работают в картинках
Изменено: Mershik - 11 авг 2020 14:49:13
ПУСТАЯ ЯЧЕЙКА ОПРЕДЕЛЯЕТСЯ EXCEL-ЕМ КАК НЕ ПУСТАЯ
 
inseption, а покажите файл-пример с этой пустой не пустой ячейкой
Сортировка по логике, а не по порядку., столбец отсортирован 1,10,100,11,110,111 и т.д. как отосритровать по логике - 1,2,3,4,5,6......
 
:D  я человек простой:
Цитата
Ігор Гончаренко написал:
нужно обойти пароль? - жми кнопку "Обойти пароль"!
Сортировка по логике, а не по порядку., столбец отсортирован 1,10,100,11,110,111 и т.д. как отосритровать по логике - 1,2,3,4,5,6......
 
Прохор Романов, прикольно)пароль)
получение из веб по изменяющейся ссылке
 
Александр, чет не нашел никакого макроса ...
Изменено: Mershik - 11 авг 2020 11:01:41
Уменьшить вес файла Эксель, Уменьшить вес и сбор данных на один лист
 
Анна МТ, ДД. без файла-примера в формате excel и в нем же показанным ЖЕЛАЕМЫМ результатом (ручками забитым) никак.
Сравнение двух таблиц по нескольким столбцам
 
opex13, ладно попробуй так - я не нашел несоответствий
Изменено: Mershik - 11 авг 2020 10:42:40
Сравнение двух таблиц по нескольким столбцам
 
opex13, вы бы показали что должно получится...
VBA Печать листа с фильтрами, Не могу понять, как определить - есть ли строчки при применении фильтра
 
Алексей Гнездилов, например использовать промежуточные итоги
Счет не пустых ячеек в книге
 
scp,
Код
Sub fd()
Dim lr As Long, lcol As Long
Dim sh As Worksheet
Dim rng As Range
Application.ScreenUpdating = False

Z = 0
For Each sh In Worksheets
    sh.Activate
    lr = ActiveSheet.UsedRange.Rows.Count
    lcol = ActiveSheet.UsedRange.Columns.Count
    x = Application.WorksheetFunction.Count(Range(Cells(1, 1), Cells(lr, lcol)))
    Z = Z + x
Next sh
    Worksheets(1).Activate
    Worksheets(1).Cells(1, 2) = Z + 1
    
Application.ScreenUpdating = True
End Sub



При разных столбцах местонахождения активной ячейки передавать значение в разные ячейки, vba
 
Айван,
Код
Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Column = 2 And Target.Row < 20 Then [f2] = Selection.Value
If Target.Column = 3 And Target.Row < 20 Then [h2] = Selection.Value
If Target.Column = 4 And Target.Row < 20 Then [h5] = Selection.Value

End Sub
Множественный поиск совпадений в таблице
 
Validolum, хорошо,
Код
Sub dd()
Dim i As Long
Dim rng As Range

For i = 6 To 42

Set rng = Range("G" & i & ":R" & i)
k = Application.WorksheetFunction.CountIf(rng, [I3].Value)
k2 = Application.WorksheetFunction.CountIf(rng, [J3].Value)
k3 = Application.WorksheetFunction.CountIf(rng, [k3].Value)
If k >= 1 And k2 >= 1 And k3 >= 1 Then Cells(Cells(Rows.Count, 6).End(xlUp).Row + 1, 6) = Cells(i, 6)

Next i

End Sub
Множественный поиск совпадений в таблице
 
Validolum, а ну тогда ну значит пишите макрос перебора ячеек таблицы и если соответствует хоть одному из заданных значений подставляете в
Цитата
в ячейке F44 - значение 19, в ячейке F45 - значение 20.
Изменено: Mershik - 10 авг 2020 14:29:12
Множественный поиск совпадений в таблице
 
Validolum, покажите желаемый результат с учетом того что вы пишите
Цитата
возможно соответствие исходных данных более чем в одной строке и вывести нужно все совпадения (все значения N).
Изменено: Mershik - 10 авг 2020 14:25:00
Копирование и вставка имен ячеек из Диспетчера имен
 
Евгений И., https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=8&TID=27494 и https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=8&TID=17653
Разметка страницы: недоступно изменение масштаба, Недоступно изменение масштаба
 
polox, это ваше и было...
Формула для выбора данных из общего массива
 
thagbegin,
Код
=ИНДЕКС(Data!$1:$1048576;ПОИСКПОЗ(Лист1!$B10;Data!$A:$A;0);ПОИСКПОЗ($C$8;Data!$1:$1;0)+СТОЛБЕЦ()-3)
Как добавить имя листа в макрос, который собирает данные с листов книг на один лист
 
Avgust2047, удачи! (вот видите когда конкретный вопрос задаете - получаете конкретный ответ)
Как добавить имя листа в макрос, который собирает данные с листов книг на один лист
 
Avgust2047,  ДД.
Тема: Как вывести имя листа с которого скопированы данные
Код
If lCol Then wsDataSheet.Cells(lLastRowMyBook, 1).Resize(rCopy.Rows.Count).Value = oAwb & " " & wsSh.Name
Изменено: Mershik - 10 авг 2020 10:39:44
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 167 След.
Наверх