Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » airfox
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1 2 3 След.
Разбить содержимое ячейки через запятую по вертикали
 
#
01.11.2018 22:54:11
Ребят огромное человеческое спасибо, Вы лучшие
 
Перейти    
Разбить содержимое ячейки через запятую по вертикали
 
#
01.11.2018 22:14:42
Здравствуйте, помогите с решение следующей проблемы, нужно разбить содержимое ячейки через запятую по вертикали.
Более подробно попытался показать в файле. Заранее спасибо за помощь.
Изменено: airfox - 01.11.2018 22:21:40
 
Перейти    
Заменить список аналогов лишь одним, но так что бы связи не разорвались
 
#
20.10.2018 23:07:50
спасибо, буду пробовать, на счет ошибки, у меня там не полное совпадение нет "0" в начале, исправил и все отработало по вашей формуле
 
Перейти    
Заменить список аналогов лишь одним, но так что бы связи не разорвались
 
#
20.10.2018 22:19:16
Вот пример
 
Перейти    
Заменить список аналогов лишь одним, но так что бы связи не разорвались
 
#
20.10.2018 19:44:57
Здравствуйте, самостоятельно не смог решить вопрос, поэтому ищу помощи
Есть таблица:
ТоварыАналоги
11a 333,11a,222,333
222 222
33311a
444 555
Нужно привести к виду
ТоварыАналоги
11a11a
22211a
33311a
444555
Заменить список аналогов лишь одним, но так что бы связи не разорвались.
Заранее спасибо за помощь
Изменено: airfox - 21.10.2018 15:00:38
 
Перейти    
[ Закрыто] ВПР не подходит
 
#
04.10.2016 12:40:38
Сделал еще один пример, для большей ясности
 
Перейти    
[ Закрыто] ВПР не подходит
 
#
04.10.2016 12:25:14
есть две таблицы, в каждой таблице есть значения типа d1,d2 это название чертежа,
нужны данные из первой таблицы столбца "Выноски на рисунке" подставить во вторую таблицу,
с таким условием что, если цифра нет во второй таблице на против требуемого чертежа, убрать ее из итоговой таблицы

смысл какой есть 4-ре чертежа, 1,2,3 подходит для модели M1; 1,2,4 для модели M2;
Для каждого чертежа нужной модели имеется своя не всегда одинаковая спецификация, более того иногда данные для чертежа, разнятся с спецификацией и нужно удалить не нужные данные на чертеже требуемой модели  
Изменено: airfox - 04.10.2016 12:30:32
 
Перейти    
[ Закрыто] ВПР не подходит
 
#
04.10.2016 12:04:08
спасибо учту ;)

по сути я понимаю что нужно отфильтровать значения из первого диапазона (Чертеж;Выноска на рисунке)  используя как аргумент значение из столбца "Чертеж" второго диапазона, но как это сделать формулой, тут у меня вопрос.  
Изменено: airfox - 04.10.2016 12:09:51
 
Перейти    
[ Закрыто] ВПР не подходит
 
#
04.10.2016 11:58:07
Проблема в следующем есть два диапазона данных c повторяющимися значениями в одном из столбцов, нужно извлечь данные из одного столбца диапазона на против повторяющихся ячеек и вставить в другой диапазон  на против тех же ячеек, но проблема в том, что повторяющиеся ячейки не уникальны в столбце каждого диапазона и данные на против них нужны все. Более подробно в файле примере.

Заранее благодарю за совет в решение проблемы.
 
Перейти    
Отзывы о работодателях и исполнителях, Посмотрите, прежде чем взять/предложить работу
 
#
29.01.2016 14:39:24
Заказывал работу у Михаил С.. Очень быстро понял суть задачи, выполнил работу раньше намеченного и в полном объеме, за приемлемую цену. Рекомендую всем.
 
Перейти    
Нумерация, основанная на другой нумерации и столбце с именами
 
#
28.01.2016 12:53:09
в mod2 опечатка в примере 21 строка.. сорри Screw 3, уже исправил в файле примера

есть
Screw = 13 уже задано в mod1, mod3, mod2
Screw 2 = 14 уже задано в mod1
Screw 3 =  пусто
Screw 4 =  пусто
Кто из Screw 3 или Screw 4 получит какой номер не важно главное что бы он шел следом за теми которые уже использовались, в draw1 последний номер 14, значит 15 и другой 16
Изменено: airfox - 28.01.2016 12:53:37
 
Перейти    
Нумерация, основанная на другой нумерации и столбце с именами
 
#
28.01.2016 12:18:41
ап
Изменено: airfox - 28.01.2016 13:14:48
 
Перейти    
Нумерация, основанная на другой нумерации и столбце с именами
 
#
28.01.2016 11:37:30
Здравствуйте, форумчане.

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

