Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Не работает событие, Не работает событие и вылезает ошибка
 
Вылезла ошибка, макрос какой то косячный получается, немогу добиться лучшего. При забивании в ячейку L и М должен срабатывать макрос и расчитываться одна строкаа в итоге срабатывает весь макрос до 100 ячейки
Если условие не выполняется, ячейка должна остаться пустой
 
Написал ряд условий и после этих условий ячейка J заполняется, хотя она пустая. По идеи она не должна заполняться словами Хороший бал а должна быть пустой ведь условия не прошли
[ Закрыто] К одной колонке в формате время добавляем 2 минуты
 
И так мы имеем в  одной колонке(H) время в формате "h:mm", к этому времени надо добавить две минуты, при условии что в колонке G текст "на ходу". Я сделал макрос но он неработает, что не так
Код
For I = 1 To 100 
    If (Range("G" & 2 + I) = "на ходу") Then 
     Range("E" & 2 + I) = Range("H" & 2 + I) + NumberFormat(0:02,"h:mm") 
       End If 
   Next 
End Sub
[ Закрыто] Формат время, Добавляем к одному времени другое время
 
И так мы имеем в  одной колонке(H) время в формате "h:mm", к этому времени надо добавить две минуты, при условии что в колонке G текст "на ходу". Я сделал макрос но он неработает, что не так
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For I = 1 To 100
    If (Range("G" & 2 + I) = "на ходу") Then
     Range("E" & 2 + I) = Range("H" & 2 + I) + NumberFormat(0:02,"h:mm")
       End If
   Next
End Sub
очистка данных из ячеек, при нажатии кнопки происходит очистка тех ячеек которые имеют данные
 
Ниже таблицы из строк A3 по О3 и до последней заполненной строки очищались данные при нажатии кнопки . ниже образец там макроса нет, даже не смог приблизительно что то написать в макросе
Условие нет данных то макрос перестает работать
 
Если в столбце P есть данные то макрос работает и рассчитывает формулы, как только  данные прекратились заноситься в ячейку P макрос перестал рассчитывать формулы, так сказать в холостую считать)
Не убираются нули в ячейках, убрать нули в ячейках, где записана формула
 
После цикла For от 1 до 150 идут нули сплошняком, если отключить нули то они везде убираются, а надо чтобы в ячейке D после расчета формулы если образуется ноль то там и должен оставаться . Чтобы нули если и были то только в активной ячейке, а то значения не вбил а нули уже до самого низа
Код
Sub Worksheet_SelectionChange(ByVal Target As Range) 
For I = 1 To 150 
P = Range("P" & 2 + I) 
Q = Range("Q" & 2 + I) 
Cells(2 + I, 2) = Int(P) 'округляет до целого числа 
Cells(2 + I, 5) = Int(Q) 

Cells(2 + I, 3) = Int(((P - Int(P)) * 10)) 
Cells(2 + I, 6) = Int(((Q - Int(Q)) * 10)) 
Cells(2 + I, 4) = (P * 10 - Int(P * 10)) * 100 
Cells(2 + I, 7) = (Q * 10 - Int(Q * 10)) * 100 
Cells(2 + I, 13) = Abs(P - Q) 
Next 
End Sub
Активная ячейка копируется по условия, Активная ячейка копируется по условия
 
Здравствуйте! Сперва данные вносятся в ячейку R7 потом в S7 и при условии что данные есть в ячейке R7 копируется ячейка S7 в ячейку T7. простой макрос на копирование подвисает выдает ошибку.
Страницы: 1
Наверх