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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 487 След.
Обьединение 2-х макросов в рамках одной процедуры "Worksheet_Change"
 
Цитата
Ігор Гончаренко написал: правее В
Да, описАлся, в столбце 'C' конечно, но  смысл вопроса остается тем же
Согласие есть продукт при полном непротивлении сторон.
доработка "Удобный поиск в выпадающем списке", малость доработать
 
Цитата
Irbis_evs написал: и сам переходил от поиска в одном столбце к следующему
Тогда вообще весь смысл отдельных списков теряется. Сделайте его одним общим и ищите по нему одному
А мне вот такой поиск нравится
Согласие есть продукт при полном непротивлении сторон.
Разбивка строк данных разной длины в таблицу
 
Вообще проблем не увидел. Данные - Текст по столбцам - Разделитель 'точка с запятой'
Согласие есть продукт при полном непротивлении сторон.
Получение значения переменной из формы
 
Код
Public a

Sub maim()
UserForm1.Show
MsgBox a
End Sub
Область действия (видимости) переменных в VBA
Согласие есть продукт при полном непротивлении сторон.
Обьединение 2-х макросов в рамках одной процедуры "Worksheet_Change"
 
vikttur, думаю что можно продолжить и в этой теме, т.к.
Цитата
a.m.v. написал: И вот этот макрос надо как то запихнуть в уже действующий макрос с датами.
a.m.v., можно как-то так так,
Код
Private Sub Worksheet_Change(ByVal Target As Range)
lRow = Cells(Rows.Count, "A").End(xlUp).Row
If Not Intersect(Target, Range("A2:B" & lRow)) Is Nothing And Target.Count = 1 Then
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    iOff = IIf(Target.Column = 1, 2, 1)
    If Target.Offset(, iOff) <= 0 Then Target.Offset.Value = "Won"
End If
InsData Intersect(Range("X:X"), Target), -1
InsData Intersect(Range("B:B"), Target), 1
Application.EnableEvents = True
Application.EnableEvents = True
End Sub

Private Sub InsData(InpRg As Range, offs As Integer)
  Dim Rng As Range
  If InpRg Is Nothing Then Exit Sub
  For Each Rng In InpRg
    If Not VBA.IsEmpty(Rng.Value) Then
      Rng.Offset(0, offs).Value = Now
      Rng.Offset(0, offs).NumberFormat = "dd.mm.yyyy, hh:mm"
    Else
      Rng.Offset(0, offs).ClearContents
    End If
  Next
End Sub
НО!
макросы от Ігор Гончаренко, меняют форматы ячеек в т.ч. в столбце 'B' (Осталось). Вам точно ЭТО надо? Что бы в столбце 'B' разница была отформатирована как дата?
Согласие есть продукт при полном непротивлении сторон.
Зависание USERFORM
 
Можно хоть одним глазком взглянуть на этот файл (или хотя бы код). У меня как раз есть беспроводная клавиатура, хочу сам на такое чудо посмотреть
Изменено: Sanja - 20 Июл 2019 08:58:09
Согласие есть продукт при полном непротивлении сторон.
Авто запуск файла в указанное время
 
Цитата
Toto_costa написал: От куда Макрос поймет во сколько ему запускать эксель?
Тогда запускайте этот закрытый файл по времени из ячейки какого-то другого, открытого файла
Согласие есть продукт при полном непротивлении сторон.
Форматирование базы, Удаление определенных номеров
 
Макросом
Код
Sub OnlyMobileNumber()
Dim arr()
arr = Range("G2:G" & Cells(Rows.Count, "G").End(xlUp).Row).Value
For I = LBound(arr) To UBound(arr)
    iTel = Split(arr(I, 1), Chr(10))
    If UBound(iTel) > 0 Then
        For J = LBound(iTel) To UBound(iTel)
            If InStr(1, iTel(J), "(") > 0 Then iTel(J) = Empty
        Next
    End If
    arr(I, 1) = Join(iTel, Chr(10))
Next
'для замены номеров 'на месте' измените 'H2' на 'G2' в строке ниже
Range("H2").Resize(UBound(arr), 1) = arr
End Sub
Согласие есть продукт при полном непротивлении сторон.
Авто запуск файла в указанное время
 
В модуле ЭтаКнига в обработчик события открытия книги вставьте строку запуска Вашего макроса
Код
Private Sub Workbook_Open()
    Call MyMacro
End Sub
Согласие есть продукт при полном непротивлении сторон.
Форматирование базы, Удаление определенных номеров
 
Файл - ПРИМЕР (НЕ 10000 позиций!) приложите. Как есть - Как надо
Согласие есть продукт при полном непротивлении сторон.
Авто запуск файла в указанное время
 
Авто запуск файла в указанное время
остальное не по теме
Согласие есть продукт при полном непротивлении сторон.
Зависание USERFORM
 
А с беспроводными мышами как дело обстоит?
Согласие есть продукт при полном непротивлении сторон.
Создать выходную форму из журнала
 
Цитата
Kedr Iohan написал: Я сделала все обычной формулой ВПР, но есть одна проблема
Эта проблема решается
Многоразовый ВПР (VLOOKUP)
но лучше в исходных данных (журнал) не иметь пустых строк и строк без номера распоряжения, а так же объединенных ячеек. Про объединенные ячейки касается и бланка распоряжения тоже
Изменено: Sanja - 19 Июл 2019 14:58:57
Согласие есть продукт при полном непротивлении сторон.
Повторное подтягивание по условиям без дубликатов
 