Есть 6 столбцов, на основании которых должна формироваться нумерация: Номер; Название детали; Модель; Чертеж; Группа; Артикул
Начнем с модели: комплектации одного автомобиля(ей)
Чертеж: имя чертежа у всех "Моделей" одинаковые
Название детали: просто название, в большинстве случаев для каждого "Номера" одинаковые, но есть строки в которых названия разные но "Номера" одинаковые( вызваны ошибками написания, или так задумано производителем)
Группа: имена "Чертежей" могут быть одинаковыми, но в реальности сами рисунки чертежей разные для это использую группы (отдельная история как сравниваю чертежи, марока еще та)
Артикул: это поле для всех разное, обработки не подлежит, в примере будет пустым, но при сортировке должны перемещаться также.
Последнее "Номер" это то поле которое нужно исправить так как оно имеет пропуски, самих ошибок там где они есть нет, но есть пропуски там где детали повторяются или просто их забыли поставить.

Пробовал уже кучу формул, но когда встречается разные "Названия деталей" с в "Моделях" в одной допустим заполненное полностью, а в двух остальных или есть номера или вообще не проставлены, возникает ошибки в нумерации.

Стоимость и сроки в личку.
Изменено: airfox - 28.01.2016 13:14:23
 
Перейти    
Спецсимволы замена макросом
 
#
27.01.2016 17:38:10
ух ты я так да же и желать не мог... спс Андрей VG,
 
Перейти    
Спецсимволы замена макросом
 
#
27.01.2016 16:22:43
Имею огромную таблицу взятую из html, как следствие куча спецсимволов, которые требуется заменить, через "Найти и заменить" делать это в куче книг как то не радует...

Если способ при помощи макроса делать замену, почитал статьи через "~символ" не получается, "~код знака"  или просто код знака, тоже не получилось.. дайте ссылку или расскажите как это можно сделать.
Файл пример прилагаю
Изменено: airfox - 27.01.2016 16:23:22
 
Перейти    
VBA переменная в формуле "Сцепить"
 
#
25.01.2016 18:42:58
Код
Range("O2").FormulaR1C1 = _
         "=CONCATENATE(""<div class=""""draw-image""""><img src=""""/sites/default/files/images/draw-catalog-images/"," & Marka & ","/",RC[-2],"".jpg""""></div>"")"

Хочу добавить переменную "Marka", получаю ошибку, подскажите как правильно объявлять переменные в формулах.... а то я с гуглом ни как совладать не могу, все не то показывает....
изначально формула была такой
Код
"=CONCATENATE(""<div class=""""draw-image""""><img src=""""/sites/default/files/images/draw-catalog-images/"",RC[-2],"".jpg""""></div>"")"

мне нужно вставить переменную, а она туда не лезет... проклятая и я ....

