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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 219 След.
[ Закрыто] макрос для ввода текста во все ячейки, в которых содержится условие
 
Цитата
чтобы только по ячейке А1 работал, а не всему столбцу?
Я вам уже писал
Оставьте только это значение в столбце А листа Plavki
[ Закрыто] макрос для ввода текста во все ячейки, в которых содержится условие
 
Цитата
На листе Plavki у вас в столбце А два значения 197941-3 и 197928-3
Вы можете в любом удобном для вас столбце этого листа прописать признак, какой вставлять текст?
"горячий всад" или какой другой для каждой плавки
[ Закрыто] макрос для ввода текста во все ячейки, в которых содержится условие
 
Цитата
допустим 197941-3 это горячий всад
Оставьте только это значение в столбце А листа Plavki
Цитата
в столбце А содержатся все значения, но не все из них "горячий всад"
Так проставьте в столбце В какие из них "горячий всад", какие нет и скорректируйте макрос
Изменено: Kuzmich - 15 Дек 2019 22:54:26
Сцепка текста в соседних ячейках макросом
 
Цитата
Но если данные начинаются с H6:I10
То эксель вылетает
Так скорректируйте код под этот диапазон
[ Закрыто] макрос для ввода текста во все ячейки, в которых содержится условие
 
Цитата
но он вставил текст "горячий всад" во все ячейки столбца AY,
На листе Plavki у вас в столбце А два значения 197941-3 и 197928-3
На листе "порезка" в столбце F встречаются только эти два значения, поэтому
макрос  и вставил текст во все ячейки столбца AY
Сцепка текста в соседних ячейках макросом
 
Чем мой вариант не подошел?
Сцепка текста в соседних ячейках макросом
 
Код
Sub iConcatenate()
Dim i As Long
Dim iLastRow As Long
Dim j As Integer
Dim iLastCol As Integer
Dim stroka As String
 iLastRow = Range("A1").End(xlDown).Row
  For i = 1 To iLastRow
    stroka = Cells(i, 1)
    iLastCol = Cells(i, Columns.Count).End(xlToLeft).Column
    If iLastCol >= 2 Then
      For j = 2 To iLastCol
        stroka = stroka & "[" & Cells(i, j) & "]"
      Next
    End If
    Cells(i, 1) = stroka
  Next
End Sub
Числовой фильтр отображает не все значения
 
Цитата
Да, абсолютно верно
Так сначала отсортируйте таблицу по столбцу С, а уже потом фильтр по дате
Определить пересечение строки и столбца при нескольких условиях
 
Макрос срабатывает при изменении в ячейках "B19:B21"
Выбор последней заполненной ячейки в диапазоне.
 
Цитата
не на ту кнопку макроса нажали при вводе оценки
По-моему у вас только одна кнопка для ввода оценки
Если закомментировать строку в макросе
Код
ActiveCell.FormulaR1C1 = "1"
    'Range("C10").Select

то активной будет та ячейка, в которую была введена оценка
и если она неправильная, то нажать  кнопку Delete
Изменено: Kuzmich - 15 Дек 2019 18:06:12
Выбор последней заполненной ячейки в диапазоне.
 
Цитата
а вот отменить ее не хватает знаний.
По какому событию предполагается отмена?
Определить пересечение строки и столбца при нескольких условиях
 
Макрос в модуль листа
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B19:B21")) Is Nothing Then
Application.EnableEvents = False
Dim FoundSer As Range
Dim FoundTip As Range
Dim Rasxod As Range
   Set FoundSer = Columns(1).Find(Range("B19"), , xlValues, xlWhole)
   Set FoundTip = Range(Cells(FoundSer.Row, 2), Cells(FoundSer.Row + 3, 2)).Find(Range("B20"), , xlValues, xlWhole)
   Set Rasxod = Rows(3).Find(Range("B21"))
   Range("E19") = Cells(FoundTip.Row, Rasxod.Column)
    End If
Application.EnableEvents = True
End Sub
[ Закрыто] макрос для ввода текста во все ячейки, в которых содержится условие
 
