{quote}{login=Юрий М}{date=20.11.2011 02:51}{thema=}{post}Да просто все устали уже: не будет у Вас работать. 90 сообщений - четвёртая страница пошла... :-){/post}{/quote}  
если у меня не работает, то на это наверное есть причина? может в таком случае сначала мне разобраться со своим ПО? может кто то поможет? сразу отмечу, что у меня офис2007 полноценная рабочая версия.  
прочла уйму материалов по поводу настройки программы и включения макросов, так что  макросы включены и программа правильно настроена.  
если кто-нибудь пожелает в этом удостовериться, пусть задаст вопрос по настройке ПО и состоянию макросов(у меня на компе), с радостью отвечу.  
ребята, помогите девушке разобраться с этой задачкой, будьте так любезны

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

сделала как вы сказали, то же самое

{quote}{login=yoozhik}{date=19.11.2011 09:57}{thema=}{post}то, что у Вас офис 2007, еще не значит, что по умолчанию файлы открываются через него. Я вам писал уже, попробуйте открыть именно ексель 2007, а из него уже открыть файл с форума.{/post}{/quote}  
ок, сейчас проверю

{quote}{login=yoozhik}{date=19.11.2011 09:02}{thema=}{post}наверное про какие-то настройки не на этот форум. Решение, которое делает то, что вы хотите, вам дали, в нескольких вариантах. как макросы разрешить - сказали. если ничего не работает - дело в том офисе, который вы себе на комп поставили. в базовой "комплектации" с допустим распространенной сейчас оперативкой виндовс7 идет стартер 2010, приложения которого, ексель в частности, не поддерживает работу макросов. Вы писали, что установили 2007 офис. Откуда нам знать, чего у вас там? Я ставил себе 2003 офис, взятый с rutracker.org, все нормально работает. Чтобы ответить вам на ваш вопрос с настройками, надо как минимум видеть, что у вас происходит при открытии{/post}{/quote}  
 
у меня точно не "стартер 2010", откуда знаю? отсюда - Microsoft Office 2007...SP3 MSO...  
 
посоветуйте хоть какой-либо вариант, уже запуталась в файлах, которые вставляли на эту тему, а тот файл, который выкладывали с кнопкой даёт ошибку: "Не удаётся выполнить макрос "post_279259"...Возможно, этот макрос отсутствует в текущей книге либо все макросы отключены."  
 
Но уверяю вас, макросы включены.

ребята, может у меня настройки программы не правильные?

{quote}{login=Z}{date=19.11.2011 07:06}{thema=}{post}Простите за off, но...  
Проблема ли - всего 12(!!!) раз в ОДНОМ(!!!) году нажать на кнопку макроса?!.  
Или просто напоминалку сделать - "Сегодня первый рабочий день  месяца - ЖМИ!!!"?!.{/post}{/quote}  
если есть хоть что то готовое, что бы отвечало требуемым действиям, временно воспользовалась бы, можете предложить что-нибудь?

{quote}{login=sva}{date=19.11.2011 05:20}{thema=}{post}Хм...либо у Вас Excel криво стоит, либо антивирус слишком хорошо работает. Хотя может еще что-то, сложно сказать дистанционно.{/post}{/quote}  
а может не в антивирусе дело? отключила защиту антивируса и снова запустила файл, опять 25, нет изменений

{quote}{login=sva}{date=19.11.2011 04:23}{thema=}{post}Я чего-то не понимаю:  
"по ходу, вы изменили только эту строку " [F:F].Value = [I:I].Value"
"код макроса в VBA не виден и соответственно столбец I не копируется в F"  
эти две строки друг-другу противоречат. Так что же у Вас не работает?  
Можете описать что Вы делаете, и на каком шаге возникает проблема.{/post}{/quote}  
понимаю вас, простите, что так сильно вас всех мучаю со своей задачкой.  
постараюсь описать весь процесс...скачала последний вами выложенный файл, открыла, посмотрела код макроса, сравнила с предыдущим, нашла отличие, потом закрыла файл, изменила системную дату на первое число следующего месяца, потом снова запустила ваш файл, на первом листе изменений(ожидаемых) не было, открыла VBA, чтобы снова пересмотреть весь код макроса, но теперь окно макроса в VBA выглядит так, как, обычно выглядит зависшая страница, то есть кода не видно, а запечатлён картинка предыдущей странички...

