Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations TouchToneTommy on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Search results for query: *

  • Users: RivetHed
  • Content: Threads
  • Order by date
  1. RivetHed

    Excel Worksheet Change Event Problem

    Hi folks, Having a really weird problem with a worksheet change event. I'm supposed to have the spreadsheet log which user last amended a row, easy enough, but it's not behaving itself. This is the bit that's causing the problem: If Not Cells(3, Target.Column) Like "*Last Change*" Then...
  2. RivetHed

    API Call problem, additional code crashes Access

    Hi folks, I've used slightly amended code taken from here: http://www.mvps.org/access/api/api0032.htm to create a form which logs the path of any item dragged and dropped into a listbox on the form. It all works fine at that stage. I'm trying to insert a command button on to the form which...
  3. RivetHed

    sumproduct formula in vba

    Hi all, having a little problem with this sumproduct formula in VBA, it compiles fine but throws out a Type mismatch error at runtime. rngdata is my raw data rngsum1 is a summary table I am populating Introw is an integer value Intcolumn is an integer value RngSum1.Cells(IntRow, IntColumn) =...
  4. RivetHed

    XL VBA Range selection

    Hi all, having a little problem with a range selection, the following line: RngData.Range(RngData.Cells(2, 4), RngData.Cells(RngData.Rows.Count, 4)). _ FormulaR1C1 = "=SUM(RC[+1]:RC[+" & RngData.Columns.Count - 4 & "])" is inserting the formula into a range offset 2 rows from where...
  5. RivetHed

    Class does not support automation or does not support expected interfa

    Hi all, The error message above is getting thrown up in the following code: Set rs2 = db.OpenRecordset("TblDefMailshot") Set XL = CreateObject("Excel.Application") Set wb = XL.Workbooks.Add Set ws = wb.Worksheets.Add For i = 0 To rs2.Fields.Count - 1 ws.Cells(1, i +...
  6. RivetHed

    First name gender association

    Hi folks, Does anyone out there possess a table of first names together with appropriate titles (Mr or Ms), I'm doing a data clean up and it would save me a lot of time if someone else has done this before and could give me a copy. Thanks!

Part and Inventory Search

Back
Top