Слепил макрос, как его запустить?

[zander]

Записал макрос, по импорту данных из файла TXT и последующей сортировки данных. Впринципе все работает. Но работает только если макрос этот на листе Х расположен. Как сделать так, что бы кнопка которая расположена на другом листе запускала этот макрос на исполнение на листе Х?

Private Sub CommandButton18_Click()
ThisFile = "C:\input\L.txt"
WrteInvenoty = 100
Worksheets("Х").Cells.Clear
FileNumber = FreeFile
Open ThisFile For Input As #FileNumber
Ctr = 0
Do
Line Input #FileNumber, Data
Ctr = Ctr + 1
Worksheets("Х").Cells(Ctr, 1).Value = Data
Loop While EOF(1) = False
Close #FileNumber
'Worksheets("Х").Select
ActiveWorkbook.Worksheets("Х").Sele ct
Cells(1, 1).Resize(Ctr, 1).TextToColumns _
Destination:=Worksheets("Х").Range( "A1"), _
DataType:=xlDelimited, Comma:=True, FieldInfo:=Array( _
Array(1, xlGeneralFormat), Array(2, xlGeneralFormat), _
Array(3, xlGeneralFormat), Array(4, xlGeneralFormat))
ActiveWorkbook.Worksheets("Х").Sort .SortFields.Clear
ActiveWorkbook.Worksheets("Х").Sort .SortFields.Add Key:=Range("D2:D500") _
, SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Х").Sort
.SetRange Range("A1:J500")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Worksheets("Лист1").Select

End Sub

[viter.alex]

call Sheets("имя_листа_с_макросом").Имя_макроса

[EducatedFool]

Убери из строки Private Sub CommandButton18_Click()
ключевое слово Private,
а потом с другого листа запускай примерно так:

Private Sub ИмяКнопки_Click()
    Лист1.CommandButton18_Click
End Sub

Сообщение от viter.alex

call Sheets("имя_листа_с_макросом").Имя_макроса

При наличии слова Private этот вариант не сработает.

[SAS888]

Все верно.
Нужно создать макрос с этим кодом. Например, Sub Sortirovka() и разместить его в программном модуле. После этого, его можно запускать откуда угодно:

Private Sub CommandButton18_Click()
    Sortirovka
End Sub

P.S. Ваш код я не разбирал (т.к.Вас устраивает). Но советую первой строкой запретить обновление экрана (Application.ScreenUpdating = False).

[EducatedFool]

В Вашем макросе можно заменить код

    ThisFile = "C:\input\L.txt"
    Worksheets("Х").Cells.Clear
    FileNumber = FreeFile
    Open ThisFile For Input As #FileNumber
    Ctr = 0
    Do
        Line Input #FileNumber, Data
        Ctr = Ctr + 1
        Worksheets("Х").Cells(Ctr, 1).Value = Data
    Loop While EOF(1) = False
    Close #FileNumber
    'Worksheets("Х").Select
    ActiveWorkbook.Worksheets("Х").Select
    Cells(1, 1).Resize(Ctr, 1).TextToColumns _
            Destination:=Worksheets("Х").Range("A1"), _
            DataType:=xlDelimited, Comma:=True, FieldInfo:=Array( _
            Array(1, xlGeneralFormat), Array(2, xlGeneralFormat), _
            Array(3, xlGeneralFormat), Array(4, xlGeneralFormat))

на что-то вроде этого:

    Application.ScreenUpdating = True: ThisFile = "C:\input\L.txt"
    Workbooks.OpenText Filename:=ThisFile, DataType:=xlDelimited, Comma:=True
    ActiveSheet.Cells.Copy ThisWorkbook.Worksheets("Х").[a1]
    ActiveWorkbook.Close False

Пожалуй, будет работать побыстрее...

[zander]

Да работает, но сортирвки нет. А мне нужно в формате от Я до А

[SAS888]

Чем "играть в футбол", прикрепите файл (фрагмент) и подробно опишите, что нужно. Все вопросы будут быстро сняты.

[zander]

Спасибо! Разобрался самостоятельно