EDUCATED MONKEY
Board Regular
- Joined
- Jul 17, 2011
- Messages
- 218
Hi I have a couple of issues that I could do with a hand with<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
1 how do I convert $A$12 so I can use the value in a delete scenario <o></o>
e.g. Sheets("Sheet1").Select<o></o>
Range("A3: $A$12 ").Select this does not work<o></o>
Range("A3:A12").Select this does <o></o>
Selection.Delete Shift:=xlUp<o></o>
2 some times one or more item are missing from the list of things to find and it crashes please see code below <o></o>
3 I know the answer to this but I just can not remember it right now so I will ask <o></o>
How do I copy arrange of cells in this case C3 to H3 to next available row on another sheet <o></o>
1 how do I convert $A$12 so I can use the value in a delete scenario <o></o>
e.g. Sheets("Sheet1").Select<o></o>
Range("A3: $A$12 ").Select this does not work<o></o>
Range("A3:A12").Select this does <o></o>
Selection.Delete Shift:=xlUp<o></o>
2 some times one or more item are missing from the list of things to find and it crashes please see code below <o></o>
3 I know the answer to this but I just can not remember it right now so I will ask <o></o>
How do I copy arrange of cells in this case C3 to H3 to next available row on another sheet <o></o>
Code:
Sub FindString()
Dim Found As Range
Set Found = ActiveSheet.UsedRange.Find("title", LookIn:=xlValues, lookat:=xlPart)
Range("C1") = Trim(Found.Value)
Range("C2") = Len(Trim(Found.Value))
Set Found = ActiveSheet.UsedRange.Find("author", LookIn:=xlValues, lookat:=xlPart)
Range("D1") = Trim(Found.Value)
Range("D2") = Len(Trim(Found.Value))
Set Found = ActiveSheet.UsedRange.Find("basic", LookIn:=xlValues, lookat:=xlPart)
Range("E1") = Trim(Found.Value)
Range("E2") = Len(Trim(Found.Value))
Set Found = ActiveSheet.UsedRange.Find("language", LookIn:=xlValues, lookat:=xlPart)
Range("F1") = Trim(Found.Value)
'Range("F2") = Len(Trim(Found.Value))
Set Found = ActiveSheet.UsedRange.Find("synopsis", LookIn:=xlValues, lookat:=xlPart)
Range("G1") = Trim(Found.Value)
Range("G2") = Len(Trim(Found.Value))
Set Found = ActiveSheet.UsedRange.Find("imageurl", LookIn:=xlValues, lookat:=xlPart)
Range("H1") = Trim(Found.Value)
'Range("H2") = Len(Trim(Found.Value))
End Sub