<< "Тема закрыта">>
                                                                                                                                 The end
                                                                                                                                    типа
                                                                                                                                     

в общем отправил всем, кто просил - смотрите уже подробности... как получится....
там ньюансов много, поэтому в двух словах не объясню- я как смог так и написал.

бюджет от 6000 рэ.-обсуждается!
Ввиду большого веса тхзд высылаю вступительную часть задания.
Начинаем ИМЕННО с этого места как в задании.
Никаких предоплат.
Даже не предсталяю как подогнать под размер чтобы загрузилось-если кто заинетересовался вышлю на электроящик сразу.    
как сделать, чтбы фотку было видно-ума не приложу!(((

V--  зачотно  посоветовал)) мне тоже пригодилось)) вот в таком ключе:  .HorizontalAlignment = xlFill  

KuklP  каков слог))))) прям два раза перечитал))) респект))))

Господа тема закрыта , СПАСИБО ЗА ОГРОМННУЮ ПОМОЧСЧЬ))-  я какбы САМ  порешал тему. кому интересно- можете пазырить как работает)))
-в столбце G  -добовляется столбец-красится-нумеруется=особоя блгодарность v.fix86
редкий соыетчик по уму.  
-вот почему все такие обиженные тута))? я денег разве прошу у вас господа)))?

Вот, дошел вот до сюда, !!
Господа, помогите в макросе пронумеровать товары: сейчас я  могу только в столбце S  проставить в нужном месте единички, а мне необходимо ПРОНУМЕРОВАТЬ!! Есть идеи, ещё, есть силушка молодецкая))? у кого осталась к вечеру в пятницу))?

нет не так:  я программно, в коде макроса просил сделать, что то типа вот этого:

[code]
If Range("H" & i).Interior.Color = 13434828 And Len(Range("M" & i - 1)) > 0 Then
           s = s + 1
           Range("G" & i - 1) = s
       ElseIf Range("H" & i).Interior.Color = 13434828 And Len(Range("M" & i - 1)) = 0 Then
           s = s + 1
           Range("G" & i - 2) = s
       End If
       If i >= [b2] Then Exit Do
Loop
   With Range("G" & myF.Row + 1 & ":G" & [b2]
code].

я уже не знаю как урезать файл, чтобы загрузить на форум!  все урезал пожалуста вам и формула в наличи:

вам нужна формула, кот тянет макрос))?
вот фотка ее-я изи ограничений по весу убираю все, и потом, какое отношение это имеет к вопросу????

что скажете))?

сейчас макрос протягивает формулу в столбцах  "G"  и "H", а вот уже хочется покрасивше чтобы было, не поможете) )?
нумерация должна быть в  столбце "G"..

 
все было вот из за этого :

я сохранил один макрос там в PERSONAL, как вариант,-- получается, что при запуске этот проект мешал все карты, и другие макросы там искали таблицу  ту.
В общем ВСЕМ спасиб за помощь))) ЛЯЛЯЛЯ))!

Hugo , а вы будьте попроще и народ к Вам обязательно потянется))))  

Ваш, рядом)) с вашим то нет проблем)) - проблема в том , что дома прям счас работает, а код на первом столбце останавливает:
ps^ Вы бы банили меня по-меньше, и мне было бы хорошо, и Вам)))))

 

Hugo

так давайте завтра зайдете ко мне через теам въювер на рабочий: будет вам и инфа, и шок , и все вместе.
(дома работает, все- я проверил тока что).

я говорю, если ПОЛНОСТЬЮ раскроете причину глюка- реально проплачу тему! тута не до шуток вообще! я из дома попожжее  вышлю, домой нада идти!

я серьезно! там проверяется декларация с первоисточеником, время МОРЕ экономило, а сейчас тупо везде пишет: "не найдена строка с заголовком таблицы"...... причем два раза работало... а потом опять не работает.....ужос....

я в шоке!
перестало видеть таблицу, т.е. периодически видит а потом нет... файлы большие может кому на почту для отладки выслать- былбы ОЧЕНЬ  благодарен за раскрытие темы.....далее идут только матершиные слова.

Ёк-Мок ухты))))
сильно конечно, что скажешь... может тоже на самом деле так писать тоже...
показательно в общем...

The_Prist я бросил курить)))
-и кстати зла обычно не помню, вот как Вы все помните))))  

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

завалили совсем))))
выручили))
я честно обещаю учится тоже- когда силы будут))
-ВСЕМ СПАСИБО  за помощь))!!

Sanja
не могу  вставить - все красное в в коде.... может в файлик вы сами вставите???

