Господа, помогите в этом макросе прописать следующее. При копировании инфы из WB1 нужна инфа исключительно из ЛИСТ3. А не из последнего сохраненного листа. Заранее спасибо! [vba]
Код
Sub ОбновлениеАктивностей() Dim MyPath As String Dim wb1 As String Dim wb2 As String Application.ScreenUpdating = False Application.CutCopyMode = False wb1 = "Ежедневное планирование менеджера.xlsx" wb2 = "Мишень организаций.xlsm" MyPath = ThisWorkbook.Path & "\" & wb1 Columns("A:I").ClearContents Workbooks.Open Filename:=MyPath Columns("A:I").Copy Workbooks(wb2).Activate Columns("A:I").PasteSpecial xlPasteAll Workbooks(wb1).Activate Columns("A:I").Copy Windows(wb2).Activate Columns("A:I").PasteSpecial xlPasteAll Workbooks(wb1).Activate Application.CutCopyMode = True Application.ScreenUpdating = True ActiveWindow.Close Columns("g:i").Select Selection.ColumnWidth = 11.57 Selection.NumberFormat = "m/d/yyyy" End Sub
[/vba]
Господа, помогите в этом макросе прописать следующее. При копировании инфы из WB1 нужна инфа исключительно из ЛИСТ3. А не из последнего сохраненного листа. Заранее спасибо! [vba]
Код
Sub ОбновлениеАктивностей() Dim MyPath As String Dim wb1 As String Dim wb2 As String Application.ScreenUpdating = False Application.CutCopyMode = False wb1 = "Ежедневное планирование менеджера.xlsx" wb2 = "Мишень организаций.xlsm" MyPath = ThisWorkbook.Path & "\" & wb1 Columns("A:I").ClearContents Workbooks.Open Filename:=MyPath Columns("A:I").Copy Workbooks(wb2).Activate Columns("A:I").PasteSpecial xlPasteAll Workbooks(wb1).Activate Columns("A:I").Copy Windows(wb2).Activate Columns("A:I").PasteSpecial xlPasteAll Workbooks(wb1).Activate Application.CutCopyMode = True Application.ScreenUpdating = True ActiveWindow.Close Columns("g:i").Select Selection.ColumnWidth = 11.57 Selection.NumberFormat = "m/d/yyyy" End Sub
Доброе утро! Ув. модераторы прошу сейчас в тестовом режиме проверить правильность оформления тегов. Если что-то не правильно достаточно внушения. Не загоняйте карму ниже плинтуса. [vba]
Код
Sub ОбновлениеАктивностей() Dim MyPath As String Dim wb1 As String Dim wb2 As String Application.ScreenUpdating = False Application.CutCopyMode = False wb1 = "Ежедневное планирование менеджера.xlsx" wb2 = "Мишень организаций.xlsm" MyPath = ThisWorkbook.Path & "\" & wb1 Columns("A:I").ClearContents Workbooks.Open Filename:=MyPath Columns("A:I").Copy Workbooks(wb2).Activate Columns("A:I").PasteSpecial xlPasteAll Workbooks(wb1).Activate Columns("A:I").Copy Windows(wb2).Activate Columns("A:I").PasteSpecial xlPasteAll Workbooks(wb1).Activate Application.CutCopyMode = True Application.ScreenUpdating = True ActiveWindow.Close Columns("g:i").Select Selection.ColumnWidth = 11.57 Selection.NumberFormat = "m/d/yyyy" End Sub
[/vba] [moder]А Вы что, сами не видите, что сейчас все нормально? И это не карма, это замечания. Кстати, после пятого замечания следует бан навсегда. Ну это я так, для информации.
Доброе утро! Ув. модераторы прошу сейчас в тестовом режиме проверить правильность оформления тегов. Если что-то не правильно достаточно внушения. Не загоняйте карму ниже плинтуса. [vba]
Код
Sub ОбновлениеАктивностей() Dim MyPath As String Dim wb1 As String Dim wb2 As String Application.ScreenUpdating = False Application.CutCopyMode = False wb1 = "Ежедневное планирование менеджера.xlsx" wb2 = "Мишень организаций.xlsm" MyPath = ThisWorkbook.Path & "\" & wb1 Columns("A:I").ClearContents Workbooks.Open Filename:=MyPath Columns("A:I").Copy Workbooks(wb2).Activate Columns("A:I").PasteSpecial xlPasteAll Workbooks(wb1).Activate Columns("A:I").Copy Windows(wb2).Activate Columns("A:I").PasteSpecial xlPasteAll Workbooks(wb1).Activate Application.CutCopyMode = True Application.ScreenUpdating = True ActiveWindow.Close Columns("g:i").Select Selection.ColumnWidth = 11.57 Selection.NumberFormat = "m/d/yyyy" End Sub
[/vba] [moder]А Вы что, сами не видите, что сейчас все нормально? И это не карма, это замечания. Кстати, после пятого замечания следует бан навсегда. Ну это я так, для информации.KolyvanOFF
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
