Get instant live expert help on I need help with vba on error resume next

I am using the Macro below after first validating that the type of data that I want to clear without clearing formulas is "Values." An example of these values is: 53% (i.e., the % sign is present for all of the "Values" that I want to clear. The format of the cells containing these values is "Percentage." How do I fix this? Many thanks for your help - I am a novice to VBA. Frank Sub ClearDataNotFormulas() On Error Resume Next Cells.SpecialCells(xlCellTypeValues).ClearContents End Sub

Hi All, I have found a nice little code that allows me to insert a row when double clicking on a cell, copying contents as well. I was wondering if I could change it so it inserts a row if you click on the cell value '+' and deletes a row if you click on the value '-'? allowing me to insert and delete rows when needed. Private Sub Worksheet_beforedoubleclick(ByVal Target As Range, Cancel As Boolean) Cancel = True Target.Offset(1).EntireRow.Insert Target.EntireRow.Copy Target.Offset(1).EntireRow On Error Resume Next Target.Offset(1).EntireRow.SpecialCells (xlConstants)

Hi. We're a food inspection company looking for a service provider to offer VBA expertise in Excel to achieve the following: - Criteria selection at entry - Selecting applicable tabs based on pre-set criteria - Extracting and compiling data from active tabs Please provide a senior consultant, as we need to see resume before committing. Thanks, Hank

Im getting an error on this code when trying to filter on VBA userform using listbox: .List = Application.Index(vData, _ Evaluate("Row(1:" & lMatches & ")"), _ Evaluate("Column(1:" & UBound(vData, 2) & ")")) Im getting error : "Application-defined or object-defined error."

I built a macro to auto sort but it is not working correctly. I need the table to be sorted when values change in column A, but I need the table to be sorted by column T. Here is the macro that I wrote: Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Not Intersect(Target, Range("A7:A33")) Is Nothing Then Range("A7:T33").Sort Key1:=Range("T7"), _ Order1:=xlDescending, Header:=xlNo, _ OrderCustom:=1, MatchCase:=False, _ Orientation:=xlTopToBottom End If End Sub