Приветствую всех! Подскажите кто в курсе. В макросах слабоват. Но есть задача. Необходимо в Книге с несколькими листами (1,2,3), скопировать столбец с данными и сложить их значения из всех листов. То есть. В лист "Итог" переносятся все столбцы из листов, по значению столбца "Е". Столбец "Е" не содержит дубликатов. А столбцы "F" и "G" имеют сумму всех значений Столбца "Е" из всех листов.
Приветствую всех! Подскажите кто в курсе. В макросах слабоват. Но есть задача. Необходимо в Книге с несколькими листами (1,2,3), скопировать столбец с данными и сложить их значения из всех листов. То есть. В лист "Итог" переносятся все столбцы из листов, по значению столбца "Е". Столбец "Е" не содержит дубликатов. А столбцы "F" и "G" имеют сумму всех значений Столбца "Е" из всех листов.HoBi4ek
Спасибо. Я так понимаю при работе макрос создает колонки которые потом удаляет, так как кнопка смещается постоянно после выполнения влево. Не подскажите, Её можно как-то закрепить?
Спасибо. Я так понимаю при работе макрос создает колонки которые потом удаляет, так как кнопка смещается постоянно после выполнения влево. Не подскажите, Её можно как-то закрепить?HoBi4ek
Public Sub MakeButton(ByVal sTxt As String, _ ByVal sMacroName) 'Создать программно кнопку и назначить ей макрос Dim btn As Button Set btn = ActiveSheet.Buttons.Add(264, 10, 125.25, 45) With btn .OnAction = sTxt '"ЗакрытьКнигуПоИмениБезСохранения" .Characters.Text = sMacroName '"Закрыть без вопросов" End With End Sub
Public Sub MakeButton(ByVal sTxt As String, _ ByVal sMacroName) 'Создать программно кнопку и назначить ей макрос Dim btn As Button Set btn = ActiveSheet.Buttons.Add(264, 10, 125.25, 45) With btn .OnAction = sTxt '"ЗакрытьКнигуПоИмениБезСохранения" .Characters.Text = sMacroName '"Закрыть без вопросов" End With End Sub