Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > microsoft.public.excel.programming > #107852

Re: Code to write to Index Match intersection

Show all headers | View raw

Hi Howard,

Am Tue, 14 Jul 2015 01:09:57 -0700 (PDT) schrieb L. Howard:

> I used a drop down for the date because I cannot recall the method or function where C2 in the Evaluate formula is actually the current date, instead of referring to C2 for the current date, where the =Now() equivalent would replace C2  and find the match in G3:P3.  Then the date drop down would not be needed.

try:

Sub Test2()
Dim sRow As Long, sCol As Long

'+4 because you start Match in Row 5
sRow = Evaluate("=MATCH(B1,B5:B13,0)") + 4
'+6 because you start Match in column 7
sCol = Evaluate("=MATCH(" & CDbl(Date) & ",G3:P3,0)") + 6

With Cells(sRow, sCol)
    .Value = .Value & "xyz"
End With
End Sub


Regards
Claus B.
-- 
Vista Ultimate / Windows7
Office 2007 Ultimate / 2010 Professional

Back to microsoft.public.excel.programming | Previous | Next — Previous in thread | Next in thread | Find similar | Unroll thread

Thread

Code to write to Index Match intersection "L. Howard" <lhkittle@comcast.net> - 2015-07-13 22:23 -0700
  Re: Code to write to Index Match intersection Claus Busch <claus_busch@t-online.de> - 2015-07-14 10:24 +0200
    Re: Code to write to Index Match intersection "L. Howard" <lhkittle@comcast.net> - 2015-07-14 01:54 -0700
      Re: Code to write to Index Match intersection Claus Busch <claus_busch@t-online.de> - 2015-07-14 12:09 +0200
        Re: Code to write to Index Match intersection "L. Howard" <lhkittle@comcast.net> - 2015-07-14 16:51 -0700

csiph-web