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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 42 След.
Массовый поиск похожих строк и автоматическая замена, автоматическая замена найденных схожих значений
 
Пишу в личку.
формат ячеек с цифрами
 
Это нужно видеть, пример файла нужен.
VBA: Поиск последней строки
 
Александр так и знал, что дальше последуют следующие вопросы, Вы почитайте хоть литературу - куча примеров. То что Вы спрашиваете - это элементарные вещи - ничего особенного.
Код
Sub Копирование_Вставка_Очистка()
    Range("H2:L" & lr2).Copy
    Range("AA2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
     Range("A1").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Range("A7:F7").ClearContents
End Sub
Изменено: skais675 - 18 Апр 2019 14:32:49
VBA: Поиск последней строки
 
Код
Sub Button1_Click()
    With Sheets("Лист2")
        Range("B4:L4").Copy .Range("B" & .Cells.SpecialCells(xlLastCell).Row + 1)
    End With
End Sub

Изменено: skais675 - 18 Апр 2019 14:11:53
VBA: Поиск последней строки
 
Александр Нет, я просто удивился.
VBA: Поиск последней строки
 
А как вы собирались решить это задание без VBA?
Изменено: skais675 - 18 Апр 2019 13:55:45
VBA: Поиск последней строки
 
Александр Вы же специалист, и в работу вроде берете, заблудились в трех соснах? Приложите пример.
Изменено: skais675 - 18 Апр 2019 13:53:15
Выпадающий список по двум связанным критериям...
 
Максим В. я тоже так подумал. По ходу весна.
Изменено: skais675 - 17 Апр 2019 14:33:12
Выпадающий список по двум связанным критериям...
 
Уберите галочку в проверке данных ignore blank - игнорировать пустые.
Изменено: skais675 - 17 Апр 2019 14:11:44
Три выпадающие списка с уникальными значениями
 
Сегодня уже был аналогичный вопрос здесь
Вам нужно будет добавить еще одну ступень (там указана вторая и третья по сути, а вам нужно первую, создайте по аналогии).
Изменено: skais675 - 16 Апр 2019 21:13:19
Создание гиперссылки при помощи макроса/формул.
 
Код
Sub Макрос()
    For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
        With Sheets("Лист2")
            s = .Cells.Find(What:=Cells(i, 1), After:=ActiveCell, LookIn:=xlFormulas, LookAt _
                :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
                False, SearchFormat:=False).Address
            Cells(i, 2).Hyperlinks.Add Anchor:=Range("B" & i), Address:="", SubAddress:= _
                "'" & .Name & "'!" & s, TextToDisplay:=Cells(i, 1).Value
        End With
    Next
End Sub
Создание воронки продаж
 
Что-то похожее здесьи здесь
Ваш случай
Изменено: skais675 - 16 Апр 2019 20:18:45
Выпадающий список по двум связанным критериям...
 
Максим В. Вы все верно подметили я и не заметил - эти списки должны быть предварительно отсортированны!
Шахин Возьмите это на заметку.
Выпадающий список по двум связанным критериям...
 
Шахин А по одному условию можете? Объедините два условия в одно (сделайте ключ).
Изменено: skais675 - 16 Апр 2019 14:42:21
Форматирование дубликатов по заданным критериям
 
Код
=MAX(IF($B$2:$B$12=B2;$C$2:$C$12;))=C2
Поиск строки по значениям двух столбцов и сумма данные третьего,
 
Код
Dim factor As Byte
Dim arr(), nmb, art, i As Long
with sheets("Имя вашего листа")
arr = .Range("B3:E" & .Cells(.Rows.Count, "B").End(xlUp).Row).Value
    nmb = CDbl(usf_____.txt_____)
    art = CDbl(usf_____.txt______)
    factor = 1
    For i = 1 To UBound(arr)
        If arr(i, 1) = nmb Then
            If arr(i, 4) = art Then
            .Cells(i + 2, "J") = .Cells(i + 2, "J") + usf_____.txt______.Value
            .Cells(i + 2, "K") = .Cells(i + 2, "K") + usf______.txt____.Value
            factor = 0
            Exit For
            End If
        End If
    Next
    If factor Then MsgBox "Не нашел позицию!" Else MsgBox "Добавил!"
end with
Изменено: skais675 - 15 Апр 2019 16:22:18
Поиск строки по значениям двух столбцов и сумма данные третьего,
 
Alexey74 Хотите сказать, что это влияло на скорость?
Цитата
Процесс тормозится.
Суммирование в разных диапазонах по нескольким условиям
 
as_sa Может я чего-то не понимаю, а почему нельзя просто суммесли? Пример кажется очень громоздким - много лишнего для понимания на мой взгляд.
функция "содержит" в цикле vba
 
Joskii Но циклы у Вас все же как-то не так сделаны. Разве не нужно пройтись сначала по первому листу и искать во втором чтобы присвоить первому? У Вас как-то вверх-тармашками.
функция "содержит" в цикле vba
 
Код
str2 = "*" & sheet1.Cells(i, 4).Value & "*"
Изменено: skais675 - 15 Апр 2019 08:46:14
Производственный план, Помощь в создании производственного плана
 
Написал в личку.
ТС ответил, взял паузу.
Изменено: skais675 - 16 Апр 2019 11:06:32
Задача по зависимым выпадающим спискам на основе проверки данных
 
AppleKot идите тем же путем не задавайте явный вызов НД, а провоцируйте его как в Ваших примерах ранее, к примеру через ВПР на несуществующее. Тогда сохранится предыдущая логика - или из списка или что угодно. Ну а если не придерживаться списка и всегда давать возможность вводить что угодно - тогда галочка.
Изменено: skais675 - 14 Апр 2019 19:33:43
Сбор данных в таблицу из массива данных в соответствии с датой, Сбор данных для ежедневного отчета из листов в зависимости от установленной даты
 
Написал в личку.
ТС отменил задание.
ТС сказал, что взял паузу для пересмотра тз.
Изменено: skais675 - 14 Апр 2019 19:34:58
Задача по зависимым выпадающим спискам на основе проверки данных
 
AppleKot Для того, чтоб вводить все что угодно в проверке данных снимите галочку - Выводить сообщение об ошибке.
Какой смысл во 2,3 пункте - если Вы заведомо пытаетесь дать ошибку - проще снять проверку данных, или как я сказал выше.
Да и не понятно почему Вас не устраивает то как раньше у Вас работало - если оно работает?
Изменено: skais675 - 14 Апр 2019 14:52:10
VBA пауза в макросе и выбор файла вручную
 
Код
Dim FilesToOpen
    FilesToOpen = Application.GetOpenFilename _
        ("Excel files(*.xls*),*.xls*", 1, "Выбрать файл", , False)
    If TypeName(FilesToOpen) = "Boolean" Then
        MsgBox "Файл не выбран!"
        Exit Sub
    End If
    Workbooks.Open Filename:=FilesToOpen
Изменено: skais675 - 13 Апр 2019 11:43:46
Макрос для отсеивания нужных текстовых значений
 
blid_812 Приложите пример
Поиск строки по значениям двух столбцов и сумма данные третьего,
 
Alexey74 пришлите файл на почту (в профиле), посмотрим.
Изменено: skais675 - 13 Апр 2019 17:04:28
Поиск строки по значениям двух столбцов и сумма данные третьего,
 
Поправил.
Поиск строки по значениям двух столбцов и сумма данные третьего,
 
Alexey74 Как в анекдоте - мы пульки выпустили - выпустили - проблемы на Вашей стороне!
Поиск строки по значениям двух столбцов и сумма данные третьего,
 
Alexey74 Нужно. Поправил. Я обычно этим не замарачиваюсь не трачу лишнее время - но есть случаи где это крайне необходимо.
Изменено: skais675 - 12 Апр 2019 20:07:42
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 42 След.
Наверх