Thanks, Bob. Yes, this is the right idea, except the number of cells is going to vary, so I would like somehow to say:
this cell OR this cell OR this cell... until the end of the occupied rows in this column
I was thinking I would have to populate an array, and started to play around with...
...If (intLineCount = 45264 Or intLineCount = 45265) Then
u = CDbl(Trim(strLineU))
v = CDbl(Trim(strLineV))
mag = Sqr(u * u + v * v)
strTSLine = strTSLine & vbTab & mag ' Adds magnitude component to timestamp row, separated by tab from previous entry...
:D I did up until sixty seconds ago!
The last If-Then-Else had a strange quirk when executing the Else condition: the code explicity states for the copied data (from fname2) to be pasted to workbook fname3; however, it was being pasted to workbook fname2 (the same workbook the data was copied...
Hi Again Macropod,
Sorry to add to that last post: I did try that 'Offset' line exactly as you had posted it first. When it bugged, then I tried altering the command to the form you see as I last posted it.
Cheers,
Marie
Hello Macropod,
Many Thanks! There were a few little adjustments I was able to make, but just one remaining problem. Maybe you could offer further thoughts on:
Workbooks(fname3).Sheets("Sheet1").Range("A1").Offset(.Cells.SpecialCells(xlCellTypeLastCell).Row, 0).Paste
It's the line right...
Hi Macropod,
It worked, yes, but still bugged at the end on the empty (displayed value) cell.
You have got tenacity and generosity of spirit, if you are willing to look at this again, or maybe just a mind for puzzles.
Thanks,
Marie
Hi Again All,
I've been at it for a few hours today with this code and have taken some steps forward and some back.
Bob: To answer your question, the contents of Row 18, Col 6 is an If-Then formula which displays within the cell a URL address. (See my most recent message before this one in...
Hello All
Thanks again for suggestions and tips, and for the great editing, macropod. Very helpful for me for learning, I went through all the edits.
The bug is still in the program though. What could the issue be at this point?
Bob Rashkin, I did try your suggestion, just to see. Same...
Thanks for responses and suggestions. I'm still having trouble, and I have read over my original post and see that I erred in describing the situation in a tiny way: I don't have '0' in the cell at which I want the loop to stop, but it's simply a blank cell displayed.
Does this change things...
Hi Yogi,
Thanks for code suggestion. Well, I tried it, but I am still gettting the same error. The error occurs at the line in my code "Workbooks.Open filename("pickme")" and this happens when the loop reaches the blank (displayed, yet containing a formula) cell. So, it seems as though it...
Hello All
Greetings Once Again,
I'm working with a 'do while' to keep looping and applying a procedure code until a blank row is found. This usually works nicely for me. In this case, however, there's a formula in the row: IF(this, then this, otherwise " ").
So there's a formula in the cell...
Hello All,
As promised, here is my final successful code. The only tiny problem I am experiencing is that although I have the Do While loop specifying to stop at an empty cell, the cells actually contain formulae, so even when empty, this do while code doesn't seem to work at stopping the...
Had success going different route. I am heading out of office, but will post my solution for future reference and curious minds on Monday.
Have a good weekend everybody
Marie
Hi Again,
Progress! (Some)
I believe I have zeroed in on the problem: When one of the URL's is navigated to in Explorer, there is a short (perhaps 1 sec or less) delay the duration of which seems to vary (on the server's side) before open/save prompt comes up.
I suspect that when the delay...
P.S. Jerry, regarding the folder creation: I lifted that code from tech-tips faq707-4116. I tried your suggestion:
'Following code is to create a folder in .datain with today's date and the station name, but only if folder doesn't already exist
'Dim fso
Dim fol As String
fol = "S:\01...
Thanks, Jerry. Thank you, Skip. Stars all around.
The program is still only working 'some of the time', however.
I used all your suggestions, Skip, except for adding the to-the-second timestamp (I like the idea, but then I can't as easily identify these files to later delete). I'm hoping...
Hello,
I have a code that works 'some of the time'. Its purpose is to hyperlink to a set of URL's (listed in a column in Excel spreadsheet), which are addresses that automatically begin downloads when navigated to.
Normally, once navigated to on the web, these sites present the surfer with...
Thank you, Jerry. I am back on the trail now.
I'm using:
[ActiveWorkbook.FollowHyperlink Address:=Range("F17"), NewWindow:=True
Now, the file will be csv Excel or it'll be zipped. Do you have any advice for how to handle this next step? Can I write it into the macro to unzip the file if...
I've written a macro to help generate a list of URLs (displayed one per cell in Excel). The number of URLs in the list and precise addresses will be different each time someone runs the macro depending on the input they give.
When navigated to, these addresses lead to a prompt for opening or...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.