Проверил, не выходит каменный цветок

У меня не получается сохранить файлы, обработку файлов я сделал макросом, а как сделать сохранение?
Я могу добавить Дату макросом и сохранить его в *.csv.

Попробовал файл, но он не сохраняет в xlsx формате или может, я как то не так делаю.
Скачал ваш файл, и открыл один из файлов, он проделать с ним что то, и сохранил, но формат остался прежним.

Добрый день, помогите решить задачу.
Есть файлы (порядка 500) в формате *.csv
Нужно в файле, в конце таблицы добавить столбец Дата.
Дата берется из названия файла, ее нужно протянуть на все строки таблицы, таблица данных может иметь разное количество строк.
Сохранить формате *.xlsx

Прилагаю файл.

Спасибо. Возьму на вооружение формулы. Тему можно закрыть.

Добрый день помогите решит задачу.
на основе значений листа "Прайс" в Лист1 ведется подсчет кол-ва значение и суммы прайс листа.
Диапазон в прайсе меняется.
Данные заполняются ежедневно по таблице.
Помогите автоматизировать данный подсчет?

Ооо, благодарю. все отлично сработало.

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

Суть задачи такова, есть анализ на 8 недель, в котором нужно найти максимальное значение по столбцам отгрузка, но далее нужно выделить при данном максимальном значении отгрузки Сред.вз.нац.% данной недели

См. пример

Я думал над таким способом реализации этой таблицы, действительно я соглашусь с вами, что списком такая таблица будет проще смотреться и читаться, но как говориться Начальник сказал, так и делай  

Спорить не буду с Вами.
Выкладываю полный вариант.

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

Условие:
если К1 <=100%, П1=К1*20000
если К1 > 110%, П1 = К1*К1*20000

Формула:
=ЕСЛИ(ЕОШИБКА(B5/A5);0;ПРОСМОТР(B5/A5;$A$9:$A$10;$B$9:$B$10)*$C$9*(B5/A5)*(B5/A5))
я смог записать только, (если К1 > 110%, П1 = К1*К1*20000), а как сюда вписать условие (если К1 <=100%, П1=К1*20000)?

Добрый день всем
Не могу записать формулу при просмотре значений, где расчет Коэфф. разный
см. файлик

При удалении Расширения Skype из Настроек браузера Google Chrome, проблема устраняется.

Коллеги, не осилил поиск, пожалуйста дайте ссылку на производственный календарь на 2012 год, наподобие этого: http://www.planetaexcel.ru/docs/forum_upload/post_212793.zip    
 
Очень Вас благодарю!

Спасибо!  
Как много мне еще предстоит узнать об этой програмище!

Alex_ST  
Супер! Функционал даже больше чем я мог себе предположить.    
Только скажите как можно изменять названия и перетаскивать текстбоксы? Там все под защитой...

я точно знаю что это как-то очень просто делается или через Индекс или через Поискпоз, но чего-то сообразить никак не могу.  
 
т.е. Пользователь вводит фамилию и в строке ниже видит предложенный найденный вариант.  
 
Пожалуйста выручайте, директор дал задание - говорит запарился мышкой елозить - давай грит быстрый поиск. На мое скромное Ctrl+F - презрительно фыркнул ((((

Могучая формула конечно ))))  
Но нужен именно макрос, т.к. строки могут удалять/добавлять. Конечный пользователь таблицы с формулой не разберется!

Доброго времени суток коллеги!  
Помогите пожалста состряпать простейший макрос для подстановки нужно значения.    
Суть в следующем:    
При выборе нужной фирмы (столбец С) в столбец D автомоатически подставляется значение в формате "Название фирмы/Порядковый номер". Название фирмы - если фирма А, то 1, если Б- то 2 и т.п.    
Мой пример во вложении.  
Заранее спасибо!!!

{quote}{login=GIG_ant}{date=22.02.2011 02:39}{thema=}{post}проверил: в файле 3 строка 6 и 78 есть только в файле №2 и там ее значение равно 0 и  -208,4, что и выдает формула  
Так что все работает.{/post}{/quote}  
У меня почему то эти 2 поля он пустыми оставляет.

{quote}{login=GIG_ant}{date=22.02.2011 02:23}{thema=}{post}посмотрев пример, могу сказать что НД появляется в файле №3 потому что он не находит соответствуюцих кодов "Client_id" в файлах №1 или №2 соответственно. Их там просто нет.{/post}{/quote}  
 
в файле 3 строка 6 и 78, эти Client_id есть, но их ставит пустыми, хотя же по идеи должен поставить значения.

{quote}{login=Юрий М}{date=22.02.2011 01:51}{thema=Re: Re: }{post}{quote}{login=Руслан}{date=22.02.2011 01:47}{thema=Re: }{post}{quote}{login=Юрий М}{date=22.02.2011 01:35}{thema=}{post}Для начала возьмите текст в двойные кавычки.{/post}{/quote}Если я беру в двойные кавычки текст, то пишет ошибка в формуле.{/post}{/quote}  
Так это у Вас имя листа такое? :-){/post}{/quote}  
Нет, это название файла в DBF и как я понял его сохранить желательно, чтобы не было ошибок.  
Оказывается из файла которой идет впр там не было в значение переведено число, поэтому выдавал ошибку, но теперь другая проблема возникает, он из 2 файла впр не отображает, а делает поле просто пустым.  
 
