MCH,
Спасибо, рассчитывал, что есть комбинация, при которой до копеек можно высчитать.
Видимо нет такого варианта.

Большое спасибо за предоставленные варианты.

Спасибо за предложенный вариант. В ручную удалось подобрать с погрешностью в 1,05$
Думал машинным методом возможно в копейках сравняться.

Великие умы планеты эксель, где же вы? =)

Добрый день.
Огромная просьба помочь с подбором цены в столбце А, чтобы получить итоговую цену 27892,49.
Цена штуки не может иметь больше двух знаков после запятой. И не может быть меньше указанной в соседнем столбце. В идеале максимально приближенная к существующей, указанной.

Руками подобрать не удаётся без увеличения знаменателя.
Возможно есть какой-то вариант?

Расширенный фильтр использую сейчас, но иногда неудобно при переносе, и протягивании формул.
А вот подсказанное КИТИН-ом это именно то, что нужно.
Ещё бы формулу научиться не отображать там, где небыло информации в перой таблице. Чтобы небыло :

#ЧИСЛО!

#ЧИСЛО!

#ЧИСЛО!

#ЧИСЛО!

#ЧИСЛО!

#ЧИСЛО!

#ЧИСЛО!

#ЧИСЛО!

Добрый день.
Подскажите как реализовать без макроса.
Задача перенести данные из таблицы, находящейся на листе 1 в таблицу на листе 2.
В таблице 1 столбцы 1 и 2 заполнены так, что если заполнен столбец1, то столбец2 обязательно пустой.
В таблицу 2 нужно перенести значения столбца 2 из табл1 последовательно, исключая строки, в которых заполнен столбец1.

Спасибо!

К сожалению, данный способ мне не подходит, нельзя изменять строки, добавлять новые и т.д., + в некоторые наименования необходимо вписывать количество, а в некоторые нет. Крокодильчиков нужно подсчитать, а вот зайчиков нет.

Итак, на данном этапе решение для меня вообще неясно.
Прикрепил документ, там уже готовый вариант, в котором всё сделано руками.

Необходимо, чтобы макрос посмотрел на столбец Наименование, если Крокодильчик, то суммировал все количества крокодильчиков и в первую строку крокодильчиков вписал сумму по всем крокодильчикам.

Заранее огромное спасибо!

Всем огромное спасибо за терпение!! Всё получилось, настроил, заработало!

Так ведь в противном случае нужно цикл для каждой формулы строить.. Да и удобно с рс на первый взгляд.

Ой ребята, очень извиняюсь...
Долго пытался въехать, что же непонятного, 5 раз перечитал, потом понял, что сам херню сморозил, башка не соображала к вечеру... Вообще не понимаю как Вы поняли, что я хочу! =)))

Нужен макрос.
Если а1=55, то b1=c1*d1, а e1=d1*f1, и так проверить 10 строк.

For i=1 to 10 step 1
If Cells(i,1).Value="55" Then
Cells RC[1]=RC[2]*RC[3]
....

End If
Next i


Понимаю, что ахинея в строке Cells RC[1]=RC[2]*RC[3] написана. Нужно именно через вид RC. Вот как это макросовским языком написать?
Заранее премного благодарен.


Речь идёт именно о строках, тоесть проверяется а1, а действия нужно производить в это строке... А по первому условию фигня какая-то! =))

Всё верно.. Изначально проверяется ячейка а1 на равенство 55, и если это верно, то происходт перемножение 2-х других ячеех в этой же строке, точнее 4-х.
Дальше проверяется ячейка а2 на равенство 55, если не равно, то сразу к а 3, и т.д.

И снова здравствуйте!

Вопрос. Нужен макрос.
Если а1=55, то а2=а3*а4, а а6=а8*а9, и так проверить 10 строк.

For i=1 to 10 step 1
If Cells(i,1).Value="55" Then
Cells RC[1]=RC[2]*RC[3]
....

End If
Next i


Понимаю, что ахинея в строке Cells RC[1]=RC[2]*RC[3] написана. Нужно именно через вид RC. Вот как это макросовским языком написать?
Заранее премного благодарен.

