Пронађите и замените макро вредности ћелије

Питање

Имам ових 20 формула (1 по дионичком коду) у мојој табели које долазе из етраде

= ПРОСтатицДата (2, "мкг.АСКС", "2010/08/10; 2010/08/19; 3; Труе; Фалсе", "10")

Желим бити у могућности промијенити датуме све одједном, имам 2 ћелије постава вриједности које желим тражити су у М8 и М9 и желим га замијенити с вриједностима у Л8 и Л9 односно и то ради добро било гдје у табели, осим у горе наведеној формули из неког разлога, она неће гледати кроз формулу јер је то код који користим.

 Суб тхеоне () 'Селецтион.Реплаце Шта: = "ВалуеТоФинд", Замена: = Распон ("А1"). Вредност, ЛоокАт: = клПарт, СеарцхОрдер: = клБиРовс, МатцхЦасе: = Фалсе, СеарцхФормат: = Фалсе, РеплацеФормат: = Фалсе 'Ранге ("Б1: Б2") Изаберите Селецтион.Цопи Ранге ("Л8: Л9") Изаберите Селецтион.ПастеСпециал Пасте: = клПастеВалуес, Оператион: = клНоне, СкипБланкс _: = Фалсе, Транспосе: = Фалсе Ранге "М8") Изаберите Апплицатион.ЦутЦопиМоде = Фалсе Селецтион.Цопи Ранге ("Л8"). Изаберите Апплицатион.ЦутЦопиМоде = Фалсе Селецтион.Цопи Целлс.Реплаце Вхат: = Ранге ("М8"). Валуе, Реплацемент: = Ранге Вредност, ЛоокАт: = _ клПарт, СеарцхОрдер: = клБиРовс, МатцхЦасе: = Фалсе, СеарцхФормат: = Фалсе, _ РеплацеФормат: = Фалсе Целлс.Реплаце Вхат: = Ранге ("М9"). Валуе, Реплацемент: Вредност, ЛоокАт: = _ клПарт, СеарцхОрдер: = клБиРовс, МатцхЦасе: = Фалсе, СеарцхФормат: = Фалсе, _ РеплацеФормат: = Фалсе Ранге ("Л8: Л9"). Изаберите Апплицатион.ЦутЦопиМоде = Фалсе Селецтион.Цопи Ранге (Одабир опсега копије) ("М8: М9") Изаберите АцтивеСхеет.Пасте Енд Суб

Решење

Ево неколико сумњи у вашем макроу

Пример

 Опсег ("М8") Изаберите Апплицатион.ЦутЦопиМоде = Фалсе Селецтион.Цопи

Копирате ову вредност, али је никада не налепите и исто са следећим блоком са Л8. Можда код није потребан или сте можда заборавили да га залепите. Разлог због којег нисте у могућности да га замените, јер је датум у формули је у формату ИИИИ / ММ / ДД. Датум који тражите није у том формату. Потребно је додати још једну претрагу и заменити место где тражите датум у ИИИИ / ММ / ДД формату и заменити га у истом

 Целлс.Реплаце Вхат: = ФОРМАТ (Опсег ("М8"). Вредност, "ГГГГ / ММ / ДД"), Замена: = ФОРМАТ (Опсег ("Л8"). Вредност, "ГГГГ / ММ / ДД"), ЛоокАт : = _ клПарт, СеарцхОрдер: = клБиРовс, МатцхЦасе: = Фалсе, СеарцхФормат: = Фалсе, _ РеплацеФормат: = Фалсе

Ево ваше ре-обраде ствари.

 Суб тхеоне () Дим сДатеФинд Ас Стринг Дим сДатеРеп Ас Стринг Ранге ("Б1: Б2"). Изаберите Селецтион.Цопи Ранге ("Л8: Л9"). Изаберите Селецтион.ПастеСпециал Пасте: = клПастеВалуес, _ Оператион: = клНоне, _ СкипБланкс: = Фалсе, _ Транспосе: = Фалсе Ранге ("М8"). Изаберите Апплицатион.ЦутЦопиМоде = Фалсе Селецтион.Цопи Ранге ("Л8"). Изаберите Апплицатион.ЦутЦопиМоде = Фалсе Селецтион.Цопи сДатеФинд = Ранге ("М8") Вриједност сДатеРеп = Распон ("Л8"). Вриједност Целлс.Реплаце Што: = Распон ("М8"). Вриједност, _ Замјена: = Распон ("Л8"). Вриједност, _Погледај: = клПарт, _ СеарцхОрдер: = клБиРовс, _ МатцхЦасе: = Фалсе, _ СеарцхФормат: = Фалсе, _ РеплацеФормат: = Фалсе Целлс.Реплаце Шта: = Формат (сДатеФинд, "ииии / мм / дд"), _ Замена: = Формат (сДатеРеп, "ииии / мм / дд "), _ ЛоокАт: = клПарт, _ СеарцхОрдер: = клБиРовс, _ МатцхЦасе: = Фалсе, _ СеарцхФормат: = Фалсе, _ РеплацеФормат: = Фалсе сДатеФинд = Распон (" М9 "). Вредност, _ Замена: = Распон ("Л9"). Вредност, _ Видети: = клПарт, _ СеарцхОрдер: = клБиРовс, _ МатцхЦасе: = Фалсе, _ СеарцхФормат: = Фалсе, _ РеплацеФормат: = Фалсе Целлс.Реплаце Шта: = Формат (сДатеФинд, "ииии / мм / дд"), _ Замена: = Формат (сДатеРеп, "ииии / мм / дд"), _ ЛоокАт : = клПарт, _ СеарцхОрдер: = клБиРовс, _ МатцхЦасе: = Фалсе, _ СеарцхФормат: = Фалсе, _ РеплацеФормат: = Фалсе Ранге ("Л8: Л9"). Изаберите Апплицатион.ЦутЦопиМоде = Фалсе Селецтион.Цопи Ранге ("М8: Изаберите АцтивеСхеет.Пасте Енд Суб