Сообщения

CLng преобразует число к типу Long. При этом фильтровать Вы должны даты. Смотрите в сторону CStr

У Вас в столбце B даты написаны как текст, поэтому и не работает. Они так и будут текстом?

В TimeSerial минуты доступны в интервале от 0 до 59. Получается, что все равно вручную нужно будет минуты в часы переводить.

А вы пробовали подставить туда больше 59 минут? всё прекрасно работает!
Да и справка говорит что можно

minute Required; Variant (Integer). Any numeric expression.
...
that is, 0–23 for hours and 0–59 for minutes and seconds. However, you can also specify relative times for each argument using any numeric expression that represents some number of hours, minutes, or seconds before or after a certain time. The following example uses expressions instead of absolute time numbers.

Попробуйте функцию TimeSerial (Hour As Integer, Minute As Integer, Second As Integer)

Что-то не получается. Пишет смешение типов.

Это потому что Вы TimeValue подсовываете число, а у неё аргумент должен быть строкой

PS DateSerial у меня работает успешно, прекрасно понимает 32 день и 13 месяц

Может быть причина в этом:

Код (vb) Выделить Развернуть

ActiveWindow.Close
?
Или вылетает с ошибкой?

так?

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

а условие для анализа какое? последняя ячейка с числом?

СЧЁТЕСЛИМН?

меня вот этот кусок порадовал

Код (vb) Выделить Развернуть

For i = 0 To c 
If k(i) = 0 And k(i + 1) = 0 Then m = n(0) 
If k(i) = 1 And k(i + 1) = 0 Then m = n(1) 
If k(i) = 2 And k(i + 1) = 0 Then m = n(2) 
If k(i) = 3 And k(i + 1) = 0 Then m = n(3) 
If k(i) = 4 And k(i + 1) = 0 Then m = n(4) 
If k(i) = 5 And k(i + 1) = 0 Then m = n(5) 
If k(i) = 6 And k(i + 1) = 0 Then m = n(6) 
If k(i) = 7 And k(i + 1) = 0 Then m = n(7) 
If k(i) = 8 And k(i + 1) = 0 Then m = n(8 ) 
If k(i) = 9 And k(i + 1) = 0 Then m = n(9) 
Next i 
вместо последовательного сравнивания разве нельзя было крутануть второй цикл?

Код (vb) Выделить Развернуть

For i = 0 To c 
For j=0 To 9
If k(i) = j And k(i + 1) = 0 Then m = n(j) 
Next j
Next i

Я не могу приложить сам файл, это конфиденциальная информация.

тогда помочь Вам никто не сможет
Приложите файл с кодом и каким-нибудь бутафорскими данными

Форматирование отчета происходит так
Копируем лист "Июнь"
Переходим на лист "Управление"
Нажимаем кнопку "Копирование и форматирование отчета"

зачем Вы усложняте себе жизнь копированием и хождением по листам? Вы макрос пишете зачем? Вставьте в него строки которые будут сами копировать и ходить по листам

Ошибка при запуске руками происходит при вставке:

Код (vb) Выделить Развернуть

Sub Копирование()
'
' Копирование_Построение Макрос
    Sheets("Заказ").Select
    Cells.Select
    ActiveSheet.Paste
Вы когда руками запускаете макрос, перед этим перешли куда надо, скопировали? Если не скопировали, то что вставлять будете?

Автор: ambasad
Цитата
Цитата: Михаил С. от 16.08.2012, 18:00:14
Я не возьмусь, но скажу так: такая постановка задачи предполагает оплату работы.
Да да, у меня на работе стоит продукт TeleoptiCCC, который стоит весьма немалых денег. Так что навряд ли кто возьмётся писать с нуля и даром

Ну почему так резко
Я возьмусь.
Всё только зависит от ТЗ. При грамотно написанном - можно уложиться в $1 000.
При неграмотном в $10 000. Это прописывается в договоре/контракте.
PS. ТЗ, кстати, тоже, если нужно сэкономить разницу между первым и вторым, чтобы написать стоит денег.
PS1. Про "даром" - согласен.
PS2. Написанное выше - это так, что между прочим есть советы и есть работа. И между ними присутствует разница

по мое му писать это на vba - маразм. ИМХО

лучше файл с куском своей рабочей таблицы выложите.
Скорее всего обращаетесь к несуществующему листу......

Я не возьмусь, но скажу так: такая постановка задачи предполагает оплату работы.

Да да, у меня на работе стоит продукт TeleoptiCCC, который стоит весьма немалых денег. Так что навряд ли кто возьмётся писать с нуля и даром

Кстати про ВПР. ввел дополнительный столбец и накидал небольшую формулку. После её отработки фильтруете все нули - это те значения, которые не найдены в таблице из второго файла.
И без макросов
Вопрос только в скорости работы на Вашем количестве строк

PS данные из второго файла запихнул на лист 2