Not sure if it's just how I have my browser set up.
But ... when you log in and you see that you have x number of threads with unread posts, is there anyway or is it possible to instead of just making the thread title "BOLD" that it's also a different color? I think it would help set apart the thread where you have unread items.
In this post the OP posted a "TABLE" I'm seeing the tags not a table. How about you.
Pretty sure that it's something with my browser.
Google Chrome is up to date
Version 78.0.3904.108 (Official Build) (64-bit)
Hmmm I've went back .... and it's not there for me.
That's what I had done.... Copied it to a module page and then copied / pasted back to the browser ...
Not sure maybe I did something wrong .... But 2nd time was the charm it kept the indenting.
Got it to work. It was me.
Deleted the old code and code box from the existing post.
Click for new Code Tags and pasted formatted text back in. New formatting pasted in.
How about now ... Making the CodeBox have single spaced lines instead of 1.5 spaced lines?
Might need to check out your solution. I've been making one of my own. It doesn't generate NEW puzzles I just use mine to help me solve ones I can't figure out on my own ..... I do keep alot of puzzles on hand so that I can figure out new solution techniques and try to program them.
I just was going to edit a members post ( the code portion specifically ) and copied his code out to a workbook and fixed the code to be ... IMO more readable.
However, as soon as I hit paste all leading " " were gone hence no indentation. Is there a setting that needs to be set so that "LEADING" indention spacing is retained on pasting into the forum?
Not sure that I'd want to manually paste spaces on each line of supplied code. Nor read any code that is not indented for ease of reading.
Can you post a sample?
Check the changes below. I'm sure it will work. Not pretty... Not elegant... Should be functional.Code
- Sub delete()
- Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
- :=False, Transpose:=False
- Application.CutCopyMode = False
- On Error Resume Next
- if Err.Number = 0 then Selection.EntireRow.delete
- on error goto 0
- End Sub
What is not happening?
Also ... it's great that it looks as if you've recorded a macro and are now attempting to edit it and polish it. My first piece of advice is this.... You almost never have to work with the "ACTIVE" object using the active object typically requires alot of work for the cpu ....
But on just perusing the code I'm not seeing a reason why anything shouldn't work at full speed.
Attach a sample!
Best you're going to be able to do, I believe. Is to create your own userform so that you can display it then have an application.ontime routine that you can close and identified form.
I have something very similar in all of my projects. Many of my projects require that they run to process external data, however, when I need to work in them I need to be able to stop this auto update ability. So I made a userform that displays on open and will time out in 30s and begin the auto update.
It also has a button that allows me to actively cancel the auto update. I'll attach the modules ... you should just be able to import them ... read them ..... modify at will.CodeModules.zip
Not that knowing VBA won't make you useful. It just depends on the employer and what he/she is doing. I worked for a semiconductor manufacturer for nearly 2 decades and of that the last 9 years were programming excel. Now I'm self taught on my programming I had 2 semesters in college, fortran and a rudimentary C++, class. Neither helped me with VBA except..... how to ask questions and get answers.
- Sub ImportFiles()
- ' ImportFiles Macro
- ' Keyboard Shortcut: Ctrl+Shift+I
- Dim eRow As String
- Dim fileName As String
- Dim rowNumber As String
- Dim outputSheet As String
- Dim sheetName As String
- Dim folder As String
- Dim strPath As Variant
- Dim i As Integer
- Dim fCount As Long
- folder = "U:\Projects\Raw data\"
- outputSheet = "Dataset"
- [B][COLOR=#FF0000] fileName = dir(folder & "Test*.txt")
- do while fileName <> ""
- ' Put Your Code In This Loop
- fileName = dir()
- If Dir(folder & "*.*") = "" Then
- MsgBox "The folder doesn't contain (visible) files"
- MsgBox "Bye Bye!!"
- Exit Sub
- 'MsgBox "The folder does contain (visible) files"
- fileName = folder & "Test" & i & ".txt"
- eRow = Sheet2.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
- With Sheets(outputSheet).QueryTables.Add(Connection:="TEXT;" + fileName, Destination:=Sheets(outputSheet).Range("$A$" + eRow))
- .FieldNames = True
- .RowNumbers = False
- .FillAdjacentFormulas = False
- .PreserveFormatting = True
- .RefreshOnFileOpen = False
- .RefreshStyle = xlInsertDeleteCells
- .SavePassword = False
- .SaveData = True
- .AdjustColumnWidth = True
- .RefreshPeriod = 0
- .TextFilePromptOnRefresh = False
- .TextFilePlatform = 850
- .TextFileStartRow = 1
- .TextFileParseType = xlDelimited
- .TextFileTextQualifier = xlTextQualifierDoubleQuote
- .TextFileConsecutiveDelimiter = False
- .TextFileTabDelimiter = True
- .TextFileSemicolonDelimiter = False
- .TextFileCommaDelimiter = False
- .TextFileSpaceDelimiter = True
- .TextFileTrailingMinusNumbers = True
- .Refresh BackgroundQuery:=False
- End With
- Dim wb_conection As WorkbookConnection
- For Each wb_Connection In ActiveWorkbook.Connections
- If InStr(fileName, wb_Connection.Name) > 0 Then
- End If
- Next wb_Connection
- Next i
- End If
- MsgBox ("Done")
- End Sub
Ok .... I've added two *.bas ( module files )
Import them ..... remove stuff that doesn't compile for you ( to be quick I had to export code from working projects ) so there are function calls to other routines that I've not included.
you will probably need to rename the files to *.bas as you can not upload *.bas file extensions. I'll check back later.
Sorry been busy lately and this slipped my mind. Need to pick up son soon .. will look at the website in a jiffy.
Are you still having issues?
Well I've not done much with the API's you're using, actually never done anything. However, the issue is that because I don't have an FTP file to download I can't troubleshoot your code. Do you know of a FTP location that works that you can reference.
Have you tried changing the constant max_path?
What value is in the AlternateFileName variable?
Not sure what you're doing here. Seems like you're trying to replicate, on your own, the wrkbook I sent back? There is no code in a .xlsx file. But you did not name the activex command button object.
You need to make the "button" the activex version not the forms version.