интересно, а можно будет применить эту формулу "=СУММ(FF+GG-HH)" к требуемому столбцу(в нашем случае столбец I), чтобы она запускалась всего один раз в месяц после первого числа следующего месяца?

{quote}{login=sva}{date=19.11.2011 03:32}{thema=}{post}Смотрите в Вашем файле.{/post}{/quote}  
по ходу, вы изменили только эту строку " [F:F].Value = [I:I].Value", верно?
но знаете, у меня появился глюк, после скачивания вашего файла с вашего последнего сообщения(несколько раз скачивала), код макроса в VBA не виден и соответственно столбец I не копируется в F, хотя в файле залитом вами ранее макрос прекрасно менял значения по переходу на первое число, но глюк был только в отображении данных, как и писала выше

{quote}{login=sva}{date=19.11.2011 03:32}{thema=}{post}Смотрите в Вашем файле.{/post}{/quote}  
а что конкретно смотреть?

{quote}{login=sva}{date=19.11.2011 10:22}{thema=}{post}Если нужно скопировать только данные, то измените в коде    
[D:D].copy [A1] на [A:A].value=[D:D].value{/post}{/quote}
заменила, только теперь в окне VBA, код макроса не виден, и ошибка не исправилась

{quote}{login=yoozhik}{date=19.11.2011 03:02}{thema=}{post}хотя ответ вам уже дал sva{/post}{/quote}  
может что то не так делаю, но ваш файл пуст

проверила как залился файл, почему то с форума он сохранился с расширением *.*zip  
если при сохранении и у вас мой файл сохранится с расширением  *.*zip, не раззиповывайте его, просто в самом конце названия файла удалите ".zip", а вот это ".xlsx" оставьте, файл изменит расширение на Exel-евское

{quote}{login=yoozhik}{date=18.11.2011 06:11}{thema=}{post}два варианта - или вы идете с экстрасенсам, или выкладываете файл (не jpg). Ни одного вашего файла так и не было. Хотя может вам повезет,  и найдется здесь экстрасенс...{/post}{/quote}  
 
прошу прощения, выкладываю файл

появилась небольшая проблемка, после применения изменения, данные в обоих столбцах изменились на "#ЗНАЧ!." предполагаю, что это связано с тем, что на тот столбец, с которого необходимо взять данные применена формула "=СУММ(F6+G6-H6)". можно ли как-то это исправить?

{quote}{login=sva}{date=19.11.2011 01:03}{thema=}{post}Нет, clear_ только для проверки работоспособности макроса, в рабочий файл его не нужно вставлять.  
Макрос раз в месяц  скопирует данные при открытии файла.Сам макрос расположен в модуле Эта книга (см.скрин).{/post}{/quote}  
благодарю, кажется поняла в чём был "секрет", всё заработало после того, как, сохранила документ как Office 97-2003, а не получалось тогда, когда сохраняла как документ с поддержкой макросов  
Благодарю всех, кто помогал мне, кто столько времени потратил, чтобы помочь мне, большое вам спасибо!!!

{quote}{login=sva}{date=19.11.2011 12:49}{thema=}{post}Запустите макрос clear_, измените данные в столбце D, закройте книгу с сохранением, откройте книгу, макрос должен скопировать данные из D в А.{/post}{/quote}  
огромное вам спасибо, так поняла, что сей макрос работает только таким методом, верно? то есть, только после запуска макроса clear_, а не первого числа каждого месяца?

