базаришь Sub Profit_tax() ' ' Profit_tax Macro ' To recalculate operating cash flow ' ' Range("PT").Select Range(Selection, Selection.End(xlToRight)).Select Selection.Copy Range("PT_paste").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End Sub Sub Profit_tax1() ' ' Profit_tax1 Macro ' ' Sheets("3. Model_Monthly").Select Range("PT").Select Range(Selection, Selection.End(xlToRight)).Select Selection.Copy Range("PT_paste").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("1. Control").Select End Sub Sub Funding_macro() Application.ScreenUpdating = False Do Until Range("Interest_diff").Value = Range("Tolerance").Value _ And Range("Tax_diff").Value = Range("Tolerance").Value Range("Interest_paste").Value = Range("Interest_copy").Value Range("Tax_paste").Value = Range("Tax_copy").Value Loop End Sub
моя любимая формула но лучше так, без лишних знаков ="Jirani pivandriya " & "Snimi telochku" уверена!
я вообще его не смотрела)) чужие макросы - потёмки да и вообще, везде, где можно обойтись без них - лучше