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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 1804 След.
[ Закрыто] Как сделать формулу короче?
 
Зачем создали тему-дубликат?
Почему не реагируете на замечание модератора?
Есть ли событие на выделение строки?
 
Есть событие и на выделение ячейки (группы ячеек) и на активацию листа. Определитесь, что Вам нужно.
Извлечение номеров телефонов из xls файла
 
Сейчас оставляем всё, что после первой открывающей скобки и эту скобку добавляем в начало текста. А раньше забирали всё, что после третьего пробела.
Ну и маска поменялась под телефонный стандарт.
Выбор данных для копирования в зависимости от значения в другой ячейке
 
Цитата
Tyoma написал:
я так и не могу перефразировать и заново назвать тему поэтому и попросил модератора!
Tyoma, а модератор и не должен за Вас придумывать название. Он должен поменять на новое, которые должны сформулировать Вы. Неужели Вы не знаете, в чём заключается проблема и не можете это кратко сформулировать?
Извлечение номеров телефонов из xls файла
 
Вот вариант с новой маской и другим алгоритмом.
Извлечение номеров телефонов из xls файла
 
А чего тут понимать? - не во всех строках с номером имеется имеется Фамилия, Имя, Отчество. Посмотрите строку 71 на первом листе. Ну и ниже тоже есть - строка 274. Макрос отсчитывает три пробела и берёт оставшееся значение. Или приведите все данные к единому формату или нужно менять алгоритм.
Выбор данных для копирования в зависимости от значения в другой ячейке
 
Цитата
Tyoma написал:
Прочитал правила
На пункт 3.10 внимание обратите.
Выбор данных для копирования в зависимости от значения в другой ячейке
 
Цитата
Tyoma написал:
мне как то всё равно, как она будет называться
Tyoma, форум не для Вас одного. Любой человек, зашедший на форум в поисках решения аналогичной проблемы, должен по названию понять, что это ТА САМАЯ тема.
Извлечение номеров телефонов из xls файла
 
Никакой ошибки нет: изначально данные на листах начинались со строки №15, а в последнем файле с первой строки - есть разница? Поменяйте в макросе номер строки, с которой цикл начинает перебор.
И ещё один момент: сейчас отталкиваемся от первой скобки, что может привести к ошибке. Поменяйте маску на такую:
like "*(###)###-##-##*"
Выбор данных для копирования в зависимости от значения в другой ячейке
 
И в #4 есть вариант нового названия?
Извлечение номеров телефонов из xls файла
 
Если ячейки с номерами всегда в таком формате, то см. вариант.
Обрабатываются листы с первого по предпоследний.  
Помогите вытащить емейлы в отдельные ячейки
 
А медведю хоть чуточку?
Количество листов в книге Excel по условию.
 
Андрей, привет! Согласен - так проще и короче. Не догадался я про индекс...
Но никто не отменял посимвольную оплату ))
Количество листов в книге Excel по условию.
 
\Разобрался:  по лист "Свод" включительно )
Код
Sub Macro1()
Dim i As Long
    For i = 1 To Sheets.Count
        If Sheets(i).Name = "Свод" Then Exit For
    Next
    MsgBox "В файле нужных листов: " & i, 64, "Для сведения..."
End Sub
Количество листов в книге Excel по условию.
 
Цитата
alver92 написал:
до листа с определенным названием(включительно)
Определённое - это какое в файле?
Объединить данные таблиц
 
Заказчик готов исправить файлы, так что берите, кто свободен ))
Помогите вытащить емейлы в отдельные ячейки
 
Готово!
Заполнение UserForm по условию поиска. VBA
 
В ЛистБокс добавьте второй столбец. Первый скройте (ширина = 0). Удалите процедуру ListBox1_Change и вместо неё используйте эту:
Код
Private Sub UserForm_Initialize()
Dim i As Long, j As Long
    For i = 7 To Cells(Rows.Count, 1).End(xlUp).Row
        If Cells(i, 1).Font.Color = RGB(255, 0, 0) Then
           ListBox1.AddItem i
           ListBox1.List(j, 1) = Cells(i, 1)
           j = j + 1
        End If
    Next
End Sub
Объединить данные таблиц
 
Привет! Из шести присланных файлов (csv) только два открываются без проблем. В остальных проблема с отображением кириллицы. До обсуждения ТЗ дело даже не дошло.
Найти минимальное значение до целевой даты
 
Миша, #8 - не писал я такого ))
Объединить данные таблиц
 
Заказ свободен.
Найти минимальное значение до целевой даты
 
Вот теперь (#4) всё верно.
Найти минимальное значение до целевой даты
 
Rusarch333, я ведь говорило, что ссылку нужно оформить тегом, а Вы опять даёте развёрнутую...
Найти минимальное значение до целевой даты
 
Rusarch333, анти-спам скрыл Ваше сообщение из-за ссылки. Повторите своё сообщение, только ссылку оформите соответствующим тегом.
Как правильно использовать Range.Offset, если используемая ячейка объединена с другой?
 
ocet p, а разве мои варианты из #4 и #7 дадут неверный результат или приведут к ошибке? Оба они в Immediate показывают нужный адрес: В8
Объединить данные таблиц
 
Пришлите на почту (есть в профиле) образцы файлов.
Как правильно использовать Range.Offset, если используемая ячейка объединена с другой?
 
Ещё: ?range("A10").Cells(1,2).offset(-2,0).address
Как правильно использовать Range.Offset, если используемая ячейка объединена с другой?
 
Вот такая штуковина:
?range("A10")(-1,2).address
Как правильно использовать Range.Offset, если используемая ячейка объединена с другой?
 
Андрей, привет! А костыль в виде "ход конём" (двойное смещение) не подойдёт?
?range("A10").Offset(-2,0).Offset(0,1).Address
Макрос автоматического копирования значений из диапазона на другой лист, Корректировка макроса
 
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    With Sheets("Лист2")
        If Not Intersect(Target, Range("A1:A5")) Is Nothing Then
            Range("A1:A5").Copy .Range("D1")
        End If
        If Not Intersect(Target, Range("B1:B5")) Is Nothing Then
            Range("A1:A5").Copy .Range("E1")
        End If
        If Not Intersect(Target, Range("C1:C5")) Is Nothing Then
            Range("A1:A5").Copy .Range("F1")
        End If
    End With
End Sub

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 1804 След.
Наверх