Как дописать код для переноса выборочных данных с форматированием на другой лист

[valik65]

Уважаемые знатоки!
Большая просьба о помощи!Написана програмка в эксель -но не могу добить несколько моментов .Один из них помогли решить фуромчане-спасибо "VBA DEVELOPER" - Игорю.
Но осталась ещё одна проблемка которая мне не по зубам.
Поэтому прошу помощи.

Файл прилагаю
Описание проблемы на вкладке "ВОПРОС"
С Уважением Valik65

[IgorGO]

см.вложение. кнопка "перенести в ежедневник"

[valik65]

Сообщение от IgorGO

см.вложение. кнопка "перенести в ежедневник"

Уважаемый Игорь -спасибо большое ,что откликнулись!
Вы знаете
1.На листе КАЛЬКУЛЯТОР группируется строки , и с каждым нажатием группировок становится всё больше и больше.
А нужно группировать данные на листе Ежедневник.
2.На листе Калькулятор есть 8 кнопок "внести"- это разные приём пищи в течение дня.Каждая такая кнопка вводит данные в сборную таблицу на этом же листе и одновременно очищает колонку ввода (в коде прописано снятие защиты листа ,а потом восстановление ),так вот надо ,что бы в кнопки был дописан код который бы перед стиранием данных ,копировал бы их,менял цвет ,а не оставлял тот который они уже имеют в таблице(причём каждая кнопка присваивала бы свой фиксированный цвет тексту на странице ЕЖЕДНЕВНИК) ,и вставлял бы в начало списка на листе "Ежедневник",не присваивая каждый раз ДАТУ.Дата должна прописываться только раз в день. А В конце дня Кнопкой "удалить данные и внести в таблицу"-удаляется вся информация и вносится в данные графика. В макрос этой кнопки нужно дописать ещё одно действие-что бы на лист Ежедневник вносилась бы СЛЕДУЮЩАЯ дата.
Под которой бы и формировался весь завтрашний день.
На этом цикл заканчивается .

Если сможете -помогите.Буду очень признателен

P.S.И Всё это хотелось бы вставить в уже имеющиеся кнопки -без написания новых
С Большим уважением к Вам,
Валентин

[valik65]

Спасибо за код

[IgorGO]

действительно, группирует на листе калькулятор - это ошибка.
замените процедуру

Sub ToOrganizer()
  Dim rc As Long
  rc = 0
  With Sheets("Ежедневник")
    For r = 44 To 2 Step -1
      If Cells(r, 10) > 0 Then
        rc = rc + 1
        .Rows(4).Insert Shift:=xlDown
        .Cells(4, 1) = Cells(r, 5)
        For c = 5 To 8: .Cells(4, c) = Cells(r, c + 4): Next
        .Rows(4).Font.Color = Cells(r, 5).Font.Color
      End If
    Next
    .Rows("4:5").Insert Shift:=xlDown
    .Range("A4:A5").MergeCells = True
    .Cells(4, 1) = Cells(3, 18)
    .Range("E4:H5").MergeCells = True
    .Cells(4, 5) = Cells(3, 18)
    .Cells(4, 1).NumberFormat = "[$-FC19]dd mmmm yyyy г."
    .Cells(4, 5).NumberFormat = "dddd"
    With .Cells(4, 1).Font
      .Size = 14: .Italic = True: .Bold = True
    End With
    With .Cells(4, 5).Font
      .Size = 12: .Italic = True: .Bold = True
    End With
    .Cells(4, 5).HorizontalAlignment = xlCenter
    Rows("6:" & 5 + rc).Group
  End With
End Sub

на

Sub ToOrganizer()
  Dim rc As Long
  rc = 0
  With Sheets("Ежедневник")
    For r = 44 To 2 Step -1
      If Cells(r, 10) > 0 Then
        rc = rc + 1
        .Rows(4).Insert Shift:=xlDown
        .Cells(4, 1) = Cells(r, 5)
        For c = 5 To 8: .Cells(4, c) = Cells(r, c + 4): Next
        .Rows(4).Font.Color = Cells(r, 5).Font.Color
      End If
    Next
    .Rows("4:5").Insert Shift:=xlDown
    .Range("A4:A5").MergeCells = True
    .Cells(4, 1) = Cells(3, 18)
    .Range("E4:H5").MergeCells = True
    .Cells(4, 5) = Cells(3, 18)
    .Cells(4, 1).NumberFormat = "[$-FC19]dd mmmm yyyy г."
    .Cells(4, 5).NumberFormat = "dddd"
    With .Cells(4, 1).Font
      .Size = 14: .Italic = True: .Bold = True
    End With
    With .Cells(4, 5).Font
      .Size = 12: .Italic = True: .Bold = True
    End With
    .Cells(4, 5).HorizontalAlignment = xlCenter
    .Rows("6:" & 5 + rc).Group
  End With
End Sub

[valik65]

Игорь!
Действительно работает.Спасибо.,Но задача несколько другая .В предыдущем сообщении я ей описал.Не могли бы ВЫ помочь в написании кода по условиям изложенным выше.
Я Дал аналогичный запрос на других сайтах программеров,но никто почему то не справился .Неужели задача настолько сложна?
С Уважением Валентин

[IgorGO]

задачу не решают не по причине какой-то особой сложности, а просто непонятно что необходимо делать.
я сделал что понял или как понял, как мне показалось логично.

дополнительных разьяснений в новом вложении я не нашел, ничего принципиально нового или более детального не вычитал, не увидел никаких новых описаний, происходящего в этой книге. поэтому по-прежнему не представляю что нужно делать.

У меня в профиле есть координаты, как со мной можно связаться. Скайп у меня под руками почти постоянно.аська в рабочее время не работает.

а изменения, которые я прислал: в третьей с конца строке была опечатка - я точку в самом начале строки пропустил.

с уважением,
ИгорьГончаренко

[valik65]

Не получается связаться по скайпу!

[valik65]

Уважаемый Игорь ! Вроде бы сам со всем разобрался благодаря конечно Вашему коду .Спасибо.
Но не могли бы Вы ещё немного со мной ПОВОЗИТЬСЯ ,?И ещё малость подправить код в макросе "ПЕРЕНОСДАННЫХ" ,-тут я уже все варианты перепробывал- без Вашей помощи ничего у меня не выходит?!

Конкретно-на послдней странице группируется только 2 строчки под ячейкой с ДАТОЙ ,а мне надо сгруппировать весь день под этой датой

Как Вы предложили-попытался с Вами по скайпу связаться-но Вы не в онлайн.
Очень надеюсь на Вашу помощь.
С Уважением Валентин

[IgorGO]

Жена-то связалась... и заданий бытовых выдала...

ловите.
кнопка "внести" теперь одна. вносит данные, куда стрелка показывает. чтобы переместить стрелку, напишите чего-нибудь в колонке W (она же колонка 23) напротив нужной строки.