Нашел тут на форуме старый макрос hugo Переделал его под свои нужды, но мне необходимо красить ячейки , в кот. произошла замена+ формат чтобы настроить с выравниванием, сам не могу осилить никак.
В столбце Е макрос ищет значения, и если найдено меняет значения в столбце D, если замена произошла- тогда красим их обе)
Кто поможет закрасить ))?

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

vikttu так удаляйте, кроме вас никто даже не уточнял....что мусор держать тогда...
-я вырезал часть кода из надстройки, в котором происходит сбой в работе, что не понятного в ВЫШЕИЗЛОЖЕННОМ тексте ЛИЧНО для вас????????????????????????????????
-и спросил ПОЧЕМУ это происходит , если не знаете ответ, так и скажите. точка.

За ответом не гнался. Точка.
Название исправил на свое усмотрение. И тему имел право удалить сразу.
В следующий раз не удивляйтесь, если тема с подобным названием исчезнет без предупреждения.
[vikttur]

стоимость на рынке 400рэ етого макроса- я за бесплатно могу подогнать: у меня два таких есть)))

Range("F" & i).FormulaLocal = "=ЕСЛИ(ВПР(B" & i & ";'C:\AL\[alko_sez.xls]alko_sez'!$A$1:$IV$65536;6;0)=0;"""";((ВПР(B" & i & ";'C:\AL\[alko_sez.xls]alko_sez'!$A$1:$IV$65536;6;0))))"
2. При попытке отсортировать инвойс выдает ошибку
такого типа:"Automation error The object invoker has disconnected from its clients"
и ссылатся в отладке вот на этот код:
Sub ДобавитьСтроку(ПослеСтроки)
Rows(ПослеСтроки + 1).Insert Shift:=xlShiftDown
End Sub
-и виснет все напрочь.
3. Если убрать блок "Шампанское" опять работет..
4, Если нижние блоки убрать и оставить "Шампанское" опять работает. т.е. я высылаю ВЕСЬ инвойс, иначе он может опять заработать.
5. Убится легче чем найти причину(((
6. Проблема ТОЛЬКО в ЭТОМ файле за два года работы.
Что может быть , в чем проблема??????? Кто подскажет???

ctrl+F8 нажимаем на макрос "Сортировать без градусов"
...и ещё самих формул нет в столбце F иначе по весу файл не проходит.

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

Вот, по открытому активному инвойсу, сравнивает значения с файлом выгруженным из декларации:

Скрытый текст

Sub AllCheck() Dim wbTarget As Workbook Dim wbSource As Workbook Dim wbAlkoSez As Workbook Dim shtTarget As Worksheet Dim shtCountries As Worksheet Dim shtSource As Worksheet Dim shtAlkoSez As Worksheet Dim rng1 As Range Dim rng2 As Range Const iInvoicePLUCol As Integer = 2 Const iInvoiceTNVEDCol As Integer = 4 Const iInvoiceSpiritCol1 As Integer = 25 Const iInvoiceSpiritCol2 As Integer = 26 Const iInvoiceSpiritCol5 As Integer = 24 Const iInvoiceSpiritCol6 As Integer = 16 Const iInvoiceSpiritCol3 As Integer = 20 Const iInvoiceSpiritCol4 As Integer = 21 Dim iInvoiceFRow As Integer Dim iCountryCol As Integer Dim iQuantityCol As Integer Dim sCode As String Dim sCountry As String Dim sCountryCode As String Dim sPLU As String Dim sTradeMark As String Dim sRightSum As String Dim sErrors As String Dim bIsError As Boolean Dim sngSum As Single Dim iI As Long Dim iJ As Long Dim iK As Integer Dim bIntellect As Boolean Dim iInvRow As Long Dim bFound As Boolean Dim bError As Boolean Dim aTM() As String Dim aInvTM() As String Set wbTarget = ThisWorkbook If wbTarget.ActiveSheet.Name <> "ГТД" Then Call MsgBox("Текущий лист не ""ГТД""!", vbCritical, "Проверка соответствия" ;) Exit Sub End If Set shtTarget = wbTarget.ActiveSheet Set shtCountries = wbTarget.Sheets("Страны" ;) Set wbAlkoSez = OpenFile(sAlkoSezPath & sAlkoSezName) Set shtAlkoSez = wbAlkoSez.Sheets("alko_sez" ;) Set shtSource = Nothing For iI = 1 To Workbooks.Count If Workbooks(iI).Name <> wbTarget.Name And Workbooks(iI).Name <> sAlkoSezName Then Set wbSource = Workbooks(iI) Set shtSource = wbSource.ActiveSheet Exit For End If Next If shtSource Is Nothing Then Call MsgBox("Не найден файл с инвойсом!", vbCritical, "Проверка соответствия" ;) Exit Sub End If