чтобы ставились флажки-написан макрос в "исходном тексте". когда щелкаю на кнопку ПРОВЕСТИ, начинает ругаться на дату , как раньше писала, и не ставятся флажки. ваш файл открываю- все прекрасно.
замучил меня Excel)

Юрий, я не знаю( Может сам Excel глючит? раз на раз срабатывает. у самой нервов не хватает. и вас так запутала. неудобно до ужаса.
попробовать новую книгу сделать и все по новой вбить? у меня получается в книге листов 30.

у меня все в файле отображается. Он там есть. Правда

не понимаю...иногда все срабатывает. иногда отказывает. все удалила. оставила 5 листов:
-движение наличных средств
-движение на рассчете
-снаряжение
-канцтовары
-учет работы с агенствами

для последних трех написаны макросы

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

точно. Формат поля -ДАТА. много раз выставляла, еще флажки глючить начали. Иногда ставятся,иногда нет(

в третьем

Да ,вроде, нет))
буду в ваш файл копировать)

только в этом проблема? и так выставила дату, и так, а всё-равно ошибка

ваш макрос срабатывает. как под свое подстраиваю. на строку
iDate = CDate(Cells(i, 3))
пишет "type mismatch"

Спасибо большое,Юрий) простите за "неподумывание"

если галочка стоит,то сумма переносится по дате на лист 1. Если галочки нет,то идет перенос суммы на лист 2

да. так и должно быть на листе 1 идет наличный учет, а на листе 2 безналичный. так и должно быть)

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

Модератор, не убивайте,пожалуйста. еще одна задачка появилась. также по датам сравнивать поля. Но есть один лист, в котором указано,как оплачено снаряжение-налично или безналично. Для этого есть поле "Налично" на листе 3. Если оплата произведена наличными,то стоит флажок,и , соответственно, сумма должна идти в первый лист (строка 18), в зависимости опять же от даты. Если нет флажка,то сумма идет во второй лист (строка 18).

Эммм....простите.не додумалась

Спасибо большое . есть еще вопрос.
задача та же. пример книги прилагаю. на листе 1 та же информация, но на листе 2 другая информация. так же надо сравнивать даты и перекидывать суммы.НО! проблема в том, что для листа 2 данные экспортируются из базы данных ACCESS. а там косяк с нормализацией, и в одно поле записывают дату и номер договора.
посмотрите на листе 2, поле "дата и номер договора".
а здесь сравнивать даты?как быть? подскажите,пожалуйста

но это перенос из конкретной ячейки в конкретную. а мне нужен цикл,я так понимаю

макрос вот какой у меня

код

Sub Procedure_1() Dim sh3 As Excel.Worksheet Dim myDate As Date Dim arrC() As Variant Dim myLastRow As Long Dim i As Long   '1. Помещаем искомую дату с активного листа из ячейки "B7" 'в переменную "myDate", чтобы каждый раз не обращаться 'к ячейке (это может быть ускорит работу кода)). myDate = Range("B4" ;) .Value  '2. Даём VBA-имя третьему Excel-листу. Через 'это имя удобно будет писать код. Set sh3 = Worksheets(1)   '3. В некоторых случаях быстрее работать с VBA-массивом, 'чем с Excel-ячейками. Поэтому помещаем данные из столбца "C" 'в VBA-массив. Затем будем в VBA-массиве искать нужную дату. '3.1. Чтобы не брать весь столбец, определяем, какая строка последняя. 'Т.к. не известно, по какому столбцу определять последнюю строку, 'то воспользуемся командой "Find". 'Ищем на третьем листе с конца в начало какие-нибудь данные. 'Команда "Find" связана с окном программы "Excel" "Найти и заменить", 'поэтому нужно указывать в команде "Find" все параметры (я не 'указываю только параметр "After" ;) , даже если эти параметры нам и не нужны, 'чтобы настройки окна "Найти и заменить" не повлияли на работу команды "Find". 'What:="?" - - знак вопроса здесь - это специальный символ. 'SearchDirection:=xlPrevious - поиск с конца в начало. myLastRow = sh3.Cells.Find(What:="?", LookIn:=xlValues, LookAt:=xlPart, _ SearchOrder:=xlByRows, SearchDirection:=xlPrevious, _ MatchCase:=False, SearchFormat:=False).Row '3.2. Помещаем данные в VBA-массив. arrC() = sh3.Range("D1 :D " & myLastRow).Value  'Двигаемся по каждому элементу в массиве. For i = 1 To UBound(arrC, 1) Step 1 'Если в элементе наша дата. If arrC(i, 1) = myDate Then '4. Вставляем на третий лист нужные данные. 'Порядковые номера строк в массиве 'совпадают с порядковыми номерами строк на Excel-листе. sh3.Cells(i, "D" ;) .Offset(27, 0).Value = Range("C4" ;) .Value 'Задача выполнена, поэтому переходим 'в нужную часть кода. GoTo metka  End If  Next i 'Если до сюда дошли, значит не было найдено нужной даты. MsgBox "Не было найдено нужной даты!", vbExclamation metka: End Sub

дададада) правильно поняли)

нет, нужен такой вид
про "откуда данные" данные (а точнее СУММА) должна переноситься с листа 2 на лист 1, а не наоборот

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

