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

Страницы: 1
Вернуть ошибку после проверки условия
 
Добрый день!
Есть две ячейки, А1 и В1. В каждой ячейке может быть одно из трех значений ("нет", "частично", "да" ;) .  Нужно составить формулу, которая сравнит А1 и В1 и если хотя бы одна из них ="нет", то вернуть ошибку, в ином случае отобразить сумму С1 и D1

Под ошибкой понимается не просто текст "Ошибка" а именно ошибки которые обозначаются #Ошибка! или #Знач! или тому подобное.
Не работает группировка строк
 
Добрый день!
Файл во вложении. На вкладке частн. показатели не работает группировка строк (Данные - Группировать)
На других листах все ок, а именно на этом не хочет. В чем проблема может быть?
протянуть формулу по объединенным ячейкам
 
Добрый день!  
Есть лист1 и лист2. В первом листе встроке А идут объеденинные парой ячейки АВ СВ EF... Нужно с листа2 значение ячейки А1 поставить в объедененную ячейку АВ листа1, А2 в СВ и т.д. Так чтоб множно было протягивать потом. А то обычным протягиванием не получается, Пример приложил.
Запуск макроса каждую минуту
 
Добрый день!  
Есть файл эксель с полями (Дата Время Описание) - файл вложен  
 
Нужно чтоб макрос запускался при открытии книги и через определенные промежутки времени, проверял есть ли записи с текущим временем, и если есть, то выдавал сообщение.  
 
Пока дошел только до того чтоб циклом прогнать все записи, выбрать нужные и вывести их через MsgBox.  
Но пораскинул мозгами и появились вопросы:  
1. Записи ведь будут копиться, то есть время для макроса будет расти. Это плохо!  
2. Если делать поиск только по текущему дню,то как тогда организовать это все?  
3. Пробовал ставить интервал в минуту для теста, но тогда если всплывает MsgBox, то пока его не закроешь, то макрос дальше работать не будет. Может есть альтернатива MsgBox?  
 
Последними строками как я понимаю должно быть примерно так? Только в MsgBox будет передаваться переменная со всем текстом  
MsgBox "12.01.2012 12-00 Позвонить Ивану Ивановичу"  
Application.OnTime Now + TimeValue("00:00:10"), "Auto_Open"
Сравнение двух листов с результатом на третий
 
Добрый день!  
Есть лист1 с табличкой с именами (файл для примера прикрепил). На листе 2 такая же таблица, но дополненная. Нужно чтоб новые строки таблицы выносились на третий лист.  
Поиск использовал, но у меня специфичность таблицы в том, что для одного человека может быть несколько строк. В примере есть такие.  
Подскажите как сделать?
Ошибка при поиске значения в другом листе
 
Добрый день!  
Написал макрос. Файл с примером приложил. Буду объяснять по нему.  
Макрос FindEAN. Макросу назначено сочетание клавиш Ctrl+Shift+F  
В листе Прайс-в-XML встаем на первую строчку с наименованием. Сейчас там какой-то текст.  
Нажимаем сочетание клавиш, макрос берет значение из столбца Штрихкод, переходит на лист Товары, ищет в столбце В данное значение и в переменную ESN записывает соответствующее значение из столбца А.  
Но если макрос натыкается на значение которого нет в столбце В листа Товары то вываливает ошибку Run-time error '91': Object variable or With block variable not set  
Нужно чтоб если натыкался на такое значение, то не менял Наименование в листе Прайс-в-XML  
Подскажите где ошибка.  
 
Текст макроса  
 
Sub FindEAN()  
' Макрос записан 26.11.2011  
' Сочетание клавиш: Ctrl+Shift+F  
 Dim mySheetPrice As Worksheet  
 Dim mySheetTovar As Worksheet  
   
 Set mySheetPrice = ActiveWorkbook.Worksheets("Прайс-в-XML")  
 Set mySheetTovar = ActiveWorkbook.Worksheets("Товары")  
   
 curname = ActiveCell.Value  
 curEAN = ActiveCell.Offset(0, 4).Value  
 mySheetTovar.Activate  
 mySheetTovar.Columns("B:B").Select  
 Selection.Find(What:=curEAN, LookIn:= _  
   xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _  
   xlNext, MatchCase:=False, SearchFormat:=False).Activate  
 ESN = ActiveCell.Offset(0, -1).Value  
 mySheetPrice.Activate  
 If ESN <> "" Then ActiveCell.Value = ESN  
 ActiveCell.Offset(1, 0).Activate  
End Sub  
 
<EM><STRONG>Файл удален</STRONG> - велик размер - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>
Перенос строки в ячейке
 
Добрый день!  
Столкнулся с проблемой, есть список, в котором значение в ячейке разбито как будто знаком конца строки. То есть в ячейке вот так написано  
 
Наклейки самоклеющиеся витражные 30x38  
Новогодние A06023,06025 49127 J.Otten  
 
Нужно как то сделать чтоб было все в одну строку  
Наклейки самоклеющиеся витражные 30x38 Новогодние A06023,06025 49127 J.Otten  
 
Пробовал нажать кнопку Перенос строки на панели инструментов, но тогда в ячейке получается  
Наклейки самоклеющиеся витражные 30x38Новогодние A06023,06025 49127 J.Otten  
А в строке ввода вообще все без изменений.  
 
Файл с примером как есть и как должно быть прикрепил. Подскажите как быть. Вручную не вариант так как список огромный.
Замена текста в другом файле по результату поиска
 
Добрый день!  
Стоит такая задача. Есть файл Price.xls в котором список книг с кодом, наименованием, код EAN и краткое наименование. В нем будет список всех книг которые были, список будет пополняться.  
Еще есть файл List1.xls, который представляет собой накладную.    
Нужно Наименование из List1.xls заменить кратким наименованием из Price.xls если поля EAN у них совпадают.  
Я так понимаю надо в файле Price.xls брать значение поля EAN, искать такое же значение в файле List1.xls и делать соответствующую замену.  
Подскажите код, или ткните в тему где подобное разбиралось.
Подсветка строк
 
Здравствуйте! Подскажите как в таблице закрасить каждую вторую строку? В таблице время от времени добавляются или удаляются строки. Поэтому раскраска вручную приводит к тому что после изменения могут идти несколько строк одинаково раскрашенных или нет. может макрос какой или еще что посоветуете?
Страницы: 1
Loading...