Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » anna ry
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
макрос сохранения листа в новый файл
 
#
22.05.2018 19:33:29

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

подскажите пожалуйста, где ошибка?

Код
Sub SaveMe()
Application.ScreenUpdating = False
Dim NewFilePath As String
Dim NewFileName As String

On Error Resume Next

NewFilePath = "Y:\RU\"
NewFileName = ActiveWorkbook.Sheets("pivot").Range("M2").Value

Sheets("date_1").Select
Sheets("date_1").Copy

ActiveWorkbook.SaveAs FileName:=NewFilePath & NewFileName & ".xlsx", FileFormat:=51
ActiveWindow.Close

Application.ScreenUpdating = True

End Sub

 
Перейти    
как формулой найти значение по условию и вывести значение следующей ячейки?
 
#
08.05.2018 13:37:38
Всем добрый день!
Никак не могу разобраться, очень надеюсь на помощь.

1. Необходимо найти в строке ячейку, которая содержит одно из нескольких слов: "всего", "итого, ", "итого ", желательно не через OR, а в указанном приоритетном порядке, т.е. сначала поиск слова "всего", итд.
2. При этом в данной строке не должны содержатся слова "работы", "материалы".
3. Когда найдена ячейка, в качестве результата необходимо вывести значение ближайшей (в правую сторону) не пустой ячейки.

Формула, которая получилась у меня, и выглядит жутковато и не на 100% решает задачу, т.к. я не пойму, как выполнить пункт 3.

Прилагаю файл, формула в столбце А.
 
Перейти    
Макрос копирующий ячейки с одного листа в первую пустую строку другого листа
 
#
09.04.2018 15:35:43
Добрый день!
помогите пожалуйста доработать макрос. собственно задача указана в теме.
записала через макрорекордер (получившийся код см ниже): ячейки из определенного диапазона листа1 по нажатию кнопки копируются на лист2, но надо доделать так, чтобы ячейки копировались не в одну и ту же строку (перезаписывая предыдущую запись), а в следующую пустую строку.
во вложении мой файл (код в модуле2). Самостоятельно разобраться не получилось, очень надеюсь на помощь.

надеюсь, все правильно описала.
Код
Sub copy_to_reestr()
    Range("F6:I6").Select
    Selection.Copy
    Sheets("Sheet3").Select
    Range("B3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Sheet1").Select
End Sub
 
Перейти    
Страницы: 1
Наверх