Офф.
Цитата
Framed написал: теоретически (и даже практически) бывает так, что компиляция этих четырех условий в источнике данных встречается несколько раз
вот от этого нужно избавляться в принципе. Введите пятый параметр(какой нибудь Простоключ1), но запись в Источнике должна быть уникальной, тогда и Ваши Суперключи будут уникальными. Избежите головной боли в будущем.
Это стандартные требования к Базам данных
Согласие есть продукт при полном непротивлении сторон.
Задача в Power Query
 
Цитата
Salta-301 написал:т Уже. Отказались.
буду иметь ввиду вас
Актуально
Что, вообще все отказались? И с макросами тоже?
Согласие есть продукт при полном непротивлении сторон.
Вопрос на 500 р., Сумма при выделений
 
Общаемся в ЛС
Согласие есть продукт при полном непротивлении сторон.
Нормализация телефонных номеров
 
Здравствуйте. Написал в ЛС
Согласие есть продукт при полном непротивлении сторон.
Смена пароля текущей учетной записи пользователя Windows, Поучаем имя компа, имя пользователя, меняем пароль
 
Цитата
БМВ написал: WshNetwork тут не при делах
Точно, я затупил
Согласие есть продукт при полном непротивлении сторон.
Смена пароля текущей учетной записи пользователя Windows, Поучаем имя компа, имя пользователя, меняем пароль
 
Код
Set oUser = WshNetwork.GetObject("WinNT://" & sCompName & "/" & sName)
Согласие есть продукт при полном непротивлении сторон.
Макрос автоматической печати jpg
 
Цитата
Dobepman написал: Как будто усер находится в директории выделяет два файла jpg и отправляет на печать.
Тогда Вам Excel не нужен
Выделить файлы в папке - ПКМ - Печать
Изменено: Sanja - 19 Июл 2019 09:29:11
Согласие есть продукт при полном непротивлении сторон.
Вопрос на 500 р., Сумма при выделений
 
Цитата
Максим В. написал: а не 140?
Или не 100, если все 30000 считать как 20000?
Не стесняйтесь, опишите более подробно задачу и приложите файл-пример
Согласие есть продукт при полном непротивлении сторон.
VBA: при вводе формулы в таблицу нужна подсказка, подсказки для формулы
 
Не будет.
Хотя, если убедите MS, что такая возможность необходима, могут, наверное, реализовать
Изменено: Sanja - 19 Июл 2019 08:28:33
Согласие есть продукт при полном непротивлении сторон.
Вопрос на 500 р., Сумма при выделений
 
Цитата
Kus написал: Вопрос на 500 р.,
Цитата
Kus написал: как указать в ячейке одну цифру, но при выделений для сложения считалась другая?
Ответ: Макросом
Где получить гонорар?
Согласие есть продукт при полном непротивлении сторон.
[ Закрыто] Сцепить несколько строк по одному уникальному значению
 
Здравствуйте.
Вложения нет
Измените свой ник - сейчас он нарушает Правили форума
Согласие есть продукт при полном непротивлении сторон.
мониторинг сроков годности на складе сырья, Создание таблицы для мониторинга сроков годности и фактического наличия продукции
 
Написал в ЛС
Обсуждаем
В работе
Изменено: Sanja - 19 Июл 2019 10:35:13
Согласие есть продукт при полном непротивлении сторон.
Нужна помощь в написании простого макроса, Написание макроса
 
По просьбе ТС вчера отправил контакты в ЛС, но тишина пока
Согласие есть продукт при полном непротивлении сторон.
Макрос автоматической печати jpg
 
Цитата
Игорь написал: макрос не обладает телепатическими способностями
Попробую я угадать
Код
Sub МакросПечати()
Dim iCell As Range
On Error Resume Next
'допустим, ссылки в диапазоне A1:A10
For Each iCell In Range("A1:A10").Cells
    If iCell.Hyperlinks.Count > 0 Then
        Filename$ = iCell.Hyperlinks(1).Address
        
        'если ссылка относительная - надо еще путь к папке дописать.
        'это уже сами доделаете в коде

        'вызов команды печати файла
        Call apiShellExecute(Application.Hwnd, "print", Filename$, vbNullString, vbNullString, 0)
    End If
Next
End Sub
Согласие есть продукт при полном непротивлении сторон.
Как указать номер строки через переменную
 
Код
iRow = 3
With Selection
    .Copy Sheets("Закрытые").Cells(iRow, 2)
    .EntireRow.Delete
End With
Изменено: Sanja - 18 Июл 2019 20:40:50
Согласие есть продукт при полном непротивлении сторон.
Макрос для обратной нумерации ячеек в столбце
 
Цитата
Gold_Barsik написал: начинать заново
И до каких пор это продолжать? 1 048 576 строк?  
Согласие есть продукт при полном непротивлении сторон.
Извлечь числовые значения из текстовой строки после определенных слов
 
Цитата
Serg Villain написал: Условие и ожидаемый результат во вложении.
Возможное решение по ссылке
Согласие есть продукт при полном непротивлении сторон.
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 487 След.
Наверх