Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Макрос для импорта нескольких CSV файлов, каждый в новый лист
 
Нашел вот такой, делает почти то что надо, только вставляет без разделителя(ТАБ) все в одну ячейку, но строки вставляет правильно...
Код
Sub CombineCsvFiles()
'updateby Extendoffice 20151015
    Dim xFilesToOpen As Variant
    Dim I As Integer
    Dim xWb As Workbook
    Dim xTempWb As Workbook
    Dim xDelimiter As String
    Dim xScreen As Boolean
    On Error GoTo ErrHandler
    xScreen = Application.ScreenUpdating
    Application.ScreenUpdating = False
    xDelimiter = "|"
    xFilesToOpen = Application.GetOpenFilename("Text Files (*.csv), *.csv", , "Kutools for Excel", , True)
    If TypeName(xFilesToOpen) = "Boolean" Then
        MsgBox "No files were selected", , "Kutools for Excel"
        GoTo ExitHandler
    End If
    I = 1
    Set xTempWb = Workbooks.Open(xFilesToOpen(I))
    xTempWb.Sheets(1).Copy
    Set xWb = Application.ActiveWorkbook
    xTempWb.Close False
    Do While I < UBound(xFilesToOpen)
        I = I + 1
        Set xTempWb = Workbooks.Open(xFilesToOpen(I))
        xTempWb.Sheets(1).Move , xWb.Sheets(xWb.Sheets.Count)
    Loop
ExitHandler:
    Application.ScreenUpdating = xScreen
    Set xWb = Nothing
    Set xTempWb = Nothing
    Exit Sub
ErrHandler:
    MsgBox Err.Description, , "Kutools for Excel"
    Resume ExitHandler
End Sub
Изменено: Michael1981 - 05.07.2017 18:20:02
Макрос для импорта нескольких CSV файлов, каждый в новый лист
 
Есть ли такой макрос? никак не могу найти.
Добавление определенного процента к списку существуюших цен
 
Цитата
Илья Демид написал:
Если данные могут меняться то можно сделать так. Менять данные на 2 листе

Прикрепленные файлы
example.xlsx  (11.44 КБ)

Изменено: Илья Демид  - 21 Июн 2017 14:03:07
Большое спасибо, отличное решение!
Добавление определенного процента к списку существуюших цен
 
Большое спасибо за ответ
Добавление определенного процента к списку существуюших цен
 
К сожалению, финальным файлом будут пользоваться люди "далекие" от экселя, поэтому изначално задача поставлена в %. Так же файл будет использоваться не один раз и с разным процентом...
Можно вручную добавить формулу "=Цена/(1-процент в данной строке)" в каждую строку, но в оригинальном файле более 500 строк...
Спрошу по-другому: как добавить формулу в ячейку, где уже есть данные, при чем эти данные должны быть использованы в этой формуле?
Добавление определенного процента к списку существуюших цен
 

Добрый день
Есть вот такая задача:
В примере показаны цены, к которым нужно добавить определенный процент (определяется путем изменения значения в K2)
Подскажите, как подставить формулу "=Цена/(1-процент в данной строке)" в каждую ячейку, где уже есть значение.
Например:

PARAGUAY  0.2475  0%

При добавлении в K2 10% цена должна увеличиться на 10%, т.е должна стать 0.27225

Спасибо

Изменено: Michael1981 - 21.06.2017 12:00:48
создание одного эксел файла из многих csv
 
Решение найдено, всем спасибо:)
создание одного эксел файла из многих csv
 
нет ли возможности сделать, как с одним тхт(data-->from text--> и т.д.)
создание одного эксел файла из многих csv
 
Добрый день, подскажите, пожалуйста, каким образом можно создать один эксель файл из большого количества(около 1000) csv файлов.

Зарание благодарен
Помощь с выбором формулы поиска для частичного совпадения
 
Большое спасибо! Все работает!
Помощь с выбором формулы поиска для частичного совпадения
 
Большоие спасибо, вот только не получается не английский её перевести...получается как-то так:
=LOOKUP(2;1/ISNUMBER(SEARCH(Sheet2!$A$2:$A$3;Sheet1!A2));Sheet2!$A$2:$A$3)
Обозначил красным, то место где я не совсем понимаю...
Помощь с выбором формулы поиска для частичного совпадения
 
Доброго дня
Подскажите, пожалуйста, какой формулой и каким синтаксисом воспользоваться для следущего поиска:
Есть столбик в котором через ; записаны адреса электронной почты, а в другом файле есть столбик с адресом электронной почты
Добавляю пример, только не в двух файлах, а на двух листах.
Требуется, сделать поиск адресов с листа 2 на листе 1.

Спасибо
Изменено: Michael1981 - 18.05.2015 14:53:29
Автозаполнение бланков
 
Можно узнать, как производится изменение цвета выбранной строки?
Автозаполнение бланков
 
МатросНаЗебре,
Ты просто волшебник!!!!!!! БОЛЬШОЕ СПАСИБО!!!!!
Автозаполнение бланков
 
Большое спасибо, вопрос со множественным вносом в бланк решен
а как быть со вторым? дело в том, что номер может быть использован только один раз, поэтомы я заинтересован, чтобы он был бы удален из листа 1, или каким нибудь образом отмечен, как использованный (например окраска фона ячеек) но делаться это должно не пользователем, а экселем, как только номер переведен в бланк
Изменено: Michael1981 - 26.02.2015 17:51:33
Автозаполнение бланков
 
Добрый день
есть таблица содержащяя 3 столбика:
номер серии, серийный номер и код
воспользовался возможностью автоматического заполнения бланка(бланк на листе 2)
первый вопрос, есть ли возможность заполнять по 6 бланков(одинаковых) за один раз, то есть отмечать 6 номеров в таблице на листе 1
и второй вопрос, есть ли возможност сделат так, что,  если выбрана определённая строка, она бы удалялась с листа 1
спасибо
Страницы: 1
Наверх