Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 1
Default VBA - Identify Begin/End of Cell Ranges


Group,
I have a spreadsheet that changes weekly. The spreadsheet can have
over a 1000 rows or just a few hundred. In column D, a cell may be
blank or if there is an entry will have a text value with a suffix
..checksum, like regioncode.checksum or rds.checksum. The prefix before
the (.) dot will always be lumped together once there is an entry. In
otherword, rds.checksum will never appear again after cell D7 once its
initial incidence (D3) is found, regioncode.checksum will never appear
again after D20 once its first incidence (D11) is found below. I want
to show on another worksheet called "Summary", the name of the variable
(ie: rds.checksum) in cell A2, its starting row (3) in cell B2, its
ending row (7) in cell C2 and so on for each group of .checksum
entries. Any help here would be awesome.

Cell:Contents
D1: < Blank
D2: < Blank
D3: rds.checksum
D4: rds.checksum
D5: rds.checksum
D6: rds.checksum
D7: rds.checksum
D8: < Blank
D9: < Blank
D10: < Blank
D11: regioncode.checksum
D12: regioncode.checksum
D13: regioncode.checksum
D14: regioncode.checksum
D15: regioncode.checksum
D16: regioncode.checksum
D17: regioncode.checksum
D18: regioncode.checksum
D19 regioncode.checksum
D20: regioncode.checksum
D21: < Blank
D22: < Blank
D23: < Blank
D24: < Blank
etc...........

Tony


--
ajocius
------------------------------------------------------------------------
ajocius's Profile: http://www.excelforum.com/member.php...o&userid=17695
View this thread: http://www.excelforum.com/showthread...hreadid=470579

  #2   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 27,285
Default VBA - Identify Begin/End of Cell Ranges

will you have a list of the unique checksums in the summary sheet and you
want formulas to calculate the locations, or do you want a macro to build
the entire summary sheet include building the list of unique checksums?

--
Regards,
Tom Ogilvy

"ajocius" wrote in
message ...

Group,
I have a spreadsheet that changes weekly. The spreadsheet can have
over a 1000 rows or just a few hundred. In column D, a cell may be
blank or if there is an entry will have a text value with a suffix
checksum, like regioncode.checksum or rds.checksum. The prefix before
the (.) dot will always be lumped together once there is an entry. In
otherword, rds.checksum will never appear again after cell D7 once its
initial incidence (D3) is found, regioncode.checksum will never appear
again after D20 once its first incidence (D11) is found below. I want
to show on another worksheet called "Summary", the name of the variable
(ie: rds.checksum) in cell A2, its starting row (3) in cell B2, its
ending row (7) in cell C2 and so on for each group of .checksum
entries. Any help here would be awesome.

Cell:Contents
D1: < Blank
D2: < Blank
D3: rds.checksum
D4: rds.checksum
D5: rds.checksum
D6: rds.checksum
D7: rds.checksum
D8: < Blank
D9: < Blank
D10: < Blank
D11: regioncode.checksum
D12: regioncode.checksum
D13: regioncode.checksum
D14: regioncode.checksum
D15: regioncode.checksum
D16: regioncode.checksum
D17: regioncode.checksum
D18: regioncode.checksum
D19 regioncode.checksum
D20: regioncode.checksum
D21: < Blank
D22: < Blank
D23: < Blank
D24: < Blank
etc...........

Tony


--
ajocius
------------------------------------------------------------------------
ajocius's Profile:

http://www.excelforum.com/member.php...o&userid=17695
View this thread: http://www.excelforum.com/showthread...hreadid=470579



  #3   Report Post  
Posted to microsoft.public.excel.programming
Ian Ian is offline
external usenet poster
 
Posts: 238
Default VBA - Identify Begin/End of Cell Ranges

Try this. Change Sheet1 to suit your source sheet name.
Sub findvariable()
rd = 2
For r = 2 To 1000
If Worksheets("Sheet1").Cells(r - 1, 4) = "" And
Worksheets("Sheet1").Cells(r, 4) < "" Then
Worksheets("Summary").Cells(rd, 1).Value =
Worksheets("Sheet1").Cells(r, 4).Value
Worksheets("Summary").Cells(rd, 2) = Worksheets("Sheet1").Cells(r,
4).Address
End If
If Worksheets("Sheet1").Cells(r - 1, 4) < "" And
Worksheets("Sheet1").Cells(r, 4) = "" Then
Worksheets("Summary").Cells(rd, 3) = Worksheets("Sheet1").Cells(r,
4).Address
rd = rd + 1
End If
Next r
End Sub


--
Ian
--
"ajocius" wrote in
message ...

Group,
I have a spreadsheet that changes weekly. The spreadsheet can have
over a 1000 rows or just a few hundred. In column D, a cell may be
blank or if there is an entry will have a text value with a suffix
.checksum, like regioncode.checksum or rds.checksum. The prefix before
the (.) dot will always be lumped together once there is an entry. In
otherword, rds.checksum will never appear again after cell D7 once its
initial incidence (D3) is found, regioncode.checksum will never appear
again after D20 once its first incidence (D11) is found below. I want
to show on another worksheet called "Summary", the name of the variable
(ie: rds.checksum) in cell A2, its starting row (3) in cell B2, its
ending row (7) in cell C2 and so on for each group of .checksum
entries. Any help here would be awesome.

Cell:Contents
D1: < Blank
D2: < Blank
D3: rds.checksum
D4: rds.checksum
D5: rds.checksum
D6: rds.checksum
D7: rds.checksum
D8: < Blank
D9: < Blank
D10: < Blank
D11: regioncode.checksum
D12: regioncode.checksum
D13: regioncode.checksum
D14: regioncode.checksum
D15: regioncode.checksum
D16: regioncode.checksum
D17: regioncode.checksum
D18: regioncode.checksum
D19 regioncode.checksum
D20: regioncode.checksum
D21: < Blank
D22: < Blank
D23: < Blank
D24: < Blank
etc...........

Tony


--
ajocius
------------------------------------------------------------------------
ajocius's Profile:
http://www.excelforum.com/member.php...o&userid=17695
View this thread: http://www.excelforum.com/showthread...hreadid=470579



  #4   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 1
Default VBA - Identify Begin/End of Cell Ranges


Tom,
I just need a list built with the unique name, and beginning/ending
rows. Everything else is done. What makes this problem so difficult
for me is that the prefix to the .checksum can be different from
Worksheet to Worksheet. Fortunately, the group of something.checksum
will always be unique in the spreadsheet and will be listed
consecutively. I hope that explains it.

Tony


--
ajocius
------------------------------------------------------------------------
ajocius's Profile: http://www.excelforum.com/member.php...o&userid=17695
View this thread: http://www.excelforum.com/showthread...hreadid=470579

Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
How can I write a number in an Excel cell with zero at the begin M. A. Sekendar Excel Discussion (Misc queries) 1 April 25th 10 09:58 AM
Comparing two ranges of data and identify the common/like informat debra Excel Discussion (Misc queries) 2 April 1st 08 09:04 PM
getting a simple macro to begin execution on the selected cell bolchman Excel Discussion (Misc queries) 2 February 2nd 07 08:59 PM
Get first character in cell and count all cells that begin with 1,2,3 etc [email protected] Excel Discussion (Misc queries) 5 June 8th 06 05:04 PM
Begin Search at specific cell John Wilson Excel Programming 2 February 9th 04 04:41 AM


All times are GMT +1. The time now is 02:17 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"