Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Макросом скопировать значение из определенной ячейки и вставить в ячейку указанного столбца напротив заданного символа
 
#1
08.10.2021 09:09:12
Помогите, пожалуйста, создать макрос для копирования значение из желтой ячейки и вставки его в ячейку оранжевого столбца напротив символа "х" в зеленом столбце.
 
 
 
#2
08.10.2021 09:22:32
Код
Sub Copy_()
    Range("N6") = Range("O3")
End Sub
 
 
 
#3
08.10.2021 09:45:48
Андрей_26, символ "х" может "гулять" вверх-вниз по столбцу...
 
 
 
#4
08.10.2021 09:46:44
Началось  :D
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
 
 
 
#5
08.10.2021 10:02:42
Jack Famous, не, больше вводных точно не будет)
 
 
 
#6
08.10.2021 10:11:29
sasch78, можно формулу =ЕСЛИ(B4="х";$O$3;"") в N4 и протянуть
Макрос не дам, потому что у вас документов нету очень много других вопросов возникнет  :D
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
 
 
 
#7
08.10.2021 10:25:06
Jack Famous, не возникнет, уже все оговорено... формула не покатит, так как ее результат будет меняться вместе со значением желтой ячейки, а макрос этот результат зафиксирует
 
 
 
#8
08.10.2021 10:46:05
Цитата
sasch78: не возникнет, уже все оговорено
я вам не верю и очень скоро мы убедимся, что ненапрасно  :D

Цитата
sasch78: макрос этот результат зафиксирует
вставьте формулу макросом в столбец и преобразуйте в значения
Изменено: Jack Famous - 08.10.2021 10:47:06
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
 
 
 
#9
08.10.2021 10:59:35
Цитата
Jack Famous написал:
вставьте формулу макросом в столбец и преобразуйте в значения
я не знаю как задать то место, куда вставлять, чтобы было напротив "х", который перемещается
 
 
 
#10
08.10.2021 11:06:21
Я не сомневался, что будут доп. условия ))))
Код
Sub Copy_()
    For i = 1 To Cells(Rows.Count, 2).End(xlUp).Row
        If Cells(i, 2) = "х" Then
           Cells(i, 14) = Range("O3")
        End If
    Next
End Sub
 
 
 
#11
08.10.2021 11:15:12
Андрей_26, Cells(i, 14) = Range("O3"): Exit Sub — если "крестик" один, конечно  :)
Изменено: Jack Famous - 08.10.2021 11:15:31
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
 
 
 
#12
08.10.2021 11:33:34
Андрей_26, спасибо огромное, все работает идеально! очень помогли мне!

Цитата
Jack Famous написал:
я вам не верю и очень скоро мы убедимся, что ненапрасно
одно пустомельство))
 
 
 
Страницы: 1
Наверх