Kopiranje podatka na drugi Sheet pomoću dvoklika na ćeliju u Excelu 2007.

U ovom primjeru želim pokazati kako izvršiti kopiranje podatka u ćeliji pomoću dvoklika na ćeliju (dvostruki klik mišem) ili "double click" pomoću VBA Macro (makronaredbe)

Uzmimo za primjer kao na slici ispod da imamo neke podatke koji se trebaju kopirati na istu poziciju ali na drugom radnom listu (Sheet). Podataka je poveći broj a ne želimo ići stalno u krug Copy/Paste.

dakle na slici ispod u Sheetu "IZVOR" dvoklikom (double-click) na ćeliju automatski kopira podatak u njoj na drugi Sheet "KOPIRANO" u ćeliju na istoj poziciji.

Za to možemo iskoristiti VBA Macro ispod koji umetnemo u sam Sheet sa kojeg kopiramo.
Dakle kliknite desnom tipkom miša na naziv Sheeta => View Code
Zalijepite Macro VBA kod ispod u Window Code. Ispravite dio VBA Macro koda koji je vezan na destinacijski Sheet.

VBA Macro code
-

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim strActivecell As String
strActivecell = ActiveCell.Address(False, False)
Sheets(2).Range(strActivecell).Value = Range(strActivecell).Value
'izlaz iz edit moda za dvo-klik na ćeliju.
Application.SendKeys "{ESC}"
End Sub