Search results

'Like' won't sniff out ".findme " in the middle of a string swimming in random various text, and 'InStr' will no matter what's next to it (be it a space or any character). Dim C As Range For Each C In Range(Cells(2, 1), Cells(2, 1).End(xlDown)) If C Like ".findme " Then MsgBox "Won't Find...

I'm faced with a 25 max limit line continuation problem (20 or 25 somethin' like that). I can write this out line for line breaking it up into 25 max increments, but some of these lines are very similar and can be searched for using wildcards much easier (to knock out several searches at a...

I decided to start a part 2 topic with removing url strings. The info from the first thread was super helpful. But I wanted to tie up some loose ended confusion of mine with this code. Beneath is an example worksheet I threw together, please have a look it's very organized. Code is from...

Okay yeah I see now that makes sense, thanks again guys.

I have everything I need. Thanks Hui Thanks Luke Hui you went above and beyond on this one, and I appreciate it.

Absolutely Beautiful. My screen no longer flickers, which answers my question and solves my problem. My understanding of this is it reads everything once, and writes it back once in one pass (an array). However (here comes the side questions you feared... lol) -I only have 3 questions...

I've tried all of the following they work great. But when running a particularly lengthy piece of code my screens completely goes white temporarily (until it finishes past this long code). Performance wise my PC is pretty tough, so the fault is in my code somewhere. Is there anything else I...

Never mind guys I never looked at the bottom. It was selecting the whole column. I used this to only snatch up my selected cells a few pieces of the column. Set MyRange = Range("A2", Range("A65536").End(xlUp)) With ActiveSheet Range("A1", Range("A65536").End(xlUp)).AutoFilter Field:=1...

I have several modules that run together: Sub Sequenced_Modules() SubModule1 SubModule2 SubModule3 etc.. End Sub When Module2 is ran by itself, it takes only 10 seconds (I tested it by itself). But when it's ran together in sequence with the others, then Module 2 can take up to 5...

I can't lie I'm super excited about this one thanks Hui. Resolved.

Resolved. Thanks for the help as always Luke.

I am trying to replace the dot at a specific point in a string. It will always be the dot followed by 6 characters and the word "EndSearchMarker". But all of that might be at the front, middle, or end (so I think the MID function is key). The code below works, but not what I need it for...

I figured out how to loop through each cell. But not quite sure how to only remove from the end (I placed some extra spaces at the front to see if this would kill those too and it did unfortunately). I'm not close you got me all the way there, just a need a little more help on how to...

I am having trouble removing fragments left behind from a previous code. I am familiar with Len, Trim, and the basic search and replace of course. The problem is I only want them removed from the end, and also some of these characters repeat consecutively. This seems like a simple enough...

Good stuff thx Hui.

Thanks Dee I checked them out good stuff. Hui, I have so much random code thrown together I'm not even sure I couldn't exactly explain how I'm using it. Overall however I'm basically running a lot of search and replacements. I have last question with this post. I have two subs, will my...

Which is Faster? Range("A1").Select Range("A1").Activate Application.Goto (ActiveWorkbook.Sheets(1).Range("A1")) I am cleaning and condensing a lot multiple selects and redundant lines of code. I read a few places here and there about avoiding select and activate if all possible...

SOLVED! : ) If LastSaved > Now - TimeValue("00:03:00") Then Thanks again Hui and Luke, as always. Oops I meant just Luke, you both help me out a lot it was habit lol

Function FileLastModified(strFullFileName As String) *all the function code you provided me above End Function '''''''''''''''' Sub Test() Dim LastSaved As Date LastSaved = FileDateTime(ThisWorkbook.Path & "File Data 2 Import.txt") If LastSaved <> Now - 3(Minutes Ago) Then...

Is there code that exists that could determine if the creation of a text file? I searched online but couldn't find anything so far. I am importing a large text file. I have a reset button which basically clears the whole sheet and reimports this text file. To make things faster, I was...

Thanks for the heads up, kinda figured as much. So I'll keep sheet 1 and sheet 2 where they are, and move everything else around after them. Thanks Hui! Thanks Luke! As always.

Hui | Luke With Col A in Worksheet(1) empty, and Col A in Worksheet(2) with content... which is what I should have mentioned in the first place (my apologies Hui). 'this places sht2's col A in sht1's col A Worksheets(1).Columns("A").Value = _ Worksheets(2).Columns("A").Value However...

Gotha, But how exactly do I write this if the sheet names are changing to different various names?

Thanks Luke that was perfect. I'm using 2010 so that's good to know.

Sheets(1).Range("A2", Range("A65536").End(xlUp)).Value = _ Sheets(2).Range("A2", Range("A65536").End(xlUp)).Value I'm looking to import data from another sheet within the same workbook, but without copying and pasting. Any help on what I'm missing here would be phenomenally appreciated