EDUCATED MONKEY
Board Regular
- Joined
- Jul 17, 2011
- Messages
- 218
Rich (BB code):
Rich (BB code):
Rich (BB code):
Sub Removetop()
Application.ScreenUpdating = False
<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p> </o:p>
Dim row As Long
Dim TheData As String
Dim WhereIs As Integer
Dim Target, cell As Range
Dim c As Range
Dim d As Range
<o:p> </o:p>
For row = 1 To 20
Worksheets("Recieved Data").Select
TheData = Worksheets("Recieved Data").Cells(row, 1).Value ' column A
If InStr(TheData, "=-- Chicago Tribune") = 1 Then
TheData = " "
Worksheets("Recieved Data").Cells(row, 1).Value = TheData
End If
<o:p> </o:p>
If TheData = " Enlarge" Then
WhereIs = row
GoTo Removetop
End If
Next row
<o:p> </o:p>
Removetop:
Do While WhereIs <> 0
Sheets("Recieved Data").Select 'source sheet
Worksheets("Recieved Data").Cells(WhereIs, 1).Select
Selection.Delete Shift:=xlUp
WhereIs = WhereIs - 1
Loop
<o:p> </o:p>
Set Target = Sheets("Recieved Data").Range(Range("A1"), Range("A70").End(xlUp))
For Each c In Target
c = Replace(c, "DEWEY edition", "Ziditon")
Next
Application.ScreenUpdating = True
End Sub<o
> </o>This is the contents of column A
Count Karlstein<o
></o>or The Ride of the Demon Huntsman<o
></o>Philip Pullman<o
></o><o
> </o>ISBN: 9780440862666<o
></o>Format: Paperback<o
></o>Publisher:Random House Children's Books<o
></o>Edition: New edition<o
></o>View new edition<o
></o><o
> </o><o
> </o><o
> </o>Rating: Write a review <o
></o><o
> </o>A Transylvanian spoof by the author of "Spring-heeled Jack". It consists of a melodramatic adventure tale in words, cartoons and jokes, about Zamiel, the Demon Huntsman. He terrorizes the villagers of Karlstein, and is offered the evil Count Karlstein's two young nieces as part of a bargain. <o
></o><o
> </o>Synopsis Details Reviews <o
></o>Young Charlotte is locked in a tower room of her uncle's gloomy Castle Karlstein. Her evil uncle, Count Karlstein, has promised to sacrifice his two orphaned nieces, Lucy and Charlotte, to Zamiel the Demon Huntsman--on midnight of All Souls' Eve--in return for his current riches. First, the heartless Count and his "lip-licking, moist-handed, creeping, smarming" secretary, Herr Arturo Snivelwurst, will have to catch them. ISBN 0440862663 Weight (grammes) 85 <o
></o>ISBN13 9780440862666<o
></o>(What's this?) Published in London <o
></o>Publisher Random House Children's Books Height (mm) 194 <o
></o>Imprint Yearling (imprint of Random House Children's Books) Width (mm) 131 <o
></o>Format Paperback Spine width (mm) 8 <o
></o>Publication date 10 Jan 1998 Academic level Children (6-12) <o
></o>Illustrator Patrice Aggs Interest age from 9 to 11 <o
></o>DEWEY 823.914 Reading age From 8 to 11 <o
></o>Ziditon DC21 Alternative ISBN 9780307286000 <o
></o>Pages 112 <o
></o><o
></o><o
></o><o
></o>Imagine a plot zippy enough to make young readers want to stay up late, very late, to finish it.... There is slapstick and suspense aplenty for all ages.<o
></o>#NAME? <<<<<<< This is the cause of the error<o
></o>Actuall text = “=-- Chicago Tribune” <<<<<<< i guess Excel thinks its a formula when it’s just random junk My attempt to remove it failed why?<o
></o>Can you tell how to get rid of it as the text after “=--“ is unknown it needs to find it from this part alone<o
></o><o
> </o>Be the first to write a customer review<o
></o><o
> </o>Printable Buying options £5.99 <o
></o>Add to basketBuy Online: <o
></o>Online availability:<o
></o>Usually despatched within 10 days <o
></o>Reserve in-store:<o
></o>Buy used:<o
></o>33 new & used available from £0.73<o
></o><o
> </o>Customers who bought this also bought:<o
></o>| <o
></o>Jewellery<o
></o><o
> </o>Michele Rowan, Michael Poynder<o
></o><o
> </o>£29.95<o
></o><o
> </o>Add to basket | <o
></o>Castle<o
></o><o
> </o>Nix, Garth<o
></o><o
> </o>£5.99<o
></o><o
> </o>Add to basket | <o
></o>Jewellery<o
></o><o
> </o>Michele Rowan, Michael Poynder<o
></o><o
> </o>£29.95<o
></o><o
> </o>Add to basket
