Имеется табличка с датами, состоящая например из 4-х ячеек. После того как вручную обновляю дату в первой ячейке C4, нужно чтобы данные в ячейках перенеслись в соседние ячейки справа, а из последней ячейки справа F4 старая дата соответственно просто исчезала
Имеется табличка с датами, состоящая например из 4-х ячеек. После того как вручную обновляю дату в первой ячейке C4, нужно чтобы данные в ячейках перенеслись в соседние ячейки справа, а из последней ячейки справа F4 старая дата соответственно просто исчезалаlobtimur14
Я, конечно, не гуру, но что-то сомневаюсь, что задача в том виде, в каком Вам хочется, имеет решение! Ведь в 1ю ячейку Вы вносите изменения. Значит, Ecxel уже не сможет эту дату переместить! Вот если это будет слева ещё одна ячейка, в которую постоянно вы будете вводить новую дату... Тогда, скорее всего, Вам помогут!
lobtimur14
Я, конечно, не гуру, но что-то сомневаюсь, что задача в том виде, в каком Вам хочется, имеет решение! Ведь в 1ю ячейку Вы вносите изменения. Значит, Ecxel уже не сможет эту дату переместить! Вот если это будет слева ещё одна ячейка, в которую постоянно вы будете вводить новую дату... Тогда, скорее всего, Вам помогут! Юрий_Ф
То, что мы делаем, завораживает! Кстати! Я не могу всем нравиться! И это взаимно!
Нет, уважаемый! Я полагаю, что именно так возможно! К сожалению, я не такой специалист, который бы мог Вам помочь. Давайте подождём тех, кто в Ecxel явлеятся большим профи! Мне тоже интересно, как можно решить эту проблему. А я, кроме того, что всё делать вручную, не смогу Вам подсказать. Выделить три первые ячейки, перетащить их вправо, а на освободившееся место написать новую дату.
lobtimur14
Нет, уважаемый! Я полагаю, что именно так возможно! К сожалению, я не такой специалист, который бы мог Вам помочь. Давайте подождём тех, кто в Ecxel явлеятся большим профи! Мне тоже интересно, как можно решить эту проблему. А я, кроме того, что всё делать вручную, не смогу Вам подсказать. Выделить три первые ячейки, перетащить их вправо, а на освободившееся место написать новую дату.Юрий_Ф
То, что мы делаем, завораживает! Кстати! Я не могу всем нравиться! И это взаимно!
добавим еще одну ячейку вначале, которая будет дублировать первую. Как тогда быть?
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("b4")) Is Nothing Then If Target > 0 Then Range("b4:e4").Copy Paste Range("i4") End If End If Application.CutCopyMode = False End Sub
[/vba]
[admin] lobtimur14, Ваш вопрос не имеет отношения к сводным таблицам [/admin]
добавим еще одну ячейку вначале, которая будет дублировать первую. Как тогда быть?
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("b4")) Is Nothing Then If Target > 0 Then Range("b4:e4").Copy Paste Range("i4") End If End If Application.CutCopyMode = False End Sub
[/vba]
[admin] lobtimur14, Ваш вопрос не имеет отношения к сводным таблицам [/admin]Serge_007