PASTEKAN KIDE BERIKUT PADA WORKSHEET Private Sub worksheet_change(ByVal target As Range) If Not Intersect(target, [H3]) Is No...

1.Average cell celection Sub selection_cell() Dim data As Range Set data = Selection ActiveCell.Offset(0, 1).Value = A...