Гениально! Благодарю за помощь The_Prist

То есть суть в том, что есть одна кнопочка, которая копирует заданное значение в заданную ячейку( в моем случае это ячейка N8) и потом в последующем при нажатии кнопки значения начинают копироваться ниже и т д.    
В последнем коде от The_Prist все работает, если только уже стоит значение в ячейке N8. Просто необходимо добавить что бы кнопка еще сама первое значение копировала с ячейки I52

{quote}{login=The_Prist}{date=27.04.2010 04:50}{thema=}{post}Private Sub CommandButton2_Click()  
Лист1.Range("N" & Лист1.cells(rows.count,14).end(xlup).row + 1).value = Range("I52").value  
Лист1.Activate  
End Sub{/post}{/quote}  
 
И еще, только заметил. Ячейка не хочет копироваться если до этого в толбце N нету никаких значений. Что необходимо добавить, что бы кнопка работала когда копируешь ячейку в  первый раз

Большое спасибо! очень помогли

Не, все пусто, эначения будут в столбец N(Лист1) c листа2 каждый раз копироваться. Главное что бы каждый раз на ячейку ниже копирование происходило

Уважаемые знатоки, извиняюсь, что отвлекаю Ваше время, но без Вашей помощи никак=( Вопрос думаю не сложный, но очень важный.  
Есть код привязанный к кнопке(на Листе2 если это имеет значение). Все работает, все ОК. Необходимо только что бы при повторном нажатии на кнопку значение присваивалось не к ячейке N8 а к следующей за ней N9 и тд.  
 
Private Sub CommandButton2_Click()  
Лист1.Range("N8").Cells = Range("I52").Cells  
Лист1.Activate  
End Sub

Спасибо Михаил, очень помог!

{quote}{login=Михаил}{date=19.04.2010 09:55}{thema=}{post}У вас в ячейке С14 два преключатаеля, каждый подвешен на свой макрос, так вот в этих макросах и нужно прописать проверку условия, по которому меняет цвет С14.{/post}{/quote}  
 
Михаил, вот первый код макроса если мы нажимаем переключатель "Да"  
Sub Макрос1()  
   Range("C14").Select  
   With Selection.Interior  
       .Pattern = xlSolid  
       .PatternColorIndex = xlAutomatic  
       .Color = 5287936  
       .TintAndShade = 0  
       .PatternTintAndShade = 0  
   End With  
   Range("C15").Select  
End Sub  
 
 
Вот второй код макроса который меняет свой цвет на красный если "Нет"  
Sub Макрос2()  
   Range("C14").Select  
   With Selection.Interior  
       .Pattern = xlSolid  
       .PatternColorIndex = xlAutomatic  
       .Color = 255  
       .TintAndShade = 0  
       .PatternTintAndShade = 0  
   End With  
   Range("C15").Select  
End Sub  
 
Михаил, Подскажи пожалуйста, что ты имел ввиду надо добавить в код?, ниже краткое описание ситуации...  
Ячейки С14 и С15 по сути вообще не зависят друг от друга, они просто работают немного по разному. Просто в ячейке С14 у нас условное форматирование, а в ячейке С15 переключатели сделал для удобства.  
Необходимо просто сделать так, что бы если где то из этих 2х (или сразу в них обоих)ячеек загорается красный цвет, то при нажатии кнопки нас переносит на лист2, и если же напротив, ничего не меняется-горит зеленый(все ОК), тогда нас переносит на лист1

Ячейка С14 так же как и ячейка С13 меняет цвета с зеленого на красный

{quote}{login=Михаил}{date=18.04.2010 06:31}{thema=}{post}Что вы хотите, если по условию должен всегда переходить на первый лист. Ячйека С14 у вас всегда зеленая.  
попробуйте так  
Private Sub CommandButton1_Click()  
If [c13] / [c12] <= 2.9 Then
Лист2.Activate  
Else  
Лист1.Activate  
End If  
'If Range("C14").Interior.Color = 255 Then  
'Лист2.Activate  
'Else  
'Лист1.Activate  
'End If  
End Sub{/post}{/quote}  
 
Михаил, сейчас вроде бы получается, только вопрос такой, для чего перед всем описанием второго условия для ячейки С14 мы ставим знак "'", без этого знака 1ое условие отказывается работать...

{quote}{login=Михаил}{date=18.04.2010 06:31}{thema=}{post}Что вы хотите, если по условию должен всегда переходить на первый лист. Ячйека С14 у вас всегда зеленая.  
попробуйте так  
Private Sub CommandButton1_Click()  
If [c13] / [c12] <= 2.9 Then
Лист2.Activate  
Else  
Лист1.Activate  
End If  
'If Range("C14").Interior.Color = 255 Then  
'Лист2.Activate  
'Else  
'Лист1.Activate  
'End If  
End Sub{/post}{/quote}  
 
Михаил, эта строка к сожалению не работает If [c13] / [c12] <= 2.9 Then
Думаю еще надо указать для какой именно ячейки мы указываем это условие...

Все, проблема решена! Спасибо всем, кто помогал, Вы очень помогли!

{quote}{login=Delete88}{date=18.04.2010 10:54}{thema=Код макроса не реагирует на изменение цвета ячейки при условном форматировании}{post}Добрый день профи своего дела!  
Помогите начинающему лузеру=)  
Дело вот в чем, код макроса, который ссылается на ячейку с изменением цвета при помощи условного форматирования, не замечает, что цвет изменяется, и выдает не тот результат, который надо=( В общем, все в приложенном файле.  
Буду очень благодарен за помощь, это очень важно.{/post}{/quote}  
Скидываю еще один файл, там макросы отключены, но по описанию можно понять, что необходимо

Можно показать это на моем примере? Может легче будет прописать  условие условного форматирования в VB?

А еще лучше EducatedFool,  скажи как с тобой связаться, есть небольшое коммерческое предложение=)

Супер! Спасибо тебе EducatedFool большое за то что откликнулся!

Владимир, молодец, последний твой прикрепленный файл почти правильно, точнее правильный, только реально ли сделать так, что бы ссылки небыло на ячейку С6, можно это как нибудь звпихнуть в ячейку С5???

Вот и примерчик!