Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
При слиянии данных с помощью ВПР ошибка. Почему?
 
Не получается сделать слияние таблиц: из второго листа присоединить к первому по полю Наименование. Пишет ошибка. Прикрепил пример прям с ошибкой.
Если вставляю формулу ниже на Лист1 в E2 то пишет Ошибка
Код
=ВПР($A2;'Лист2'!$A$2:$B$6;2;FALSE)
Изменено: ole-van-de - 18.12.2019 11:30:22
Кнопки назад и вперед не работают с макросом
 
Добрый день.

шайтанама. Только сегодня узнал об этом. Так что делать?)
Может есть способ пусть еще макрос повесить, что бы он 5 операций запоминал например?
Выделеная ячейка другим цветом
 
Не могу понять где ошибка. Использую такую функцию - окрашивать выделенную ячейку желтым цветом. Смысл в том, что бы при уходе с выделенной ячейки оставался тот же первоначальный цвет ячейки, который был. Но всё стирается.
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Static rngcolor As Range
    If Not rngcolor Is Nothing Then rngcolor.Interior.ColorIndex = xlNone
    Set rngcolor = Target
    rngcolor.Interior.Color = vbYellow
End Sub
Изменено: ole-van-de - 05.10.2019 16:47:21
Как взять значение ширины столбца
 
Добрый день. Использую такую функцию, которая вставляется на Лист. Функция отслеживает положение курсора, когда выделенная ячейка всегда окрашивается в желтый цвет, а при переходе на другую ячейку, цвет ячейки возвращается обратно (что бы не испортить форматирование). Такой же финт хочу проделать с шириной столбца, то есть там где выделенная ячейка, ширина столбца увеличивается до 25 или до AutoiFit, но при переходе на другой столбец ширина поля должна вернуться обратно. Я не могу записать в переменную ширину столбца, пробовал такие варианты:
Код
Then rngDEwidh.Columns.ColumnWidth = rngDEwidh.Columns.ColumnWidth
Then rngDEwidh.Columns.ColumnWidth = xlNone
Then rngDEwidh.Columns.ColumnWidth = ActiveCell.width
-не работает

Ну а вот вся функция
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Static rngcolor As Range
    If Not rngcolor Is Nothing Then rngcolor.Interior.ColorIndex = xlNone
    Set rngcolor = Target
    rngcolor.Interior.Color = vbYellow

    Static rngDEwidh As Range
    If Not rngDEwidh Is Nothing Then rngDEwidh.Columns.ColumnWidth = rngDEwidh.Columns.ColumnWidth
    Set rngDEwidh = Target
    rngDEwidh.Columns.ColumnWidth = 25
End Sub
Изменено: ole-van-de - 29.09.2019 09:45:38
Формула копирует текст с ячейки и склеивает все слова в одну строку без пробелов
 
Доброго дня. У меня есть ячейка A1 с текстом (строками) внутри:
Строка1
Строка2
Строка3

Когда использую формулу для B1 (=A1), то всё склеивается в одну строку Строка1Строка2Строка3

А как можно вставлять, допустим, пробелы между строками?
Изменено: ole-van-de - 24.09.2019 11:02:26
Скопировать данные с одного листа на другой если несколько условий
 
Доброго дня. Есть vba который копирует данные с одного листа на другой если в поле E2 есть некая строка (слово). А как использовать несколько условий в поле E? то есть любое из слов в E2:E10. Если указываю диапазон то ошибка.  Если просто E2 то всё работает.

Нерабочий вариант
Код
If InStr(Sheets("Лист1").Cells(i, "F"), Sheets("Формулы").Range("E2:E10")) <> 0 Then  

А вот рабочий вариант

Код
If InStr(Sheets("Лист1").Cells(i, "F"), Sheets("Формулы").Range("E2")) <> 0 Then
Изменено: ole-van-de - 16.09.2019 18:02:07
Как скопировать данные с одного листа на другой на основании данных в столбце
 
