макрос импорт txt в EXCEL

[ntrader]

Ок, я посмотрю, кажись у нас есть "банкоматы" где можно пополнять вебмани-кошельки ;-)

[ntrader]

...............

[Hugo121]

К пропавшему вопросу - можно не выгружать массив, а сразу генерить этот Ваш скрипт, подставляя в строки данные из массива.
Но в целом дополнительную задачу не понял...

[0creator0]

Кто может подскажите, есть макрос не знаю как его закончить. Макрос берет с листа база данные и через форму добавляет на лист решение. Не получается сделать что б когда при выборе в форме нужных строк , автоматически добавлял из столбцов E,F (база) , EF (решение) выбранные строки.

[0creator0]

Подскажите, пожалуйста, все перепробовал, ни как не получается

[0creator0]

Подскажите, пожалуйста, что надо написать, что б при выборе из базы нужного аргумента остальное добавлялась автоматически, а то я не как это выразить в макросе ! Заранее благодарен!

Sub UniqIn(sh_ As Object, col_ As Long)
Dim oDict As Object, iLastRow As Long, i As Long
Set oDict = CreateObject("Scripting.Dictionary" )
With sh_
iLastRow = .Cells(Rows.Count, col_).End(xlUp).Row
For i = 2 To iLastRow
If Len(.Cells(i, col_).Value) Then oDict.Item(.Cells(i, col_).Value) = 1
Next
valArr = oDict.keys
End With
End Sub
Private Sub CommandButton4_Click()
Dim r As Integer

Sheets("Решение").Activate
r = _
Application.WorksheetFunction.Count A(Range("A:A")) + 1

Cells(r, 1) = "=IF(ISBLANK(RC[1]),"""",COUNTA(R2C2:RC[1]))"
Cells(r, 2) = ComboBox1.Text
Cells(r, 3) =??????
'Unload Me
End Sub

Private Sub CommandButton5_Click()
Dim r As Integer
Sheets("Решение").Activate
r = _
Application.WorksheetFunction.Count A(Range("A:A")) + 1
Cells(r, 1) = " "
End Sub

Private Sub UserForm_Initialize()
UniqIn Sheet1, 1
ComboBox1.List = valArr
End Sub

[Hugo121]

Как-то коряво всё... но работает.
Вообще имхо надо бы кардинально переработать...

Сделал так - когда берём наименование, сразу берём и материал и массу. Т.к. особо брать некуда, то сливал в одну строку через разделитель, по которому потом делил при выводе.

[0creator0]

Спасибо огромное, а то неделю уже думал ,что то простое я могу дописать скорректировать а вот сложнее, все ступор становится)))