Характерные признаки нубства

Кто такой нуб1. Неприятие своего статуса. Умный человек понимает, что не может знать все, и готов учиться. Нуб (вечный нуб) не умеет ничего, но думает, что во всем асс, и действует по принципу «сам дурак».

2. Нежелание самостоятельно поискать хоть какую-нибудь информацию. Чаще всего ему проще создать десять постов вроде «Не вижу кнопак!!!», «А как найти…», «А че, ктота реально это делал?» и т.д., чем зайти в правила и узнать все за 5 минут.

3. Постоянные оправдания своей неопытностью («Не кидайте тапками, я новичек…», «Нагами не бить!») и при этом полный отказ от обучения.

4. Отсутствие мало-мальски понятного языка в сообщениях, которое он компенсирует СapsLockами и обилием неоправданных знаков. Выглядят его сообщения примерно так: «СРОЧНА!!!!!!!!!!!!! ПАМАГИТЕ ФСЕ!!!!!!!!! НУЖНА ПРОГА!!!!!!!!!». Через 30 секунд: «ВЫ ГДЕ? ПАМАГИТЕ СРОЧНА!!!!!!!». Через 20 секунд: «НИКТО НЕ ПАМОЖЕТ ЧЕЛЕ?»

5. Уверенность, что все вокруг ему должны, и неумение быть благодарным. Установив скинутую вами программу, он в ответ может еще и возмутиться, что она медленно работает, а потом месяц тиранить требованиями объяснить причину.

Вы пишете

Этот лист надо скопировать в книгу

А копируете не лист, а ячейки. Конечно, с содержимым ячеек код листа не копируется.
Лист копируется так

Код: (vb)

Sub ww()
    ActiveSheet.Copy Before:=WB2.Sheets(1)
End Sub

Надеюсь на вашу помощь

Помошь утопающим - дело рук самих утопающих.
Тыкать при регистрации шаловливой ручкой в кнопку "согласен" помогает утонуть.
Для начала, нужно руками протереть глаза, и прочитать правила форума.

Тяжело найти черную кошку в темной комнате, особенно когда ее там нет.
Как включить свет и посадить кошку в комнату, вам показали в сообщении 5.

Котяра, бери.

говорит,что никак не сделать!

Врет.
И вообще, обычно форму отчета определяет тот, кто отчет принимает, а не тот, кто его отправляет.
Можно, конечно, и макрос сделать, но он будет жестко привязан к файлу, а у вашего дистрибьютера завтра возникнет желание сделать отчет по другому. И что? Новый макрос писать?

Код: (vb)

Sub double_click_project(ByVal project_select As Range)

ByVal - как значение, а вы туда что-то впихнуть пытаетесь.

Код: (vb)

Sub double_click_project(ByRef project_select As Range)

либо просто

Код: (vb)

Sub double_click_project(project_select As Range)

ByRef  - свойство по умолчанию

Код: (vb)

mRng.Copy 
Sheets("sheet1"). _  
                        Cells(Rows.Count, 1) _  
                                .End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues  

Тяжела она, шапка Мономаха. Без поллитры доп кода не поднять

Написал

Код: (vb)

Function мяу(Txt As String, RNG As Range, Optional Num As Long = 1)
    Dim i As Long, k As Long, v, spl
    v = RNG.Value
    spl = Split(Txt)
    k = Num
    For i = LBound(spl) To UBound(spl)
        spl(i) = v(1, k)
        k = k + 1
        If k > UBound(v, 2) Then k = Num
    Next
    мяу = Join(spl)
End Function

VBACodeIndenterAlt.xlam

А взглянуть на зверя можно? 

 

Это плохо.

чем плохо?

Set pStream = fso.CreateTextFile("D:\1.txt", , True)

Файл *.csv содержит один столбец (как любой текстовый файл).

Это вы так думаете

Для разделения такого файла на столбцы

в Excel предусмотрена встроенная обработка

Выяснилось, что обычное копирование текста макроса  в код для пользовательской формы почему-то не работает!

Блымц не прокатывает. Обидно...

Для тех, кто думает не коленкой, совершенно очевидно

как написать макрос, но совершенно не очевидно, что это

экспоненциальная форма представления чисел

Оставьте мою просьбу без вашего внимания

Вы адресовали это сообщение тому из форумчан, кто с наибольшей вероятностью мог дать ответ, не смотря на ваши фортели.

Возможно, кто-то другой

предложит что-нибудь