Унос ћелије за позивање макроа у суседној ћелији

Питање

Имам сценарио који би волео да буде аутоматизован. Сценарио је следећи

Ако унесем вредност у било коју ћелију у одређеној колони, желим да се системско време унесе у суседну ћелију. Тренутно сам користио ову наредбу у макроу за то, али то је ручни процес (АцтивеЦелл.Валуе = Тиме) и морам кликнути на сусједну ћелију, а затим притиснути типке пречица да то урадим сваки пут.

Пример:

Ако унесем 123 у ћелију А2, онда желим да системско време (нпр. 6:59:33 ПМ) буде ухваћено у ћелији Б2. Желим да наставим да уносим вредности у колони „А“ једну испод друге са системским временом које се аутоматски уноси до другог у одговарајућој суседној ћелији у колони „Б“. Да ли је то могуће, било би одлично ако би ми неко помогао.

Решење

Примијените овај код на радном листу на којем желите да ради (десним кликом на картицу радног листа, кликните на код приказа):

 Привате Суб Ворксхеет_Цханге (БиВал Таргет Ас Ранге) АцтивеЦелл.Оффсет (-1, 1) = Суб Суб Тиме 

Кад год ставите нешто у ћелију и притиснете ЕНТЕР, тренутно системско време се ставља у суседну ћелију десно.

Белешка

НАПОМЕНА: Морате потврдити унос притиском на ЕНТЕР и не користити стрелице или ТАБ.

Хвала Трови за овај савјет на форуму.