При нажатии кнопки у вибрание ячейки устанавливалась текущая дата

[homeandriy]

Попробовал, но так как мне не нужно затирать весь диапазон а два отдельных то немножко подзаправил

Код Выделить Развернуть


       Sub Clear_data
For i=0 To ThisComponent.Sheets().Count-1
ThisComponent.Sheets(i).getCellRangeByName("B3:B50").clearContents(com.sun.star.sheet.CellFlags.VALUE OR _
         com.sun.star.sheet.CellFlags.STRING)
          ThisComponent.Sheets(i).getCellRangeByName("D3:D50").clearContents(com.sun.star.sheet.CellFlags.VALUE OR _
          com.sun.star.sheet.CellFlags.STRING)
Next
End Sub


когда написал просто текст в ячейке (из диапазона) и нажала выполнить макрос то текст никуда не исчез. в чем может бить проблема?

[rami]

Понял, колонку С ненужно стирать.

[homeandriy]

да, колонку C стирать не нужно. Как то можно решить эту задачу?

[rami]

Как то можно решить эту задачу?

Я не понял какую задачу? У меня стирается. Как вы запускаете макрос?
Может быть на одну кнопку сделать два действия одновременно (стирать столбцы и записывать дату)?

[homeandriy]

Да все работает. Спасибо, просто как то сделал так что две кнопки (из редактора форм) наехали одна на другую и пересекались. Вообщем все работает!