Дотопал до
Код
=CONCATENATE(""<div class=""""draw-image""""><img src=""""/sites/default/files/images/draw-catalog-images/""," & [Marka] & ",RC[-2],"".jpg""""></div>"")"

уже лучше но переменная это текст который требуется обернуть в кавычки запара...., думаем дальше
Код
"=CONCATENATE(""<div class=""""draw-image""""><img src=""""/sites/default/files/images/draw-catalog-images/""," & Chr(34) & "" & [Marka] & "" & Chr(34) & ",""/"",RC[-2],"".jpg""""></div>"")"

справился самостоятельно извините, за лишние вопросы, может пригодиться кому
Изменено: airfox - 26.01.2016 01:41:14
 
Перейти    
Copy Лист1 в Лист3 в 1-ю пустую ячейку
 
#
24.01.2016 18:58:08
Спасибо большое 10 минут назад дошло самому, тестил..... решил отписать, за одно и проверил  с Вашим результатом
 
Перейти    
Copy Лист1 в Лист3 в 1-ю пустую ячейку
 
#
24.01.2016 18:32:28
Sanja,  цикл не работает, а если пытаюсь применить
Код
.Range("A1") = "Шапка1"

к примеру Kuzmich, то допол-е условие по содержимому A1 не срабатывает... почему?
Изменено: airfox - 24.01.2016 18:32:58
 
Перейти    
Copy Лист1 в Лист3 в 1-ю пустую ячейку
 
#
24.01.2016 17:54:19
сорри, как вытекающее получилось, за одно спасибо ребятам и в циклы по тихоньку вникать начинаю
 
Перейти    
Copy Лист1 в Лист3 в 1-ю пустую ячейку
 
#
24.01.2016 17:42:08
Начал читать про циклы, а сразу можно вопрос, есть ли возможность перебирать листы пока, какая-нибудь ячейка допустим "A1" = "Шапка1", выполняем копирование, если нет прекращаем цикл?
 
Перейти    
Copy Лист1 в Лист3 в 1-ю пустую ячейку
 
#
24.01.2016 17:30:05
а не расскажите как это циклом по нескольким листам?
у меня будет каждый раз новая подборка листов в книге мне это интересно...
 
Перейти    
Copy Лист1 в Лист3 в 1-ю пустую ячейку
 
#
24.01.2016 17:12:58
Казанский,  Cпс Вам за помощь, знал что где то близок... Kuzmich, Сейчас посмотрю как это работает..., по размеру кода больше, не подскажите когда такую связку лучше всего использовать? или она не чем не отличается от примераКазанский,
 
Перейти    
Copy Лист1 в Лист3 в 1-ю пустую ячейку
 
#
24.01.2016 17:03:07
натолкните где ошибся, я уже сделал через промежуточный диапазон , но хочу понять как именно сразу копировать
Изменено: airfox - 24.01.2016 17:05:19
 
Перейти    
Copy Лист1 в Лист3 в 1-ю пустую ячейку
 
#
24.01.2016 16:50:28
Код
'Требуется сделать копирование с Лист1 и Лист2 двух столбцов A2:B(последняя заполненная ячейка)
   'на Лист3 и вставкой с 1-й пустой ячейки столбца "A" друг за другом 
    
   
    Sheets("Лист3").Select
    Sheets("Лист1").Range("A2:B" & Cells(Rows.Count, 1).End(xlUp).Row).Copy _
        Cells(Rows.Count, 1).End(xlUp).Offset(1)
        
    Sheets("Лист2").Range("A2:B" & Cells(Rows.Count, 1).End(xlUp).Row).Copy _
        Cells(Rows.Count, 1).End(xlUp).Offset(1)
Изменено: airfox - 24.01.2016 17:03:49
 
Перейти    
Переменные внутри диапазона фильтра VBA
 
#
24.01.2016 10:57:31
Переделал под задачи формулы, но кажется что можно проще...

Код
Sub s7()
    Dim rng As Range, Myrng As Range
      
    Application.ScreenUpdating = False
    On Error GoTo errHandler
    With ActiveSheet
        .Columns("A:F").AutoFilter Field:=3, Criteria1:="#N/A"
        With .AutoFilter.Range
            Set rng = .Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible)
            Set Myrng = .Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible)
        End With
        Set rng = Intersect(rng, .Columns("E:E"))
        rng.ClearContents
        Set Myrng = Intersect(rng, .Columns("E:E"))
        Myrng.ClearContents
        With rng(1)
            .FormulaR1C1 = "=IF(RC[1]=1,RC[1],IF(RC[1]<>R[-1]C[1],R[-1]C+1,R[-1]C))"
            .AutoFill Destination:=rng, Type:=xlFillDefault
        End With
            Range("E2:E" & Rows.Count).SpecialCells(xlCellTypeVisible)(1).Select
            ActiveCell.FormulaR1C1 = "1"
        With Myrng(1)
            Myrng.Copy
            Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        End With
        Selection.AutoFilter
    End With
    Application.ScreenUpdating = True
    Exit Sub
errHandler:
    Application.ScreenUpdating = True
    MsgBox "Oops! Something went wrong :("
    
End Sub
 
Перейти    
Переменные внутри диапазона фильтра VBA
 
#
24.01.2016 02:39:21
Вот файл
 
Перейти    
Переменные внутри диапазона фильтра VBA
 
#
24.01.2016 00:46:13
чего не пробую, так и не работает....
Изменено: airfox - 24.01.2016 00:54:09
 
Перейти    
Переменные внутри диапазона фильтра VBA
 
#
24.01.2016 00:37:59
Чет я намудрил а где не пойму

Код
Sub primer2()
'
' primer Ìàêðîñ
'

'
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$F$" & Cells(Rows.Count, 2).End(xlUp).Row).AutoFilter Field:=3, Criteria1:="#N/A"
    Columns("E:E").Select
    
    Range("E2:E" & Rows.Count).SpecialCells(xlCellTypeVisible)(1).Select
    ActiveCell.FormulaR1C1 = "Formula"
    
    'Растянуть формулу в отфильтрованном диапазоне начиная с 2 ячейки
    
    'Selection.AutoFill Destination:=Range(?????????????????????? не могу подобрать...
End Sub
хочу в отфильтрованный диапазоне 5 столбца начиная со 2 ячейки растянуть формулу..... пока не клеится... пинайте
Изменено: airfox - 24.01.2016 03:10:19
 
Перейти    
Узнать адрес ячейки после применения фильтра
 
#
23.01.2016 23:45:50
Код
Range("A2:A" & Rows.Count).SpecialCells(xlCellTypeVisible)(1).Select


спс за пинок
 
Перейти    
Узнать адрес ячейки после применения фильтра
 
#
23.01.2016 23:28:03
Ни как ни найду примера... расскажите как можно узнать после применения фильтра 1 ячейку столбца "А" после названий фильтра?
Код
Sub Макрос15()
    
    Columns("A:F").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$F$" & Cells(Rows.Count, 2).End(xlUp).Row).AutoFilter Field:=3, Criteria1:="#N/A"

End Sub
 
Перейти    
Страницы: 1 2 3 След.
Наверх