функция СУММ, что надо дописать?

[VictorM]

Ну тогда не знаю
вроде тормозить в этом коде больше нечему
ищите в своих кодах что там работает еще

[VictorM]

попробуйте дописать
Sub tt ()
Application.ScreenUpdating = False
......

[kuklp]

Вить, если закомментить Deactivate, при копировании листов в самой книге список обновляться не будет. Да и тормозит там не из-за того:-) Там нечему тормозить.

[AKSENOV048]

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

Вить, если закомментить Deactivate, при копировании листов в самой книге список обновляться не будет. Да и тормозит там не из-за того:-) Там нечему тормозить.

только хотел написать что при копировании листов при помощи вот этого кода:
'
Sub ÄîáàâèòüÍîâûéËèñò()
Dim Table1 As Range, Table2 As Range
Dim YD As Double, TD As Double, D As Double, Reply As String, ReplyOk As Boolean, ShNewName As String
'
Set Table1 = Range([A5], [A5].End(xlDown))
Set Table1 = Table1.Resize(, 9) ' Äèàïàçîí_â÷åðàøíåé_òàáëèöû ' <-----!!!-------
YD = [C1] ' Â÷åðàøíÿÿ_Äàòà_ñåãîäíÿ '
TD = YD + 1
ActiveSheet.Copy , ActiveSheet
Set Table2 = [A5].Resize(Table1.Rows.Count, Table1.Columns.Count) ' Äèàïàçîí_ñåãîäíåøíåé_òàáëèöû '
Application.ScreenUpdating = False
[C1].ClearContents ' Äàòà_ñåãîäíÿ '
[D3] = YD ' Äàòà_â÷åðà '
With Table2
.Columns(5).ClearContents ' Ïðèõîä '
.Columns(6).ClearContents ' Ïðîäàíî '
.Columns(4).Value = Table1.Columns(8).Value ' Îñòàòêè_â÷åðà=Îñòàòêè_ñåãîäíÿ ' ' <-----!!!-------
End With
''''ShYesterday.Shapes("Êíîïêà_1"). Delete
Application.ScreenUpdating = True
Do
Reply = InputBox(String(5, vbCr) & "ÂÂÅÄÈÒÅ ÈÌß ÍÎÂÎÃÎ ËÈÑÒÀ ÊÀÊ ÄÀÒÓ:", "ÌÀÊÑÈÌÓÌ", Format(TD, "DD.MM.YYYY"))
If Trim(Reply) <> "" Then
ReplyOk = (Reply Like "##.##.####") And IsDate(Reply)
If ReplyOk Then
D = CDate(Reply)
If D <= YD Then
ReplyOk = False
MsgBox "Òåêóùàÿ äàòà íå ìîæåò áûòü â÷åðàøíåé.", , "ÎØÈÁÎ×ÊÀ"
Else
ShNewName = Format(D, "DD.MM.YYYY")
On Error Resume Next
ActiveSheet.Name = ShNewName
If Err = 0 Then
[C1] = D ' Äàòà_ñåãîäíÿ '
Else
Err.Clear
ReplyOk = False
MsgBox "Ëèñò '" & ShNewName & "' óæå ñóùåñòâóåò.", vbExclamation, "ÎØÈÁÎ×ÊÀ"
End If
End If
Else
MsgBox String$(21, " "), vbExclamation, "ÎØÈÁÎ×ÊÀ"
End If
End If
Loop Until ReplyOk
Application.GoTo [a1]
End Sub

список не обновляется! а тормозить перестало!

[VictorM]

при копировании листов в самой книге список обновляться не будет

Это да, я понимаю, как и понимаю, что

тормозит там не из-за того:-) Там нечему тормозить.

[R Dmitry]

изучайте...........

[AKSENOV048]

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

Это да, я понимаю, как и понимаю, что

т.е. код не подходит для копированых листов?

[R Dmitry]

А если серьзьезно.....
Чего себе не придумают только люди, что бы усложнить себе работу

[AKSENOV048]

Сообщение от R Dmitry

А если серьзьезно.....
Чего себе не придумают только люди, что бы усложнить себе работу

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

[R Dmitry]

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

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

Дело не в автоматизации, а в правильной организации.
кстати если у Вас листы будут идти не по порядку будут ошибки.

Ну..... хозяин - барин.....

кстати моя автоматизация подходит ?