Задачка

[Пашка_1977]

Доброго времени суток всем
я впринципе с макросами и VB дело имел, но тут не совсем обычная задачка подвернулась может кто подскажет как это организовать.
Описываю.
файл состоит из двух листов 1 - учет прихода и расхода денег и 2 - курс на определенную дату.
Из данных вбивается только сумма доллары, дата и курс.
В столбец рубли надо чтобы проставлялась сумма по курсу даты. Соответственно надо взять дату со строки найти эту дату на листе курсов и курс стоящий напротив искомой даты умножить на колличество долларов в нашей строке.

как мне найти нужную дату на листе курсов?
Это нужен какойто цикл перебора ячеек и сравнивания их с исходной или есть какое то иное решение.
Помогите пожалуйста.

[motorway]

Попробуйте так: (можно вставить в событие Workbook_Open)

For Each Cell In Worksheets("Учет").Range("B3:B9")
d = Worksheets("Учет").Cells(Cell.Row, 1).Value
For Each cell2 In Worksheets("Курс").Range("A2:A4")
If (cell2.Value = d) Then kurs = Worksheets("Курс").Cells(cell2.Row, 2).Value

Next cell2

Cell.Value = kurs * Cells(Cell.Row, 3).Value


Next Cell

Здесь указаны интервалы B3:B9 и A2:A4, которые отражают границы, заполненные данными - на первом и втором листе соответственно. Их можно увеличить при появлении новых данных

Можно еще так (если много данных, при появлении нужной даты завершаем цикл):

For Each Cell In Worksheets("Учет").Range("B3:B9")
d = Worksheets("Учет").Cells(Cell.Row, 1).Value
For Each cell2 In Worksheets("Курс").Range("A2:A4")
If (cell2.Value = d) Then
kurs = Worksheets("Курс").Cells(cell2.Row, 2).Value
GoTo LAB
End If
Next cell2
LAB:
Cell.Value = kurs * Cells(Cell.Row, 3).Value


Next Cell

[motorway]

Конечно, лучше сделать для события Workbook_SheetChange. Сейчас сделаю...

Вот так можно:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.EnableEvents = False

For Each Cell In Worksheets("Учет").Range("B3:B12")
d = Worksheets("Учет").Cells(Cell.Row, 1).Value
For Each cell2 In Worksheets("Курс").Range("A2:A14")
If (cell2.Value = d) Then
kurs = Worksheets("Курс").Cells(cell2.Row, 2).Value
GoTo LAB
End If
Next cell2
LAB:
Cell.Value = kurs * Worksheets("Учет").Cells(Cell.Row, 3).Value


Next Cell

Application.EnableEvents = True
End Sub

[doober]

Посмотри такой вариант

[IgorGO]

Это нужен какойто цикл перебора ячеек и сравнивания их с исходной или есть какое то иное решение.

есть иное решение...

[motorway]

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

[Пашка_1977]

Однако спасибо большое всем
буду углублять свои познания в эселе
не ожидал так быстро ответа да еще и несколько вариантов
еще раз спасибо