{quote}{login=yoozhik}{date=19.11.2011 12:17}{thema=}{post}жаль пост редактировать нельзя..  
замените в коде  
If 1=<Day(Now)<10 and cells(1,1).value="" Then  
на  
If Day(Now) >= 1 And Day(Now) < 20 And Range("IV65536").Value = "" Then  
чего -то в первом варианте не корректно работал..{/post}{/quote}  
большое вам спасибо за помощь, руки вроде правильно растут, то ли макросы не правильно запускаю или ещё что-то, если вам не трудно, объясните пожалуйста как правильно запускать макросы и проверять функциональность макроса в таблице

{quote}{login=sva}{date=19.11.2011 12:09}{thema=}{post}Смотрите вариант в файле. Сейчас копирует данные из столбца D в столбец A один раз в месяц, независимо от даты открытия документа.  
 
В файле два макроса:  
1) на событие открытия книги, он Вам и нужен  
2) для очистки даты последнего изменения, что бы можно было поэкспериментировать, можно удалить.{/post}{/quote}  
скажите пожалуйста, как можно проверить функциональность кода, не меняю постоянно системную дату, антивирус ругается постоянно, а отключать его находясь в сети, не хотелось бы

неужели никто не сталкивался с похожей работой? попробовала все выше написанные макросы, но ни один из них не подошёл

{quote}{login=ABZAC}{date=18.11.2011 05:35}{thema=вот так}{post}Private Sub Workbook_Open()  
Dim s As Date  
s = Replace(ActiveWorkbook.Names("lastdata").Value, "=", "")  
  'With Sheets("Лист1")  
    If Day(Date) > 17 And Day(Date) > Day(s) And (Month(Date) - Month(s) > 0) Then  
    With Sheets("Лист1")  
    .[F:F] = [D:D].Value
       With ActiveWorkbook.Names("lastdata")  
       .Name = "lastdata"  
       .RefersToR1C1 = Date  
       .Comment = ""  
       End With  
     End With  
   End If  
End Sub{/post}{/quote}  
 
удалила офис 2010 и установила 2007-ую, полнофункциональную.  
открыла программу,, скопировала ваш код в таблицу, но программа даёт ошибку.  
после этого сохранила и вышла из программы, после, снова открыла её и снова уведомление об ошибке:  
 
Run time error '1004';  
 
Application-defined or objectdefined error  
 
 
и выбор: "End" "Debug" "Help"  
 
жму "End", открывается первый лист таблицы, жму "Debug" запускается "Microsoft Visual Basic for Applications" и строка "s = Replace(ActiveWorkbook.Names("lastdata").Value, "=", "")" выделяется жёлтым цветом, так поняла, что в коде существует ошибка

{quote}{login=ABZAC}{date=18.11.2011 03:40}{thema=во так}{post}Range("f1").Value = Day(Date) меняете на Day(Date) > 1 (или то число какое надо)...  
3. в строке с If… заменить везде Day(Range("g1").Value) на s{/post}{/quote}  
 
так ли должно это выглядеть:  
 
Private Sub Workbook_Open()  
Dim s As date  
s = Replace(ActiveWorkbook.Names("lastdata").Value, "=", "")  
With Sheets("Лист1")  
If Day(Date) > 1 And Day(Date) > s And (Month(Date) - Month(s) > 0) Then  
.[F:F] = [D:D].Value
With ActiveWorkbook.Names("lastdata")  
.Name = "lastdata"  
.RefersToR1C1 = Date  
.Comment = ""  
End With  
End Sub

{quote}{login=ABZAC}{date=18.11.2011 01:01}{thema=}{post}Условие не понял  
J6 и F6 -- не столбцы  
это ячейки  
так про ячейки или про стобцы?  
если столбцы, то заменить:  
.[a1:a4] = [d1:d4].Value
 
на    
.[F:F] = [G:G].Value{/post}{/quote}
 
всё верно, столбцы.  
 
