*Hi, Use below code for the same .:*
*Function SumByColor(CellColor As Range, rRange As Range) *
*Dim cSum As Long Dim ColIndex As Integer ColIndex =
CellColor.Interior.ColorIndex For Each cl In rRange If
cl.Interior.ColorIndex = ColIndex Then cSum = WorksheetFunction.SUM(cl,
cSum) End If Next
>
> Dim Seconds As Long
> Dim Minutes As Long
> Dim CurrentRow As Long
> Dim CurrentColumn As Long
> Dim Initalised As Boolean
>
> Private Sub Recalc()
> If (CurrentRow <> 0 And CurrentColumn <> 0) Then
> Cells(CurrentRow, CurrentColumn).Value = Format(Now, "dd/mm/yy")
>
Hello:
Apparently my macro was being called (as evident by a build up
in the undo stack), but the call to fit-window was perhaps actually undoing
the call to fit-contents.
Adding a call to ScreenRefesh solved my problem.
tbl.AutoFitBehavior (wdAutoFitContent)
Application.ScreenRefresh
hi
is it possible?
-- Forwarded message --
From: Dheeraj Bankoti
Date: Tue, Oct 4, 2016 at 4:41 PM
Subject: $$Excel-Macros$$ Conditional calculation required for multiple
criteria.
To: excel-macros@googlegroups.com
Dear Experts,
I am seeking your help for Conditional calculation