Search results

I clicked around first before asking this. lol Thought it'd be cool if I could upload my face.

Resolved. I did this the only way I knew how. I'm sure it's a better way. The accept manual changes button is simply: ActiveCell.Value = TextBox.Text It's messy but it works. http://www.iandmyself.me/My.Crazy.Solution.txt

More clarity (all I need). If I specify which cell directly I want my textbox.text to go in it works. textbox.text = Range("A2").Value However, I'm searching through Dim Cell As Range (or Dim C As Range whichever), and I have no idea which Cell I'm on to write the data back to. I've...

I wasn't sure which way it was supposed to be honestly. In theory my assumption was one way writes it up, and the other way writes it down.

Yep Just wanted it to return whatever I revise in there back to the worksheet.

Here's an organized example workbook with buttons. Please have a look. http://www.iandmyself.me/Example_UserForm_Workbook.xlsm

I've tried these: OptionExplicit Sub OpenMacroNameDirectly With Application .Goto "MacroName" End With End Sub '''''''''''''''''''''''''' 'Application.VBE.MainWindow.Visible = True 'Application.VBE.ActiveCodePane.Show They work like a charm, but not with getting in UserForm code (only...

Having issues with the following beneath: Private Sub Enter_Manual_Revisions_Click() Enter_Manual_Revision_UserFormField.Text = C.Value End Sub In a public sub I'm using a For Each C In Range. It opens up the userform if any criteria is found, displays the first one found, I modify it in...

Ignoring everything above, I found every answer I was looking for. I got it to work, and it searches for each found word and closes the userform after the last. Excel does this automatically. I thought I would have to tell it to do that. I guess that's what "For Each Cell" means. : )...

Nevermind on this one. Resolved.. *(kinda) '''''''''''''''''''''''''''''''' Dim C As Range Dim OpenBrace As Integer, EndBrace As Integer Dim Mystring As String Dim MidString As String For Each C In Range("A2") Mystring = C.Value OpenBrace = InStr(1, Mystring, "{") EndBrace =...

I'm using these 3 formulas to split up a cell into three parts (in 3 diff cells). 1. everything before "{" 2. the contents in the middle of both braces 3. and everything after the last "}" These formulas beneath work perfect in standard worksheet mode. '=LEFT(A1,SEARCH("{",A1,1)-1)...

I was looking to check if any one word in a group of words exists in range, and then manually revise each of them one by one in a userform pop up box. I know how to structure the buttons to "skip" and "enter" whatever changes the user makes in the text box fields -back to the worksheet, I'm...

Beautiful, and what I find crazy is I'm under the distinct impression you wrote this without testing it, which could only mean you know this stuff so well you could've wrote this blindfolded. Thanks a mill.

Beautiful Luke. Only last bump I'm running into is this: 'Ensure both criteria were found, and End comes after Start If xStart = 0 Or xEnd <= xStart Then MySearch = "Keys not found" '''it appears I keep getting a debug error here Exit Function End If

xld | Luke Luke based on your post I guess I'm going to need a function to accompany this sub (which is cool). Just not sure how to make them work together. Here's an example of what I could understand more clearly. In this example I'm only searching for one character, but enabling the code...

I am in need of a simple code that will mark 1 specific character in string as a "StartPosition", and another as an "EndPosition", and a "SearchForThis" between those two points. As written simply as possible (any example for the start and end pos is clearly up to you for illustration...

Thanks for the clarity and resolution as always.

My aim for this is to find the second character from the left (which is a "{") and replace it with nothing. For one reason or another I'm having trouble? Sub Find_Character_Second_From_Left_At_Start_Of_String() Dim Cell As Range Dim MyString As String Dim MyRange As Range Set MyRange =...

If Mid(MyString, i, 1) = " " Then Found it fixed it (the "1" was missing).

Quick question... Keep getting a debug error here: midstring = "{" + Mid(MyString, b1, b2 - b1) I'm sure it's a quick fix but I can't figure it out. This is suppose to place the missing end-brace on the left or right side. I've been testing it with this line with no luck. Example blah...

Good stuff in there Sharma, much appreciated.

I'm using this to time my subs and input a cell value of how long it took. Did I write this correctly? Get_Time Dim Counter As Single Counter = Timer '''my code Worksheets(2).Range("A65536").End(xlUp).Offset(1).Value = _ Timer - Counter & " seconds." End Sub So I can see easily see...

Oh wow I thought you had to set the Dim inside each sep Sub. Good stuff thanks Luke.

Gotcha, definitely with major event changes breaking is best. But by repeated does that include "MyRange" as well? I set it at the top once, and I reference it dozen times. Is this okay?

When running long macros is it more efficient-faster to break them up into individual subs, or to combine them all with one set of references (Dims, Ranges, etc..) ?