Мой первый макрос

[SAS888]

Каждый раз макрос запускается заново. Соответственно значение всех переменных = 0 (или пусто). Т.е. значение переменной fSum нигде не сохраняется. Об это Вам нужно позаботиться самому.

[valerij]

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

Т.е. значение переменной fSum нигде не сохраняется. Об это Вам нужно позаботиться самому.

С таким, я еще не сталкивался, ведь в экселе, нет кнопочки М+

[SAS888]

Если нужно, сохраняйте, например, в ячейке листа. Кстати, у Вас же наверняка есть ячейка, где эта сумма отображается...?

[valerij]

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

где эта сумма отображается...?

F38, делал, так вообще не отражается
With Sh.Range("F38").Offset(iCount& * 48)
fSum = fSum + .Offset(, 2)
.Value = fSum
End With

[SAS888]

Попробуй так:

Sh.Range("F38").Offset(iCount& * 48) = Sh.Range("F38").Offset(iCount& * 48) + Range(Target.Address).Offset(, 2)

Перед выполнением этой строки, в ячейке Range(Target.Address).Offset(, 2) уже должно быть требуемое значение.

[valerij]

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

Попробуй так: уже должно быть требуемое значение.

ВО-о, так работает, пошел разбираться!

[valerij]

Как взять данные?
Нахожусь в Лист15("СБОР") и здесь, в яч. В3, нужно поместить данные с Листа1("ЛЕН") из яч. F39

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Worksheets("ЛЕН")
'MsgBox Range("F39")  значений НЕТ??
WorksheetFunction.Sum (.Range(.Range("F39"), .Range("B3")))
End With
End Sub

[SAS888]

В общем виде, не зависимо от того, какой лист в данный момент активен, можно записать

Sheets("СБОР").Range("B3") = Sheets("ЛЕН").Range("F39")

Если активна другая рабочая книга, то при обращении к ячейке, необходимо также указывать и имя файла.
P.S. Если же нужно получить в результирующей ячейке сумму ее содержимого и значения другой ячейки, тогда, например, так:

Sheets("СБОР").Range("B3") = Sheets("СБОР").Range("B3") + Sheets("ЛЕН").Range("F39")

повторяю, что это в общем виде. Как правило, конструкцию можно упростить. Например, применив With...End With или опустить ссылку на лист книги, если он в данный момент является активным.

[valerij]

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

В общем виде, не зависимо от того, какой лист в данный момент активен, можно записать

Sheets("СБОР").Range("B3") = Sheets("ЛЕН").Range("F39")

.

Сделал, но данные в ("СБОР").Range("B3") появляются, меняются если я дважды щелкну по этой ячейке в строке формул.

[valerij]

САС, методом тыка, из других макросов, заменил строку:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
и все заработало, почему, ????

Private Sub Worksheet_Activate()
Dim iK As Integer
With Application
         .EnableEvents = False
         .ScreenUpdating = False
        For iK = 1 To 13
        With Worksheets(iK)
            Cells(iK + 2, 2) = .Cells(1479, 6).Value 
            Cells(iK + 2, 3) = .Cells(1479, 11).Value 
            Cells(iK + 2, 4) = .Cells(1479, 12).Value 
        End With
        Next
    .EnableEvents = True
    .ScreenUpdating = True
    End With
End Sub

SAS!
как, перевести это в макрос
F38 = 0 или любое число ---Первый день месяца
F87 = F86 + F38 ---Второй день месяца
F135 = F134 + F87 ---Третий день месяца
..............
F1478 = F1478 + F1431 ---31-й день месяца

Дело в том, что F87 не шаг 48, по отношению к F38, в этом у меня вся загвозка