| Home |
| Search |
| Today's Posts |
|
#9
Posted to microsoft.public.excel.programming
|
|||
|
|||
HIDE ROWS IF..
Thanks very much once more, Norman.
regards, TiDz "Norman Jones" rašė: Hi TiDz, I received your sample workbook. Try: '============= Private Sub Worksheet_Change(ByVal Target As Range) Dim rngIn As Range Dim rngOut As Range Dim iMax As Long Set rngIn = Me.Range("A1:C1") Set rngOut = Me.Range("A3") iMax = Application.Max(rngIn) If Not Intersect(rngIn, Target) Is Nothing Then On Error GoTo XIT Application.EnableEvents = False Range(rngOut, rngOut.End(xlDown)).ClearContents Set rngOut = rngOut.Resize(iMax + 1) rngOut(1) = 0 rngOut.DataSeries Rowcol:=xlColumns, Type:=xlLinear, _ Step:=1, Trend:=False End If XIT: Application.EnableEvents = True End Sub '<<============= This is worksheet event code and should be pasted into the worksheets's code module (not a standard module and not the workbook's ThisWorkbook module): Right-click the worksheet's tab Select 'View Code' from the menu and paste the code. Alt-F11 to return to Excel. --- Regards, Norman "Norman Jones" wrote in message ... Hi TiDz, If you wish, you may send me a sample workbook.In one sheet, show your intial data; in another sheet, show the desired results. norman_jones@NOSPAMbtconnectDOTcom (Delete "NOSPAM" and replace "DOT" with a full stop [period] ) --- Regards, Norman |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Group rows (or hide rows) like in MS Project | Excel Worksheet Functions | |||
| Macro code to hide rows and not calculate hidden rows | Excel Discussion (Misc queries) | |||
| Enabling option „Format rows“ to hide/unhide rows using VBA-code? | Excel Discussion (Misc queries) | |||
| cut rows without cutting hide rows | Excel Discussion (Misc queries) | |||
| Hide Rows - copy and paste only rows that show | Excel Worksheet Functions | |||
Threaded Mode
