Привет. Задача - Из файла BASE подтянуть данные по связке КОД+Поставщик в файла ШАБЛОН Файл BASE находится на общем диске, путь - P:\Отдел закупок\КУ\ПР\REF Файл ШАБЛОН - находится у пользователя на рабочем столе и макрос запускаться должен из него.
Процедура - Я открываю файл ШАБЛОН, заполняю синие поля ( номер поставщика и КОДЫ ). Нажимаю кнопку макроса. Макрос обращается к файлу BASE****.xlsb , открывает в режиме просмотра, находит правильную связку по КОД+Поставщик и "тянет" как ВПР данные в нужные столбцы ( желтый цвет ). После чего файл BASE закрывается без сохранения, а в ШАБЛОН блокируются ЯЧЕЙКИ, куда "подтянули" данные ( там, где желтый цвет ).
500р. Прошу выслать сразу решение. Деньги переводу сразу.
я написал ему в личку, он был вчера, но не ответил
Цитата
Malkov111123: Михаил получил деньги , обещал доделать и пропал
он бы точно так не сделал — один из местных старожилов, кто дорожит своей репутацией. Может расскажете свою версию событий (полную), пока он не отвечает? Что случилось?
Цитата
Апострофф: сразу говорите, что задачка ваша растиражирована по интернету
в правилах (основных, а не про Работу) сказано, что о кроссах нужно предупреждать. Для платной ветки это особенно важно — сидишь, делаешь, а деньги уходят другому, а ты остаёшься в дураках. Вроде и задачу выполнил и денег не получил. Хорошо, что я отказался - там за 500 рублей, походу, нешуточная борьба идёт
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
Я тоже писал ему после обращения заказчика. И видел вчера Михаила на сайте. Если и приболел, то на письмо мог ответить, если нашлись силы и время зайти на сайт. Подозрительно всё это...
Jack Famous написал: он бы точно так не сделал — один из местных старожилов, кто дорожит своей репутацией. Может расскажете свою версию событий (полную), пока он не отвечает? Что случилось?
Михаил давно еще попросил у меня 1000 рублей с сообщением - что нет денег на еду. Я ему переел деньги просто так. Договорились, что когда-то мне сделает макрос. После выполнения этой работы ( при том, что очень грязно было сделано ), я еще отправил 500 т.е. 1500рублей.
Цитата
Jack Famous написал: в правилах (основных, а не про Работу) сказано, что о кроссах нужно предупреждать. Для платной ветки это особенно важно — сидишь, делаешь, а деньги уходят другому, а ты остаёшься в дураках. Вроде и задачу выполнил и денег не получил. Хорошо, что я отказался - там за 500 рублей, походу, нешуточная борьба идёт
Тебе я предлагал после того, как Миша пропал. Он сам подтвердил, что доделает правки и пропал. Все переписки есть.
Malkov111123: Михаил давно еще попросил у меня 1000 рублей с сообщением - что нет денег на еду
блин - жесть какая-то…
Цитата
Malkov111123: Тебе я предлагал после того, как Миша пропал
вы упорно продолжаете "тыкать", не понимая, что это просто невоспитанность, а не современные тенденции… Я вам про то, что вы разместили работу на других ресурсах и не указали этого, а не то, что мы с Михаилом вместе делали Если работа им не была доделана, то я готов закончить бесплатно. Пришлите переписку и что успели сделать
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
OFF но по существу Malkov111123, Михаил пожилой человек, и как замечено, случится может что-то с каждым, в недалеком прошлом он просто попал в больниц со сломанной ногой, это не оправдывает , но поясняет отсутствие, а вот то что он на форуме появляется - это просто комп может быть не выключен. Проводник живет своей жизнью. ПО поводу
к несчастью скорее всего что правда, одинокому на пенсию скромную жить не просто, и то что был аванс - это не попытка обогатится. Так что советую принять предложение Jack Famous. В любом случае, думаю мы все поможем, чем кто может.
Апострофф: сразу говорите, что задачка ваша растиражированна по интернету
вы не отрицали Теперь уже неважно - вышлите его наработки и укажите, что нужно дополнить
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
Всем добрый день! А адрес есть Михаила Витальевича? Можно попробовать в волонтерские центры позвонить - попросить чтобы проверили, объяснить ситуацию...
Option Explicit
'===========================================================================================
Sub FillFromBase()
Dim dicIn As New Dictionary, dicOut As New Dictionary
Dim x, arr, arrIn, arrPos(4)
Dim txt$, r&, c&, lr&, t!
t = Timer
txt = Range("B2").Value2: If Len(txt) = 0 Then Exit Sub
lr = Cells(Rows.Count, 3).End(xlUp).Row: If lr < 3 Then Exit Sub
arrIn = Range("C3:C" & lr).Value2
For Each x In arrIn
If Len(x) Then x = dicIn(x & txt)
Next x
If dicIn.Count < 1 Then Exit Sub
Application.ScreenUpdating = False
'Workbooks.Open "C:\ТЗ\Base ea 07.05.2020.xlsb"
Workbooks.Open "P:\Отдел закупок\КУ\ПР\REF\Base ea 07.05.2020.xlsb"
arr = Range("A2:K" & Cells(Rows.Count, 2).End(xlUp).Row).Value2
ActiveWorkbook.Close False
For r = 1 To UBound(arr, 1)
If dicIn.Exists(arr(r, 1) & arr(r, 2)) Then
If Not dicOut.Exists(arr(r, 1) & arr(r, 2)) Then
arrPos(0) = arr(r, 8)
arrPos(1) = arr(r, 7)
arrPos(2) = arr(r, 6)
arrPos(4) = arr(r, 11)
dicOut(arr(r, 1) & arr(r, 2)) = arrPos
End If
End If
Next r
dicIn.RemoveAll
ReDim arr(1 To UBound(arrIn, 1), 1 To 5)
For r = 1 To UBound(arr, 1)
x = dicOut(arrIn(r, 1) & txt)
If IsArray(x) Then
For c = 1 To 5
arr(r, c) = x(c - 1)
Next c
End If
Next r
ActiveSheet.Unprotect Password:="MalkovPlanetaExcel"
Cells.Locked = False
Range("E3:I" & Cells.SpecialCells(xlLastCell).Row).ClearContents
Range("E3:I" & lr).Value2 = arr
Application.Union(Range("E3:G" & lr), Range("I3:I" & lr)).Locked = True
ActiveSheet.Protect Password:="MalkovPlanetaExcel", UserInterfaceOnly:=True, DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
Application.ScreenUpdating = True
MsgBox "ГОТОВО", vbInformation, Format$(Timer - t, "0.00 сек")
End Sub
'===========================================================================================
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