Maybe I am not saying what I mean

Reply #18

Sandy K — Fri, 16 Dec 2005 17:36:18 GMT

you will, lottaloot, you will go all the way........Rick and Pac, my husband has a master degree in Computer Science from Cornell............way back in 1968...almost 40 years ago.....now he can't do a darn thing in excel besides simple formulas. He used to write game programs for our kids in Basic.........lol....wow.. how technology has come a long way since then. He could probably pick it up if he studied it some but he has people do that kind of work that work for him........so he says why... [ More ]

Reply #17

Rick G — Fri, 16 Dec 2005 17:19:29 GMT

I'm like Pac...the first (and last) programs I ever wrote were in Basic about the same time frame as Pac's. Now I don't have a clue how to use Excel or write ANY type of program.I have deep respect for all you guys that can do it. It goes to show that LP has some brain power going in here and that we're not all a bunch of dreaming dummies .Thumbs up to all of you

Reply #16

lottaloot — Fri, 16 Dec 2005 17:05:32 GMT

Now, If I could just go ALL the way

Reply #15

Tenaj — Fri, 16 Dec 2005 16:51:30 GMT

Reply #14

Sandy K — Fri, 16 Dec 2005 16:16:22 GMT

wow lottaloot, you have come a long way in Excel

Reply #13

lottaloot — Fri, 16 Dec 2005 16:05:48 GMT

Does anyone know how to add the find next to the code below?I do not want it to loop.Sub NoLoop() Dim SearchString SearchString = 123 Cells.Find(What:=SearchString, After:=[A1], LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False).ActivateEnd Sub

Reply #12

pacattack05 — Fri, 16 Dec 2005 08:41:58 GMT

Boy the way Glen Miller played.Songs that made the hit parade. Guys like us, we had it made. Those were the days.And you knew where you were then. Girls were girls and men were men.Mister we could use a man like Herbert Hoover again.Didn't need no welfare state. Everybody pulled his weight.Gee our old Lasalle ran great, those were the days.

Reply #11

powerplayer — Fri, 16 Dec 2005 08:21:41 GMT

Pac, The only program I ever wrote ( typed ) was about 1979. It was a game program for a Commodore 128. These were the good old days !!!Powerplayer

Reply #10

pacattack05 — Fri, 16 Dec 2005 08:16:34 GMT

You two are the BOMB!!The only program I ever wrote ( typed ) was about 1979. It was a game program for a Commodore 128. I copied it from a computer magazine. LOL......If x=20 then go to X,:39.277, then next,If 25 next,Go to- then next, if sprite = pixel, then go to next.....LOL ( this last line is just joking.

Reply #9

powerplayer — Fri, 16 Dec 2005 08:09:56 GMT

Good job lottaloot...

Reply #8

lottaloot — Fri, 16 Dec 2005 08:05:28 GMT

I did it! I just copied it exactly like it said below ran it. (no sense in being afraid to play around with it--It's not like I am going to break it) Type Find Me in cell IV65336Sub NoLoop() Cells.Find(What:= Find Me , After:=[A1], LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False).ActivateEnd SubAnd it worked

Reply #7

powerplayer — Fri, 16 Dec 2005 07:56:36 GMT

Hey Pac,I wish VB was in a english that I could understand ............................... my fingers type faster then I can think LOL

Reply #6

pacattack05 — Fri, 16 Dec 2005 07:51:54 GMT

Lotta and Power, learn english, you're in America now.....LOL

Reply #5

powerplayer — Fri, 16 Dec 2005 07:38:14 GMT

Lottaloot,This is a VB script...I'm pretty sure of it.This is a very complicated script at least for me.. If I'm decyphering correctly then this will pop a box up and ask you to choose a cell.IF no range is nominated then the script terminates. I think. The Range( A1 , Range( A65536 ).End(xlUp)).AdvancedFilter (not sure what advnaced filter is for...??? This part I'm not sure of fully but belive it's refers back to this line: If rListPaste Is Nothing Then iReply = MsgBox( No range nominated,... [ More ]

Reply #4

lottaloot — Fri, 16 Dec 2005 07:20:48 GMT

And once I figure out what I am suppose to type, is there a way to get into the macro section or where ever I am suppose to put these formulas besides hitting the record macro then stopping it then editing it

Reply #3

lottaloot — Fri, 16 Dec 2005 07:16:04 GMT

It's things like this that confuse me with writing or reading these things. Sub Demo() Dim MyRange As Range Set MyRange = Application.InputBox _ (Prompt:= Select any range , Title:= Demo , Type:=8) MyRange.SelectEnd SubAre they instructing me to set my range or is that actually what I am suppose to type??and excel will understand it.

Reply #2

lottaloot — Fri, 16 Dec 2005 07:10:05 GMT

I do not know exactly what the above is called but I think it is writing your own formulas for excel. I would like to know when they state range are they wanting the exact cell ranges put in here or is this the language that VB uses

Reply #1

lottaloot — Fri, 16 Dec 2005 07:06:51 GMT

Sub UniqueList() Dim rListPaste As Range Dim iReply As Integer On Error Resume Next Set rListPaste = Application.InputBox _ (Prompt:= Please select the destination cell , Type:=8) If rListPaste Is Nothing Then iReply = MsgBox( No range nominated, _ terminate , vbYesNo + vbQuestion) If iReply = vbYes Then Exit Sub End If Range( A1 , Range( A65536 ).End(xlUp)).AdvancedFilter _ Action:=xlFilterCopy, CopyToRange:=rListPaste.Cells(1, 1), Unique:=TrueEnd Sub

Maybe I am not saying what I mean

lottaloot — Fri, 16 Dec 2005 06:57:53 GMT

Sub NoLoop()Cells.Find(What:= Find Me , After:=[A1], LookIn:=xlFormulas, _LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _MatchCase:=False).ActivateEnd Sub