а можно сделать так, чтобы изменение в столбцах происходило в зависимости от системной даты, а не привязывать эту функцию к таблице, это имею в виду - if Range("f1")...Range("g1")...Range("g1")

посмотрела ваш файл "post_279495.xls", это совсем не то, что надо.  
неужели ни кто не поможет?

{quote}{login=}{date=18.11.2011 01:00}{thema=Вариант для срабатывани В установленный день (ЛИБО ПОСЛЕ ЕГОНАСТУПЛЕНИЯ, если в этот день книга не открывалась)}{post}срабатывает раз в месяц, вставлять в "Эта книга":  
 
Private Sub Workbook_Open()  
With Sheets("Лист1")  
   If Range("f1").Value < Day(Date) And Day(Date) > Day(Range("g1").Value) And (Month(Date) - Month(Range("g1").Value) > 0) Then  
       .[a1:a4] = [d1:d4].Value
       .Range("g1").Value = Date  
 
   End If  
End With  
End Sub{/post}{/quote}  
 
скажем, если мне нужно, чтобы числовые значения всего столбца F6 перешли в столбец J6 при тех же условиях, то макрос будет так писаться?  
 
Private Sub Workbook_Open()  
With Sheets("Лист1")  
   If Range("f1").Value < Day(Date) And Day(Date) > Day(Range("g1").Value) And (Month(Date) - Month(Range("g1").Value) > 0) Then  
       .[j6:f6].Value
       .Range("g1").Value = Date  
 
   End If  
End With  
End Sub

{quote}{login=}{date=18.11.2011 12:53}{thema=}{post}.  
ЗЫ: но для срабатывания нужно открыть в нужное число (если не открыть не сработает){/post}{/quote}  
это оборотная ведомость...большое вам спасибо за старания и помощь, но так не пойдёт, потому как если первое число одного из 12-ти месяцев обязательно попадёт на праздник, на воскресный день и никто не запустит программку, в таком случае данные с одного столбца не перейдут в другой столбец и тогда будет не гуд.

{quote}{login=}{date=18.11.2011 11:57}{thema=}{post}Вы читаете, ЧТО вам пишут?!  
Было - "И будет Вам счастье каждое первое число, и в течении всего первого числа, если книгу часто открывать будете."  
Понятно? - Каждый раз при открытии файла!!!{/post}{/quote}  
 
делаю всё в точности так, как, было описано: открываю документ Excel(где и  
нужно сделать эти изменения), Файл-Параметры-Центр управления  
безопасностью-Параметры центра управления безопасностью-Параметры  
макросов-Включить все макросы(выбираю этот пункт)...вроде макросы запущены,  
дальше...  
Кликаю правым кликом мыши на ярлыке странички, выбираю пункт "Исходный  
текст", далее, запускается Microsoft Visual Basic for Applications...в левой  
части окна нахожу выбираю пункт "ЭтаКнига" кликую дважды, открывается окно  
ввода макроса и ввожу данные в следующем порядке поставив значения своей  
таблицы:  
 
 
Private Sub Workbook_Open()  
If Day(Now) = 1 Then  
Columns("I:6").Select  
Selection.Copy  
Columns("F:6").Select  
ActiveSheet.Paste  
End If  
End Sub  
 
жму "Сохранить", программа выдаёт следующее сообщение:  
Следующие компоненты не возможно сохранить в книге без поддержки  
макросов...а далее предлагает выбрать "Да" или "Нет", то есть предлагает  
сохранить с поддержкой макросов...сохраняю и закрываю программу, изменяю  
системную дату на первое число следующего месяца, но изменений в программе  
нет. Подскажите пожалуйста, что делаю не так?

{quote}{login=}{date=18.11.2011 11:41}{thema=}{post}Для tliya!  
Пост выше вашего последнего с файлом 279333 смотрели - в нем макрос!  
ps Нет ничего проще и дороже, как сказать "Спасибо!" помогающим...{/post}{/quote}  
вы меня опередили. макрос прекрасно работает, но нужно чтобы система работала без кнопки.