Цитата
напротив каждой плавки будет кнопка
А почему не сделать цикл по плавкам в столбце А и ограничиться одной кнопкой
Код
Sub Plavki()
Dim i As Long
Dim iLastRow As Long
Dim FoundCell As Range
Dim FAdr As String
   iLastRow = Cells(Rows.Count, "A").End(xlUp).Row
 With Worksheets("порезка")
   .Range("AY5:AY12" & iLastRow).ClearContents
  For i = 1 To iLastRow
    Set FoundCell = .Columns(6).Find(Cells(i, "A"), , xlValues, xlWhole)
     If Not FoundCell Is Nothing Then
      FAdr = FoundCell.Address
      Do
        .Cells(FoundCell.Row, "AY") = "горячий всад"
       Set FoundCell = .Columns(6).FindNext(FoundCell)
      Loop While FoundCell.Address <> FAdr
     End If
  Next
 End With
End Sub
Определить пересечение строки и столбца при нескольких условиях
 
Вы прикрепите пример в формате Excel и покажите, что вы изменяете и где выводить результат
Выбор последней заполненной ячейки в диапазоне.
 
А так попробуйте
Код
Dim iLastRow As Long
  iLastRow = Range("A1:B3").Find("*", [A1], SearchDirection:=xlPrevious).Offset(1, 0).Row
[ Закрыто] Подсчет суммы
 
А что обозначает 3 в примере
12345-3-110
Определить пересечение строки и столбца при нескольких условиях
 
Цитата
при том что вариантов значение не мало
Для определенной серии тепловоза это только одно значение
[ Закрыто] Подсчет суммы
 
Цитата
как можно подсчитать суммы.
И где в приведенном примере суммы?
[ Закрыто] макрос для ввода текста во все ячейки, в которых содержится условие
 
CAN1,
Цитата
мне нужно, чтобы при нажатии на кнопку (в моем случае фигура с макросом)
На каком листе кнопка?
Что делает макрос?
Код
Sub вставить()
' вставить Макрос
    ActiveSheet.Paste Columns(1).Find(Empty, Cells(Rows.Count, 1), xlValues, xlWhole)
End Sub
Заполнение таблицы по двум критериям: : по промежутку времени и по месту расположения
 
БМВ,
Я и спрашиваю, если у сотрудника только один день в этом месяце, учитывать его
в общем количестве за этот месяц?
Заполнение таблицы по двум критериям: : по промежутку времени и по месту расположения
 
Andro,
А, если Termination  Date равна 01.05.2017,
то ставить 1 в этом месяце?
Заполнение таблицы по двум критериям: : по промежутку времени и по месту расположения
 
Цитата
Не в службу, а в дружбу,
Посчитайте хотя бы для одного города вручную и покажите результат
Сравнение ячеек и заливка
 
В модуль листа 2
Код
Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, Range("B5:B15")) Is Nothing Then
        Application.EnableEvents = False
  With Worksheets("Лист1")
   If Not .Range("A1:A" & .Cells(.Rows.Count, 1).End(xlUp).Row).Find(Target, , xlValues, xlWhole) Is Nothing Then
    Target.Interior.ColorIndex = 3
   End If
  End With
 End If
    Application.EnableEvents = True
End Sub
Определить числа, записанные в ячейке через пробел
 
pabloescobar1949,
Цитата
во всех ячейках - 0
Это значит, что макрос сработал и все дело в пробелах
между числами в ячейках столбца А
замените пробел в строке (то что в кавычках)
Код
arr = Split(Cells(i, 1).Value, " ")
Определить числа, записанные в ячейке через пробел
 
У вас какие-то хитрые пробелы между числами в ячейках столбца А.
Попробуйте скопировать пробел из строки формул и вставить в макрос
В строку , где кавычки " "
Определить числа, записанные в ячейке через пробел
 
pabloescobar1949,
А мой макрос пробовали?
При выделении ячеек убрать / поставить рамки - Внешние рамки
 
Юрий М,
Тс просил Макрос на быструю клавишу или на кнопку в ленте
При записи макрорекордером выберите сами сочетание клавиш,
при которых он будет срабатывать
Сформировать последовательность дат с пропуском суббот и воскресений, добавить пропущенные даты
 
БМВ,
В 2003 такая же, только на русском
При выделении ячеек убрать / поставить рамки - Внешние рамки
 
Цитата
нужно написать такой макрос
Запишите действия макрорекордером и макрос готов
Сформировать последовательность дат с пропуском суббот и воскресений, добавить пропущенные даты
 
Цитата
В противном случае все равно тянуть
Записываем в ячейку начальную дату, а в меню прогрессии конечную, шаг=1 и рабочие дни
и ничего тянуть не надо
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 219 След.
Наверх