Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Programming a processor
Greetings all, first timer here.
Need some help trying to get my first processor built using VBA in Excel. Trying to get two formulas to work but having some difficulty. First, trying to get VBA to search the open worksheet and if the sum of two cells in two different columns equals the number in a 3rd column, then delete row. Second, a simple if then statement of deleting duplicate rows. Here is what I have but it doesn't work. The data is all in column 1. Public Sub Format(wb As Workbook) Dim rngRow As Range Dim lngRows As Long Dim lngCurRow As Long Dim rngTable As Range Set rngTable = wb.Worksheets(1).Cells(1).CurrentRegion lngRows = rngTable.Rows.Count For lngCurRow = lngRows To 2 Step -1 Set rngRow = rngTable.Rows(lngCurRow) If rngRow.Cells("Booking") = rngRow.Cells("Booking").Offset(-1, 0) Then rngRow.EntireRow.Delete End If Next Set rngTable = wb.Worksheets(1).Cells(1).CurrentRegion lngRows = rngTable.Rows.Count If anyone can assist it would be greatly appreciated. ------------------------------------------------ ~~ Message posted from http://www.ExcelTip.com/ ~~ View and post usenet messages directly from http://www.ExcelForum.com/ |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Programming a processor
Cells doesn't accept a string like "Booking" as an argument. Even if it
did, it is unclear how you would use a named range in conjunction with a row. If Booking were a named range referring to a column then set myrng = Intersect(rngRow.EntireRow,Range("Booking").Entire column) if myrng = myrng.offset(-1,0) then myrng.Entirerow.Delete End if or For lngCurRow = lngRows To 2 Step -1 If cells(lngCurRow,3)= cells(lngCurRow-1,3) then rows(lngCurRow).Delete End If Next -- Regards, Tom Ogilvy "macrolad" wrote in message ... Greetings all, first timer here. Need some help trying to get my first processor built using VBA in Excel. Trying to get two formulas to work but having some difficulty. First, trying to get VBA to search the open worksheet and if the sum of two cells in two different columns equals the number in a 3rd column, then delete row. Second, a simple if then statement of deleting duplicate rows. Here is what I have but it doesn't work. The data is all in column 1. Public Sub Format(wb As Workbook) Dim rngRow As Range Dim lngRows As Long Dim lngCurRow As Long Dim rngTable As Range Set rngTable = wb.Worksheets(1).Cells(1).CurrentRegion lngRows = rngTable.Rows.Count For lngCurRow = lngRows To 2 Step -1 Set rngRow = rngTable.Rows(lngCurRow) If rngRow.Cells("Booking") = rngRow.Cells("Booking").Offset(-1, 0) Then rngRow.EntireRow.Delete End If Next Set rngTable = wb.Worksheets(1).Cells(1).CurrentRegion lngRows = rngTable.Rows.Count If anyone can assist it would be greatly appreciated. ------------------------------------------------ ~~ Message posted from http://www.ExcelTip.com/ ~~ View and post usenet messages directly from http://www.ExcelForum.com/ |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Text Item Processor | Excel Worksheet Functions | |||
Calculate:Calculating Processor(s) | Excel Discussion (Misc queries) | |||
how do i take somthing off the word processor and put it in a fil | Excel Worksheet Functions | |||
Macros Pegging Processor ! | Excel Discussion (Misc queries) |