Как предложить юзеру сохранить данные sheet2?

aist123 Пользователь Сообщений: 10 Регистрация: 21.12.2016	#1 21.12.2016 17:59:15 Когда данные скопировались в sheet2 то надо спросить у юзера, хочешь сохранить данные в txt файл, если да то пусть сохранятся если нет то просто кнопка отмена и все....оч надо.

_Igor_61 Пользователь Сообщений: 3007 Регистрация: 18.07.2016	#2 21.12.2016 21:19:15 Ну... может, как-нибудь вот так? (сохраняется на диске "D", т.к. на "С" меня 7-ка не пускает) Прикрепленные файлы СохранитьТХТ.xls (49.5 КБ)

aist123

Пользователь

Сообщений: 10 Регистрация: 21.12.2016

21.12.2016 22:29:45

Работает норма, но как тогда можно через inputbox выдать окошко сохранить, пока что у меня ток такой код, но когда я выбираю макрсо "сохранить или нет" то просто высвечивается окошко, сохранять если да то куда если нет, то просто окошко закрывается

Код

Sub red()
Range("A2:M102").Select
Selection.AutoFilter
End Sub

Sub red1()
Worksheets("Sheet1").Range("A2:M102").Copy
ActiveSheet.Paste Destination:=Worksheets("Sheet2").Range("A2:M102")
End Sub

Sub txt()
    ChDir "C:\Users\Usersss\Desktop\6.software.txt"
    ActiveWorkbook.SaveAs Filename:="C:\Users\Usersss\Desktop\6.software.txt", FileFormat:=xlText, _
        CreateBackup:=False
End Sub

Sub Save()
    Range("A2:M102").Select
    Selection.Copy
    Sheets("Sheet2").Select
    Range("A2:M102").Select
    Application.CutCopyMode = False
    ActiveWorkbook.Save
End Sub