Код
НаименованиеЦенаКоличество Яблоки160р10кгГруши190р18кгВиногшрад210р15кг

Как скопировать данные с одного листа на другой на основании данных в столбце (то есть где попадаются яблоки). Есть формула, но не работает хоть ты тресни:

=filter(Лист1!A:C;Лист1!A:A="Яблоки")  

Причем я так понял формулу надо вставлять в ячейку A2 второго листа. или нет. Всё время ругается на Имя. Имя ему не нравится.

Так же нашел макро, выложил какой то индус и тоже ни не работает:

Sub Copy_Criteria ()
Dim i, LastRow
LastRow = Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row
Sheets("Sheet2").Range("A2:I500").ClearContents
For i = 2 To LastRow
If Sheets("Sheet1").Cells(i, "E").Value = "" Then
Sheets("Sheet1").Cells(i, "E").EntireRow.Copy Destination:=Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1)
End If
Next i
End Sub
Изменено: ole-van-de - 15.09.2019 18:00:27
Как в текстовом фильтре два раза указать текст содержит
 
То есть всё просто. Мне надо найти все ряды, если колонка содержит 10.77.104 или 10.77.105
Но вижу, что можно указать только один раз "Текст содержит"
Пока не нашел ответа, искал 10 минут, тратить на эту ерунду час не вижу смысла лучше спросить. В обычных языках это решается через & или чере Или OR и т.п.  
Как импортировать множество файлов CSV в один Excel файл
 
Кто нибудь может предложить вариант макро, который объединит множество файлов CSV в один Excel файл на один лист? Все CSV абсолютно одинаковы, находятся в одной папке с книгой Excel, то есть открыл книгу Excel запустил функцию (либо кнопку) и он без вопросов объединил все файлы csv в один лист. Лучше, что б и функцию запускать не надо было, просто открыл книгу. Спасибо :)
(если надо скину пример файлов csv)
Изменено: ole-van-de - 09.09.2019 13:07:54
Как диагностировать ошибки в Excel ?
 
Почему Excel всё время ругается на формулы, которые предлагают гуру интернета!!! Excel 2013/2016
Excel не говорит что за ошибки. уже бы двадцать пять раз всё сделал.

В чем ошибка здесь???* естеств всё переводил и на русский язык (хотя смысл), проверял каждый блок отдельно, как только вводишь весь блок - ошибка.
Код
=OR(ISNUMBER(FIND("apple",A1)),ISNUMBER(FIND("berry",A1)),ISNUMBER(FIND("red",A1)))

В чем ошибка здесь???
Код
=SUMPRODUCT(ISNUMBER(SEARCH($A$1:$A$96,B1))*($A$1:$A$96<>""))>0

Нигде больше не видел таких косяков, а разбираться где заложили ошибку порой времени нет. Примеры взяты с самых разных источников интернета, как только вставляешь в формулу - ошибка, уже миллион раз замечал такую вещь у Excel. У меня конкретно претензия к продукту Excel. В Powershell например не встретишь функции или скрипты, предложенные для решения, которые не работают как и в др языках программирования.  
Изменено: ole-van-de - 01.09.2019 22:05:49
Условное форматирование подсветка строки на основании слов по шаблону
 
Кто может подсказать, желательно уже с готовым вариантом, потому как бьюсь весь день. На Листе 1 есть таблица от A до E. Если в поле Е находится искомое слово, то подкрашивается вся строка. Я реализовал это через обычное усл форматирование: Выделяем весь лист и далее усл форматирование =ПОИСК("word1"; $E1). Но мне нужно ИЛИ, то есть или word1 или Word2 или Word3 и тогда подкрашивается вся строка. И что бы шаблон слов был на втором листе, то есть ПОИСК должен ссылаться на диапазон я так понимаю. Вот и всё.  
Страницы: 1
Loading...