Karataev огромное спасибо. Sanja и Вам спасибо. Действительно не знал "Найти - '*' Заменить на - 1". И макрорекодером клас:
Код
Sub Preobr()
Range("B6:H18").Select
Selection.Replace What:="*", Replacement:="1", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub
Здравствуйте еще раз. Последняя просьба. Помогите пожалуйста макросом преобразовать все значения диапазона В6:H18 таблицы в 1 Заранее огромное спасибо Вам.
Здравствуйте уважаемые форумчане. Прошу Вашей помощи. На листе "Imp" в диапазоне А2:А - всякий мусор ({\colortbl ;} и т.п.) и список штрихкодов. Под каждым штрихкодом - количество товаров. К примеру А4 (2202185008743) = 25 Только список штрихкодов без мусора уже формируется макросом на лист "Report" в диапазон А2:А Помогите пожалуйста макросом вытянуть количества данных штрихкодов в диапазон D2:D листа "Report" Заранее огромное спасибо.
Добрый вечер уважаемые форумчане. Обращаюсь к Вам с просьбой к помощи. Есть очень много файлов (более) 50. Сейчас в примере это один Файл_исходник.xlsx Есть один файл. Файл_приемник.xlsx В Файл_приемник.xlsx сходятся прямые ссылки на ячейки Файл_исходник.xlsx Например:
Код
='C:\Documents and Settings\User\Рабочий стол\[Файл_исходник.xlsx]Отчет'!$F$2
К сожалению данные в Файл_приемник.xlsx не обновляются самостоятельно. Обновляются только если открыть Файл_исходник.xlsx Помогите пожалуйста изменить формулу таким образом, чтобы обновление данных в Файл_приемник.xlsx осуществлялось при закрытой книге. Версия Excel 2007 Заранее огромное спасибо.
Добрый день уважаемые форумчане. Помогите пожалуйста исправить формулу =СЧЁТЕСЛИ() или СЧЁТЕСЛИМН() для диапазона J2:J26 листа Main Формулы неверно считают количество значений при условии если в диапазоне формула и нет результата этой формулы (выделено желтым). Результат например в J6 = 1058, а должно быть "". Заранее спасибо.
Добрый вечер уважаемые форумчане. Помогите пожалуйста изменить макрос. Есть макрос который принимая во внимание количество "dd" на листе "База" переносит и нумерует по порядку на листе "Отч" значения диапазона А2:А листа "База". Наше руководство добавило строгий перечень значений "dd" + цифра на еще одном листе "Список" Помогите пожалуйста усовершенствовать макрос для осуществления импорта на лист Отч значений в еще одну колонку (так, как выделено зеленым) учитывая исключения, что в диапазоне А2:А листа "Список". Цена 500 рублей.
Добрый вечер уважаемые форумчане и гуру Excel. Очень извиняюсь за просьбу к помощи. Помогите пожалуйста оптимизировать ежедневную рутинную 1 часовую работу. Есть макрос gling который принимая во внимание количество "dd" на листе "База" переносит и нумерует по порядку на листе "Отч" значения диапазона А2:А листа "База". Наше руководство добавило строгий перечень значений "dd" + цифра на еще одном листе "Список" Помогите пожалуйста усовершенствовать макрос для осуществления импорта на лист Отч значений в еще одну колонку (так, как выделено зеленым) учитывая исключения, что в диапазоне А2:А листа "Список". Данная просьбу помещаю здесь понимая то, что имею малый шанс для помощи. Однако к сожалению, не в состоянии оплатить стоимость (работаю оператором ПК) на портале форума "Работа" О бывшем макросе gling никто на работе из руководства не знал и это помогло немного сохранить зрение (оптимизация времени рутинной работы). Заранее благодарю и извиняюсь.
Сегодня на работе на лист "DS" забросил больше данных (А2:А3400) В таком случае приходится менять все формулы на листе DT в В2:В принимая во внимание четкий диапазон А2:А3400 на листе "DS" Помогите пожалуйста макросом осуществить данную нумерацию на листе DT в В2:В имея в виду, что выходные данные могут быть в диапазоне А2:А на листе "DS" Заранее Вам спасибо.
gling Огромное спасибо. Можно ли на листе DS не использовать дополнительную формулу в диапазоне В:В: (СЧЁТЕСЛИ($A$14:A14;"dd")) ? Можно как-то изменить формулу на листе DT в В2:В таким образом, чтобы не использовать диапазон В:В листа DS ? Огромнейшее спасибо.
Добрый вечер уважаемые форумчане. Очень извиняюсь, но прошу еще Вашей помощи в завершении многострадального файла. На листе "DS" значения штрихкодов. Макросом Юрия М (Karimov) я делаю конвертирования всех штрих кодов на лист "DT" в диапазон А2:А Помогите пожалуйста прописать также еще одно условие импорта: Чтобы при выполнении макроса Karimov далее в диапазон B2:В листа "DT" вносились следующие данные: Начинается на листе "DS" штрих код (13 - 16 цифр) и до конца (конец это - dd ) - импорт на лист листа "DT" значение 1 в диапазон В2:В8 (например) Следующие штрих коды до dd - импорт 2 В9:В17 (например). И так далее. Огромное Вас всем спасибо.
Профессионалы и гуру подскажите пожалуйста еще одну деталь в коде:
Код
If IsNumeric(isx(i, 1)) And Len(isx(i, 1)) = 13 Then
Как изменить данную сроку так, чтобы фильтрованию подлежали не только 13 значные цифры, а от 10 значных до 15 значных? Я предыдущем запросе я не учел, что есть "аномальные" цифры, которые также нужно отследить. Делаю так:
Код
If IsNumeric(isx(i, 1)) And Len(isx(i, 1)) = 10 to 15 Then
Добрый вечер уважаемые форумчане. У меня к Вам еще одна просьба о помощи: Есть макрос осуществляющий импорт значений из книги WES.XLS, листа "DT", диапазона А2:А в прописан в макросе путь ("test.xls").Sheets("DF") Проблема в том, что каждую неделю путь для импорта другой. (книга WES.XLS меняется). Но лист "DF" постоянный. Помогите пожалуйста изменить несколько строк кода для того, чтобы осуществлялся запрос (диалог типа: выберите книгу для импорта) пути для импорта данных. Заранее огромное спасибо.
Код
Private Sub CommandButton1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim iLastRow As Long
Dim iLastRow2 As Long
Dim Sh_OSN As Worksheet
Dim wb As Workbook
Set wb = Workbooks.Open("P:\test.xls")
Set Sh_OSN = Workbooks("test.xls").Sheets("df")
iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
With Sh_OSN
iLastRow2 = .Cells(Rows.Count, 1).End(xlUp).Row '+ 1
Range("A2:A" & iLastRow).Copy
.Cells(iLastRow2, 1).PasteSpecial xlPasteValues
Range("A2:A" & iLastRow).Copy .Cells(iLastRow2, 1) '
Range("A2:A" & iLastRow).ClearContents
End With
wb.Close savechanges:=True
'Call sClear
End Sub
Здравствуйте уважаемые форумчане. Прошу вашей помощи. Есть файл WES.XLS Помогите пожалуйста макросом вырезать из диапазона A2:A листа "DS" на другой лист "DT" в диапазон A2:A только 13 значные цифры без букв. Сейчас на листе "DT" в диапазоне A2:A уже есть готовый результат как должно быть. Заранее огромное Вам спасибо и всех благ.
Добрый вечер уважаемые форумчане. Прошу очень Вашей помощи в решении вопроса отчета план / факт. В колонке В2:В16 - запланированное количество изготовления деталей почасово В колонке С2:С16 -оператор фактически вносит количество изготовленных деталей за час В колонке D2:D16 - % прогреса/регреса запланированно/фактически Помогите пожалуйста прописать формулу в С17 подсчета запланированного количества деталей за целый день таким образом, чтобы записывались последние данные перед пустым значением. Сейчас E8 пустая - значит в С 17 записывается значение E7, если в Е9 будет пустая - в С 17 записывается значение E8 Заранее огромное спасибо.
Здравствуйте форумчане. Очень прошу Вашей помощи. Проблема в следующем: Есть файл Pict1.xlsb В нем три листа.На листе "ОТЧ" - направление движения транспортных средств (например 78207 это Москва - Сургут). На листе "Картинка" - изображения, соответствующие количеству авто: 2 авто - на рисунке 2 авто, 1 - на рисунке 1 авто и т.д. На листе "Rep" - отчет. В ячейке С6 - формула подсчета количества машин для движения. Прошу Вашей помощи в реализации на листе "Rep" в диапазоне приблизительно D5:F7 - ВНЕДРИТЬ("Forms.Image.1";"") и чтобы изображение в данной форме соответствувало показателю в С6. Например в С6 = 2 тогда в Forms.Image.1 - изображение 2 авто; в С6 - 3 В Forms.Image.1 - изображение 3 авто; в С6 - 1 В Forms.Image.1 - -изображение 1 авто. Заранее огромное Вам спасибо. P.S. Форму ActiveX (Forms.Image.1) в файл пример не вставлял так как размер файла превысит 100 кб
Спасибо. Хм. Мистика Если работник оформился на работу 2.01.2016, а предыдущий его стаж составлял 1 год,1 месяц и 5 дней то на сегодня у него стаж 1 год, 3 месяца и 23 дня. По новой формуле получается 1 год,1 месяц и 27 дней. Возможно действительно как-то заменить формулу =РАЗНДАТ на =ЕСЛИ(....) ?
Добрый день уважаемые форумчане. Будьте милостивы и помогите пожалуйста в исправлении формулы подсчета стажа. Суть вопроса: В ячейки I3:I, J3:J, К3:К3 сотрудник вносит предыдущий стаж работы (годы, месяцы, дни) В ячейках L3:М3 я использую формулы для подсчета общего стажа на сегодня с учетом предыдущего стажа и с учетом стажа на предприятии . Но формула считает неправильно. Помогите пожалуйста исправить формулы для правильного подсчета стажа. Я выделил красным неправильный расчет и зеленым правильный (вручную без формулы). Заранее спасибо.
Здравствуйте уважаемые форумчане. Есть вопрос, который сам решить без Вашей помощи никак не удается. В файле в диапазоне В2:B50 - 12 значный штрихкод. Значения кода в В2 вносится вручную. Далее в В3:В50 формула = В2+1 и т.д. (242415701002, 242415701003 ....) Понятно, что при такой формуле значение кода увеличивается на единицу в конце. И это хорошо. Очень прошу Вашей помощи в изменении формулы таким образом, чтобы через цикл в 15 шагов с помощью формулы увеличить на единичку после первых семи цифр (242 415 7 ... ) и стало (242 415 701 001, а потом через 15 - 242 415 702 016, и опять через 15 - 242 415 703 031 Заранее огромное спасибо.