Search results for query: *

JerryKlmns, Hey thanks..!! I have learned so much from you guys over the past few years..!! Absolutely amazing what I'm doin' with data where I work. We have been able to view our data in ways have never thought due to the things I have learned from Tek-Tips.. Awesome..!!!! jcw5107

JerryKlmns, That did the trick..!! Thank you...!!! Star for ya..!!! Thanks..!! jcw5107

JerryKlmns, Something like this.... Sub test() Dim intFileIn As Integer, intFileOut As Integer Dim strReadBuffer As String, strWriteBuffer intFileIn = FreeFile Open "D:\UPSDATA\OOSReport.txt" For Input As #1 intFileOut = FreeFile Open "D:\UPSDATA\OOSReport1.txt" For Output As #2 Do While Not...

Hey now...!! I have a text file that is formatted like this: 00 120 SDF 1)Fuel pump inop 2)#2 Hyd pump leak 30 250 ONT 1)#2 Main wheel cut I'm tryin' re-format the file to look like this: 00 120 SDF 1)Fuel pump inop 00 120 SDF 2)#2 Hyd pump leak 30...

JerryKlmns, Thank you so much...!! That was what I was lookin' for..!! Star for you..!! jcw5107

genomon, I am tryin' to grasp what your tellin' me but I'm hung up..!!! The text file looks like this: E Test ECAM message S Remove and replace the computer P Install EADI I want it to look like: E Test ECAM message S Remove and replace the computer P Install EADI Every single line that...

I am working with some code that - for some reason - it skips that last line in the text file...?? I just can't figure it out.... Below is what I am working with... Can anybody help me out with some suggestions or examples..?? Thanks in advance..!! jcw5107 Dim intFileIn As Integer, intFileOut...

Ok - Column B is a date. Column C is a "status", usually a code to note that the item is new("N"), updated ("U"), or blank if nothing has changed. So when I input the function ( =If(IsStrikeThru(B2),"UC","") ) in C2, and then dran-n-drop all the way down to the bottom of the spreadsheet -...

SkipVought, Ok - I getchya..!! This whole thing we are doing start in Excel, then we import it into Access. The spreadsheet needs some serious reformatting before it imported. Thats why I'm tryin' to speed things up with some automation or something... One last question.. In your example of...

Ok - I'm gettin' somewhere..!! Thanks for your help & patience on this...!!! Is there a way to "automate" all this...?? I guess what I'm gonna do is create an Excel template, Paste a bunch of data into the spreadsheet, and click a command button that runs all that you just helped me with. Any...

SkipVought, I'm am tryin' so hard to take your example(s) and implement into my spreadsheet... I'm just jammed up...!!! Haven't done much "VB'n" in Excel...!!! (gotta throw my disclaimer out there....) Is there any way you can hold my hand on this one - a little bit...???? Is your examples...

Oh man... I'm sorry....!!! Below is what I have come up with... Semi-sorta in the ballpark I guess.... Sub Macro4() Columns("B:B").Select With Selection.Font If .Strikethrough = True Then ActiveCell.FormulaR1C1 = "UC" End If End With End Sub

I need to be able to select a column (column B always), and for each cell that has a "strikethrough", update the cell in column C (next to the "striked-through" cell) to "UC".. I have tried building a macro with the recorder, but I am having trouble getting the code to update the very next cell...

SkipVought, I posted back in form707... I hope I did it right.... Look for "Search for StrikeThrough in Excel"... Thanks.. jcw5107

I need to be able to select a column (column B), and for each cell that has a "strikethrough", update the cell in column C (next to the "strikethrough" cell) to "UC".. Can't find anything posted regarding this... Thanks in advance...!! jcw5107

...recordsetclone. I sure hope this makes sense..!! Any suggestions or other methods...??? Thanks for the help - in advance..!!! jcw5107 If DCount("*", "PartMasterComments", "WanNo=" & GBLWanNo & "") > 0 Then Dim rsTable As DAO.Recordset Dim DeleteCt As Integer Set rsTable =...

...For Each item In lbo.ItemsSelected If lbo.ItemData(item) = varValue Then IsSelectedVar = True Exit Function End If Next End Function SQL: SELECT Employees.* FROM Employees WHERE IsSelectedVar("frmMultiselectListDemo","lboEmployeeID",[EmployeeID])=-1;

I have a bit of code that I am working with that works with the items selected in a listbox. From there, I would like to add new part#s based on the items selected. This way I can assign 1 part# to several Task#s (if several are selected) at one time.... I am having "syntax" problems with the...

Hey now...!! Alrighty then... I guess I have to go to plan "L"...!!! I think I found a work-around to simulate what it is I want to do.... On the main form - on the OnCurrent Event, a bit of code runs to select all items in the listbox, and then the subform requeries based on the selection...

I have a form with a Listbox & subform on it. When scrolling thru the records on the main form, the listbox requeries to show right list with the main forms current record. On any given record the list box can have from 1 to 4 items shown. I need to have the subform requery based on a single...