Помогите "расшифровать" макрос

[kzld]

Хочу переделать макрос под свой файл, а в макросы только начал изучать
Вот код макроса

Public Sub апр() название макроса
With Workbooks("allwork-2009-01.xls").Sheets("01") открываем книгу и лист откуда брать значения
For i = 3 To 200 смотрим последовательно строки от 3 до 200, что означает символ i
If .Cells(i, 5).Value <> 451 Then GoTo 10 если находим значение равное 451, то переходим к 10, а что такое 10 и откуда оно взялось?
For k = 9 To 108 смотрим последовательно строки от 9 до 108, что означает символ k
If Cells(k, 1).Value = .Cells(i, 7).Value Then Cells(k, 2).Value = .Cells(i, 10).Value: Cells(k, 6).Value = .Cells(i, .Value: GoTo 10 здесь непонятно,прошу помощи
Next k
10
Next i
End With
End Sub

[EducatedFool]

здесь непонятно,прошу помощи

Думаете, нам понятно, чего Вы пытаетесь добиться?

Подробно опишите, что должен делать макрос - тогда поможем (и без всяких примеров)
Макрос будет запускаться из обрабатываемого файла?
Или надо открывать определённый файл с диска?

[kzld]

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

Думаете, нам понятно, чего Вы пытаетесь добиться?

Подробно опишите, что должен делать макрос - тогда поможем (и без всяких примеров)
Макрос будет запускаться из обрабатываемого файла?
Или надо открывать определённый файл с диска?

Макрос запускается из файла активного в данный момент "kassa_2009.xls"
Макрос просматривает столбец E файла "allwork-2009-01.xls"
При нахождении в ячейке значения равному 451 , смотрит на ячейку G и считывает оттуда значение (в ячейке G - дата).
Далее просматривает столбец A файла "kassa_2009.xls" находит первое (их несколько) значение равное столбцу G файла "allwork-2009-01.xls"
Далее копирует по строчке в столбец B файла "kassa_2009.xls" значение столбца I файла "allwork-2009-01.xls"
Далее копирует по строчке в столбец G файла "kassa_2009.xls" значение столбца H файла "allwork-2009-01.xls"

Другими словами
Имеется журнал операций "allwork-2009-01.xls",
столбцы ДЕБЕТ, КРЕДИТ, ДАТА, СУММА, НАИМЕНОВАНИЕ
Имеется второй файл - "kassa_2009.xls"
надо из первого файла заполнить второй, выбрав только кассовые операции и поместить значения в соответствующие ячейки файла "kassa_2009.xls" (т.е. дату в дату, сумму в сумму)

Если обьяснил непонятно, могу приложить файл примера

[pivas]

Символы i и k это переменные для организации цикла. 10 - это номер строки куда переходит макрос в случае невыполнения условия.

If Cells(k, 1).Value = .Cells(i, 7).Value Then Cells(k, 2).Value = _
            .Cells(i, 10).Value: Cells(k, 6).Value = .Cells(i, 8).Value: GoTo 10

Это и есть то, что Вы просили: Если значение ячейки (номер строки =k, номер столбца=1) активного листа равно значению ячейки (номер строки =i, номер столбца=1) в проверяемой книге, то ячейка (строка=k, столбец 2) активной книги равна ячейке (строка=i, столбец 10) проверяемой книги, а ячейка (строка=k, столбец 6) активной книги равна ячейке (строка=i, столбец 8) проверяемой книги.

[kzld]

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

Символы i и k это переменные для организации цикла. 10 - это номер строки куда переходит макрос в случае невыполнения условия.

If Cells(k, 1).Value = .Cells(i, 7).Value Then Cells(k, 2).Value = _
            .Cells(i, 10).Value: Cells(k, 6).Value = .Cells(i, 8).Value: GoTo 10

Это и есть то, что Вы просили: Если значение ячейки (номер строки =k, номер столбца=1) активного листа равно значению ячейки (номер строки =i, номер столбца=1) в проверяемой книге, то ячейка (строка=k, столбец 2) активной книги равна ячейке (строка=i, столбец 10) проверяемой книги, а ячейка (строка=k, столбец 6) активной книги равна ячейке (строка=i, столбец 8) проверяемой книги.

Спасибо. Что то начинает получаться. Теперь возникло условие.
В один день может быть несколько однотипных операций. Как добавить следующий параметр:
Если значение ячейки (номер строки =k, номер столбца=3) активного листа уже занято каким либо значением, то перейти на строчку ниже и вписать значения, не обращая внимания на условие Если значение ячейки (номер строки =k, номер столбца=1) активного листа равно значению ячейки (номер строки =i, номер столбца=1) в проверяемой книге

[pivas]

Что ж Вы сразу не сказали. Попробуйте так:

[kzld]

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

Что ж Вы сразу не сказали. Попробуйте так:

Попробовал, но почему обрабатываются не все строки. Имеется пропуски.
Более подробно в приложенном файле

[kzld]

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

Попробовал, но почему обрабатываются не все строки. Имеется пропуски.
Более подробно в приложенном файле

Жду вот понимаешь, жду помощи.
А никто на меня внимания не обращает
АБЫДНА

[kzld]

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

Жду вот понимаешь, жду помощи.
А никто на меня внимания не обращает
АБЫДНА

Ну очень надо, ответьте кто нибудь

[Serge_Bliznykov]

так что ж ответить, если сказать по существу нечего?!

Вы знаете, какую Вы делаете ошибку?
вместо того, чтобы чётко сформулировать задание - что, куда и в каком случае переписывается, Вы пытаетесь заставить работать макрос. (причём, надо отметить - жуткий макрос почему жуткий? потому что в нём жестко заданы константы - начала диапазона, конец диапазона и т.д. и т.п. поэтому добавление строки, удаление строки могут привести к самым разнообразным последствиям, вплоть до полной нераспособности всего макроса!

[Добавлено]
и ещё, в книге kassa_2009.xlsm у Вас
два макроса: kassakredit01() и kassadebet01() — Вы какой из них терзаете?