Очень нужно узнать реально ли в экселе при помощи макросов сделать следующую операцию:
Есть журнал. В нем есть графа даты, графа номера, графа имени и название.
Нужно, чтобы выводились (или в новом документе или в новом окне) данные вписанные месяц назад. Т.е. 30 дней. Реально ли это сделать при помощи макросов и если да, то как?

Спасибо за помощь! Сейчас попробую. А вообще на счет сортировки - я уже думал, просто надо чтоб минимум действий и времени тем более что журнал большой, а комп - слабенький. Плюс сортировка там должна быть по другому столбцу. Я просто думал что если скриптом сделать, то потом можно скинуть на панель управления в виде кнопки. И чтоб было вообще все просто. Т.е. пользователь жмет кнопку на панели, включается макрос, и создается лист в котором вписаны результаты.
Такое сложно сделать? Нет, ну как макрос в кнопку приделать - знаю. Мне просто нужен сам макрос.
Заранее спасибо.

И еще. У тебя в макросе нужно именно задавать координаты месяца. Т.Е. перед каждым использованием макроса надо менять диапазон? Реально ли его автоматичиским сделать? Как нить типа Datenow-30 http://www.sql.ru/forum/images/happy.gif И еще вопрос как через буфер сделать?
На самом деле задача очень даже простая и вариантов решения много. Плюс я нашел часть скрипта, для определения даты и удаления страницы. мож его хоть как-то изменить и тогда что-нить выйдет? Просто в программировании профан. Но в принципе действия все понимаю, а вот сам написать не могу ничего путного =(
Вот тот макрос:
' Function DelSheetByDate
' Удаляет рабочий лист sSheetName в активной рабочей книге,
' если дата dDelDate уже наступила
' В случае успеха возвращает True, иначе - False

Public Function DelSheetByDate(sSheetName As String, _
dDelDate As Date) As Boolean
On Error GoTo errHandle

DelSheetByDate = False
' Проверка даты
If dDelDate <= Date Then
' Не выводить подтверждение на удаление
Application.DisplayAlerts = False
ActiveWorkbook.Worksheets(sSheetName).Delete
DelSheetByDate = True
Application.DisplayAlerts = True
End If

Exit Function
errHandle:
MsgBox Err.Description, vbCritical, "Ошибка №" & Err.Number
End Function

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

Evrodiller WhisperТак что, кто-нить может помочь?
Ну или хотябы наисать макрос копирования результатов на следующую страницу и автоматического отсчета 30 дней
Я сам не профи, но попробую тебе помочь. Скинь свою таблицу сюда

Не могу скинуть. Ну а смысл обычный - 4-5 граф, одна из которых (первая) - даты типа ddmmyy. Вот и все. остальные - текстовые.

Evrodiller WhisperТак что, кто-нить может помочь?
Ну или хотябы наисать макрос копирования результатов на следующую страницу и автоматического отсчета 30 дней
Я сам не профи, но попробую тебе помочь. Скинь свою таблицу сюда

Не могу скинуть. Ну а смысл обычный - 4-5 граф, одна из которых (первая) - даты типа ddmmyy. Вот и все. остальные - текстовые.

в принципе пример приведенный выше:

sub CreateReport ()
dim WS as Worksheet
dim WS1 as worksheet
set WS = ActiveSheet 'это тот лист, на котором лежит реестр
Worksheets.Add
set WS1 = Activesheet
rownum=2
'D1 и D2 - это даты границ пред.месяца

D1 = DateSerial(2006,6,30)
D2 = DateSerial(2006,8,1)

for I = 2 to WS.Range("A65536").End(xlUp).Row
if WS.Cells(I,1).Value > D1 and WS.Cells(I,1).Value < D2 then 'предположим, что дата в колонке 1
WS1.Cells(rownum,1).Value = WS.Cells(I,1).Value
WS1.Cells(rownum,2).Value = WS.Cells(I,2).Value
WS1.Cells(rownum,3).Value = WS.Cells(I,3).Value
WS1.Cells(rownum,4).Value = WS.Cells(I,4).Value
rownum=rownum+1
end if
next

end sub

Очень дажен неплох. Надо только придумать автоматический отсчет даты. Чтоб не вписывать каждый раз диапазон

А если попробовать что-нибудь типа такого, работать будет?

Public Shared Sub Main()

Dim window As Integer = 10
Dim freq As Integer = 60 * 60 * 30 // месяц;
Dim d1 As DateTime = DateTime.Now
Dim d2 As DateTime = d1.AddMonth((1*freq))