Здравствуйте,уважаемые форумчане. Не могу сделать макрос. Суть вот в чем: в книге 2 листа-лист 1 и лист 2. на листе 1 есть столбы:номер, наименование операции,даты. под датами будут идти суммы для каждой операции в зависимости от даты.
на листе 2 дана таблица "Хозтовары" со столбцами:номер,дата, сумма.
нужно,чтобы на листе Хозтовары была кнопка "Провести", макрос пробегал по столбцу с датами, сравнивал даты с листом 1, и разносил суммы с листа 2 на лист 1.
пока что сделан макрос на перенос суммы из конкретной ячейки в конкретную. это неудобно, потому что дат может быть и 30, и 50. а писать 30 макросов-это ужас)
я так понимаю,нужен цикл. но как его сделать-я не знаю. посмотрите , пожалуйста, макрос. Подскажите решение. Заранее,огромное-приогромное спасибо

хорошо,спасибо

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

Данный макрос работает только с ячейкой В7 и С7. Для В8 и С8 макрос этот нужно переписывать еще раз, и так для каждой пары ячеек. Как сделать многократное повторение? Чтобы цикл полностью проходил по колонке В и С?

Sub Procedure_1()

   Dim sh3 As Excel.Worksheet
   Dim myDate As Date
   Dim arrC() As Variant
   Dim myLastRow As Long
   Dim i As Long
   
   
   1. Помещаем искомую дату с активного листа из ячейки "B7"
       в переменную "myDate", чтобы каждый раз не обращаться
       к ячейке (это может быть ускорит работу кода).
   myDate = Range("B7").Value
   
   
   2. Даём VBA-имя третьему Excel-листу. Через
       это имя удобно будет писать код.
   Set sh3 = Worksheets(3)
   
   
   3. В некоторых случаях быстрее работать с VBA-массивом,
       чем с Excel-ячейками. Поэтому помещаем данные из столбца "C"
       в VBA-массив. Затем будем в VBA-массиве искать нужную дату.
   3.1. Чтобы не брать весь столбец, определяем, какая строка последняя.
   Т.к. не известно, по какому столбцу определять последнюю строку,
       то воспользуемся командой "Find".
   Ищем на третьем листе с конца в начало какие-нибудь данные.
       Команда "Find" связана с окном программы "Excel" "Найти и заменить",
       поэтому нужно указывать в команде "Find" все параметры (я не
       указываю только параметр "After"), даже если эти параметры нам и не нужны,
       чтобы настройки окна "Найти и заменить" не повлияли на работу команды "Find".
   What:="?" - знак вопроса здесь - это специальный символ.
   SearchDirection:=xlPrevious - поиск с конца в начало.
   myLastRow = sh3.Cells.Find(What:="?", LookIn:=xlValues, LookAt:=xlPart, _
       SearchOrder:=xlByRows, SearchDirection:=xlPrevious, _
       MatchCase:=False, SearchFormat:=False).Row
   3.2. Помещаем данные в VBA-массив.
   arrC() = sh3.Range("C1:C" & myLastRow).Value
   
   
   Двигаемся по каждому элементу в массиве.
   For i = 1 To UBound(arrC, 1) Step 1
   
       Если в элементе наша дата.
       If arrC(i, 1) = myDate Then
       
           4. Вставляем на третий лист нужные данные.
           Порядковые номера строк в массиве
           совпадают с порядковыми номерами строк на Excel-листе.
           sh3.Cells(i, "C").Offset(19, 3).Value = Range("C7").Value
           
           Задача выполнена, поэтому переходим
               в нужную часть кода.
           GoTo metka
           
       End If
       
   Next i
   
   
   Если до сюда дошли, значит не было найдено нужной даты.
   MsgBox "Не было найдено нужной даты!", vbExclamation
   
   
metka:
   
End Sub

хочу вернуться опять к датам. На листе движение "денежных средств на расчете"  я создала кнопку "Новая дата", при нажатии на которую копируется таблица,которая там находится, новая дата ->новая таблица,соотвественно (даты совпадают и на листе "хозтовары", и на листе "движение средств на расчете").
поиск по дате есть,но встал другой вопрос. за 16.05.2012  35000 перенеслось из листа "хозтовары" в ячейку Е23 на листе "движение средств на расчете". теперь надо,чтобы за 18.04.2012 20000 из ячейки С8 листа хозтовары переносились в ячейку Е53 листа "движение средств на расчете". т.е нужен цикл, да?

СПАСИИИИБООО)))

пробую вот такой код

Sub vstavka_zakladki()
Const myPath As String = "C:\Users\пк\Desktop\Новая папка (3)\вставка.docx"

   'Код работает с подключённой библиотекой:
       'Tools - References... - Microsoft Word версия Object Library.
   Dim WApp As Object
Set WApp = CreateObject("Word.Application")
   
   Set WApp = CreateObject(Class:="Word.Application")
   
   WApp.Visible = True
   
   Set myDocument = WApp.Documents.Open(Filename:=myPath)
   Range("C6").Copy
   
   myDocument.Bookmarks("вставка").Range.Text = ActiveCell.Value

End Sub


в документ "вставка.docx" ничего не вставляется,хотя с ячейке С6 значение есть

я вас понимаю. пробую. но почему с Word.Application не получается-не пойму