Всем спасибо! Со всеми проблемами справился!

О чудо, действительно всё заработало!
Вот только один момент. Очищается как значение в ячейке, так и закрашенные границы. Возможно ли оставить закрашенные границы? Таблица разлинована.

Подправил! Вот только про "запятая" не соображу,
Ведь у вас после "Rows(i).Delete" запятых нет.
Ну и не работает! После запуска выскакивает окошко..
Run-time error 13.
Кстати, что оно означает? =)

На основании изученного сделал ещё один макрос. Проверьте пожалуйста, что-то не работает!

Задача в столбце f или 6 очистить ячейку, если в ней присутствует слово снеговик или марковка.
Какие синтаксические ошибки я допустил? Спасибо!

А у меня в таком виде макрос не запускается.. =(
С исправлением от Hugo.
Видимо заголовок какой-то должен быть.

if cells(i,1).value ="" then    - горит красным.

Уж простите, новичок совсем.

Если а10 - пусто, то удалить строку 10
перейти в а11, если а11 пусто, то удалить строку 11
а вот если а10 и а11 не пусто, то ничего не делать, а просто проверять следующее
И так до а700


Опишите это на языке макроса пожалуйста. Заранее огромное спасибо!

{quote}{login=sva}{date=12.11.2012 12:04}{thema=}{post}Так?  
Sub f()  
 
ActiveSheet.Range("$B$8:$G$28").AutoFilter Field:=3, Criteria1:=Array("207" _  
, "208", "209"), Operator:=xlFilterValues  
Range("G9:G" & Cells(Rows.Count, 3).End(xlUp).Row).SpecialCells(xlCellTypeVisible).FormulaR1C1 = "=RC[-2]*RC[-1]"
 
End Sub{/post}{/quote}  
 
Ваш макрос оказался для меня самым понятным, всё подправил под себя!Вот только он изменяет все размеры ячеек и приводит их к стандартным, возможно сделать так, чтобы он этого не делал?

Вот выдержка из макроса.  
Сначала отображаются нужные артикулы, потом с ними производятся действия.  
В следующей таблице эти артикулы могут находится на других строчках.  
ActiveSheet.Range("$B$8:$G$28").AutoFilter Field:=3, Criteria1:=Array("207" _  
       , "208", "209"), Operator:=xlFilterValues  
     
   ActiveCell.FormulaR1C1 = "=RC[-2]*RC[-1]"
   Range("G15").Select  
   Selection.FillDown

Да, спасибо, всё отлично заработало!

Добрый день.  
Посоветуйте, есть примитивный макрос, который перемножает 2 столбика.    
Так вот перед запуском этого столбика предыдущий макрос скрывает некоторые строки, и мне нужно, чтобы перемножились только те ячейки в строках, которые на данный момент отфильтрованы(видны на экране) с первой по последнюю.  
Но каждый раз верхняя ячейка имеет разное имя, то она 10, то 25.. Как быть?

Вопрос в теме.  
Обладаю довольно большим макросом(набором определённых последовательных действий), так вот в серединке этих действий требуется, чтобы если ячейка а1 не пустая, то выполняется действие    
Sheets("лист1").Select  
   ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1  
 
Как в макросе описать это "Если"?  
 
Спасибо!

Добрый день, честно искал поиском, но решение найти не удалось. Необходим макрос.  
Прикрепил пример.  
Нужно сравнивать значение в ячейке определённого столбца, и производить действие в другой ячейке этой же строки.  
Например:  
Если в ячейке c8="123", то f8=d8*e8, и так по всей таблице, далее, если с9=124, то f9=d9-e9.  
Уникальных значений в столбце f не много, действия я опишу самостоятельно, а вот с самим кодом мне не разобраться. Опишите, пожалуйста, что делает каждая строчка в Вашем коде. Будет на много понятнее!    
 
 
Заранее огромное спасибо!

Спасибо! Не догадался, попробую!

Добрый вечер. Подскажите текст макроса, который бы удалял определённые значения, встречающиеся в столбце, например все буквы бб, вв, ггг. А любые другие не удалял.