Копирование листа

[Вадим12091965]

Привет. форумчане помогли мне написать код для создания новой книги и копирования Листа1 из основной книги на Лист1 созданной книги. Но у меня не получается прописать путь к новой книге для вставки копии. Файл приложен. При запуске программы кроме нужной появляется ненужная книга, а в нужной нет копии листа.
Спасибо.

[kuklp]

Я Вам дал рабочий код. Вы добавили туда макрорекордерного мусора и удивляетесь, почему не работает. Последняя попытка:

Private Sub CommandButton1_Click()
  Sheets("Лист1").Copy
  With ActiveWorkbook
        .SaveAs ThisWorkbook.Path & "\" & TextBox1.Text & ".xlsm", 52
        .Close 0
    End With
End Sub

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

[IgorGO]

Сережа, не кипятись.
Ты вертолет подымешь в воздух... и приземлишься?

Возможно, Вадим имеет к программированию такое же отношения как ты (или я) к управлению вертолетом, только он ни чем не рискует, а мы на вертолете могли убиться!

[kuklp]

Я его подымать не стану Заплачу деньги пилоту и никакого риска.

[Вадим12091965]

Спасибо вам обоим. Несмотря на то, что я червь, а Вы летаете на вертолете.
По задумке должна создаться книга и скопироваться лист нажатием кнопки, но условие не выполняется. Но все равно спасибо.

[EducatedFool]

Вадим12091965, вы издеваетесь?

В первом посте прикреплён файл с 2 лишними строками кода.
kuklp в очередной раз пишет вам правильный код для кнопки (без этих двух лишних строк)
В пятом посте вы прикрепляете тот же файл, с тем же кодом, что был в первом посте, и удивляетесь, - а почему не получается-то...

Какое-то условие ещё не выполняется... какое? мы тут что, телепаты?

[Hugo121]

Сообщение от Вадим12091965

должна создаться книга и скопироваться лист

- это делает одна строка кода Сергея:

Sheets("Лист1").Copy

Неужели даже не попытались разобраться?

[Вадим12091965]

У всех прошу прощения и всех благодарю. Постараюсь больше никого не мучить.

[EducatedFool]

Я пробовал сделать 2 кнопки

Как вам уже сказали выше:

код для первой кнопки

Private Sub CommandButton1_Click()
  Sheets("Лист1").Copy
End Sub

код для второй кнопки

Private Sub CommandButton2_Click()
  With ActiveWorkbook
        .SaveAs ThisWorkbook.Path & "\" & TextBox1.Text & ".xlsm", 52
        .Close 0
    End With
End Sub

Условие я уже писал не раз

это не условие, а задание на макрос.
условие - это нечто другое, например:
ЕСЛИ в текстбокс введён текст ТО сохраняем файл ИНАЧЕ выводим предупреждение
Вот здесь «ЕСЛИ в текстбокс введён текст» - это условие

[Вадим12091965]

Последний вопрос. Если мне нужно скопировать Листы 1, 2 и 4. Что изменить ? Спасибо.