Вот пример.  
файл 3 это исходник куда все впр идет, а 1 и 2 это откуда.

{quote}{login=Юрий М}{date=22.02.2011 01:35}{thema=}{post}Для начала возьмите текст в двойные кавычки.{/post}{/quote}  
Если я беру в двойные кавычки текст, то пишет ошибка в формуле.

Почитал http://www.planetaexcel.ru/tip.php?aid=26  
написал формулу, но где то ошибка и все равно выдает НД  
 
=ЕСЛИ(ЕНД(ВПР(A2;'СОС - Потери отгрузки с выдачей(по всем) EA ОС ежедневно.DBF'!$A:$B;2;0));"";ВПР(A2;'СОС - Потери отгрузки с выдачей(по всем) EA АО ежедневно.DBF'!$A:$B;2;0))  
 
помогите исправить.

В общем не стал заморачиваться проверкой файлов, просто сделал батник на удаление нужных мне файлов :)

Sub date1()  
Dim dtToday As Date, dtfile As Variant  
dtfile = "c:\-1.dbf"  
dtToday = Date  
dtToday = ActiveWorkbook.BuiltinDocumentProperties("Last Save Time")    
If dtToday = Date Then  
   MsgBox "Все хорошо " & dtToday & " ", , "Файл " & dtfile  
Else  
   MsgBox "Обновите файл от " & dtToday & " ", , "Файл " & dtfile  
End If  
 
End Sub  
 
Что то я не пойму откуда он дату берет, если файл последний раз:  
Создан 29 ноября 2010 г., 9:44:51  
Изменен 1 февраля 2011 г., 10:04:56  
Открыт 1 февраля 2011 г., 14:02:05  
 
А пишет ему 3 июля 2010 г.,

Добрый день всем.  
Не могу реализовать проверку файла по дате создания.  
В 1 файла копируются данные из 2 файла, который создается автоматически каждый день, как реализовать проверку данного файла по дате, чтобы дата создания (изменения) была сегодняшней, если нет, тогда обновить файл.  
 
Нашел макрос который проверяет началось ли занятие или нет, но не могу его изменить под даты.  
 
Sub МоиЧасы()  
   Dim dtTime As Date      'объявление переменной типа дата/время  
   Dim dtEnd As Date  
   Dim intMin As Integer   'объявление переменной числового целого типа  
     
   'Время конца занятия  
   dtEnd = #5:00:00 PM#  
   'присвоить переменной значение текущего времени  
   dtTime = Time()  
   'расчет оставшихся минут  
   intMin = (dtEnd - dtTime) * 24 * 60  
     
   'проверка условия  
   If intMin > 0 Then  
       MsgBox "До конца учёбы осталось " & intMin & _  
           " мин.", , "Сейчас " & dtTime  
   Else  
       MsgBox "Всё закончилось " & Abs(intMin) & _  
           " мин. назад.", , "Сейчас " & dtTime  
   End If  
End Sub

{quote}{login=dl}{date=19.01.2011 04:11}{thema=offset = сместить диапазон; resize = изменить размер диапазона}{post}пробуйте:  
 
Set ff = Range(Range("A2"), Range("A2").End(xlDown)).Offset(0, 1).Resize(, 4)  
MsgBox ("Будут скопированы ячейки: " & ff.Address)  
ff.copy  
 
успехов! /на сегодня...  
--------  
химмаш-сортировка-транзит{/post}{/quote}  
 
Спасибо! Оба варианта подходят и работаю превосходно.

{quote}{login=dl}{date=19.01.2011 03:57}{thema=Re: }{post}{quote}{login=Руслан}{date=19.01.2011 03:27}{thema=}{post}А как его ограничить списком, чтобы ровное количество копировалось не больше и не меньше чем есть в столбике А (Код)  
{/post}{/quote}  
 
ещё раз сформулируйте задачу  
из цитаты следует  
что Вам нужно скопировать несколько столбцов соседних с "А" в соответствии с областью его заполнения.  
 
вопрос: Range("A1").End(xlDown) - позволяет Вам найти искомую последнюю ячейку в столбце до которой (включительно) требуется копировать?  
 
ну и начиная с какой строки надо копировать известно?{/post}{/quote}  
 
Задача: На листе данные столбцы A B C D E F  и так далее 107 столбцов  
Есть шапка Код, Цена, Товар и так далее 107 столбцов.  
Нужно не трогая шапку скопировать все что ниже нее, соответственно задав какие столбцы должны быть скопированы не трогая шапку.    
 
В принципе ваше решение мне подходит, даже с шапкой, я могу в шаблоне файла ее удалить и копировать исходные данные в другой файл куда мне угодно уже с готовой шапкой.

А как его ограничить списком, чтобы ровное количество копировалось не больше и не меньше чем есть в столбике А (Код)  
 
Просто он почему то копирует 2 столбца B:C полностью с шапкой.  
 
   Range("b2").Activate  
   Dim a As Variant  
   Dim ff As Variant  
     
   Set a = Range("B3:C3")  
   Set ff = Application.Intersect(a.EntireColumn, ActiveSheet.UsedRange)  
   ss = "$B$1:$C$85"  
   ff.Copy  
 
Если конечно я правильно делаю.