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

Страницы: 1
Не работает событие, Не работает событие и вылезает ошибка
 
Вылезла ошибка, макрос какой то косячный получается, немогу добиться лучшего. При забивании в ячейку L и М должен срабатывать макрос и расчитываться одна строкаа в итоге срабатывает весь макрос до 100 ячейки
Если условие не выполняется, ячейка должна остаться пустой
 
Но при этом если сумма получилась меньше 0,05 то пишет одну надпись если больше то другую
Если условие не выполняется, ячейка должна остаться пустой
 
Заносим значения в ясейку P и Q два значения попадают в протяженность столбец j и пишется надпись. Но если ты поставил в графе H 1 или 2 то суммирование не происходит и пишется болтовоц. Комп сейчас не подрукой по памяти написал. Попозже взгляну и подробнее уже напишу
Если условие не выполняется, ячейка должна остаться пустой
 
Можно переменные сменить на variant чтобы в случае если ввели текст не всплывало ошибки а процедуру на какую заменить?!
Если условие не выполняется, ячейка должна остаться пустой
 
Ну сделаю переменную как дробную. Но так как 0 меньше 0.05 то так же и будет?!
Если условие не выполняется, ячейка должна остаться пустой
 
Почему там же не одна ячейка, в дальнейшем будет куча формул. Можно сделать наверное чтобы при набирании значения считались формулы. А если значение не введено то оно не считается и так отойти от того чтобы ячейки автомат не заьивались нулями и хорошим балом. Но это муторно) сам не селен в макросе.  
Если условие не выполняется, ячейка должна остаться пустой
 
Написал ряд условий и после этих условий ячейка 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 и до последней заполненной строки очищались данные при нажатии кнопки . ниже образец там макроса нет, даже не смог приблизительно что то написать в макросе
Условие нет данных то макрос перестает работать
 
написал макрос но находит он ячейку последнюю, а толку нет. А как связать чтобы эта последняя ячейка отключала макрос, чтобы он не считал от 0 до 150, а заканчивал на последней заполненой ячейке
Условие нет данных то макрос перестает работать
 
Если в столбце 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
Активная ячейка копируется по условия, Активная ячейка копируется по условия
 
Спасибо все получилось)
Активная ячейка копируется по условия, Активная ячейка копируется по условия
 
Возможно и грамотно составить макрос но пока до этого не дошел. Мне больше интересует при забивании в ячейку R10 любой цифры данные которые затем запишу в ячейку S10 копируются в ячейку T10. Должно быть условие если есть данные в ячейке R то ячейка S копируется в ячейку Т
Активная ячейка копируется по условия, Активная ячейка копируется по условия
 
Здравствуйте! Сперва данные вносятся в ячейку R7 потом в S7 и при условии что данные есть в ячейке R7 копируется ячейка S7 в ячейку T7. простой макрос на копирование подвисает выдает ошибку.
Страницы: 1
Наверх