Type: Posts; User: westconn1
Search took 0.23 seconds.
if there are many rows, looping through all cells could be slow
is there a column with unique values?
for a large data, you can try like this using ADO
Dim cn As Connection, rs As Recordset,...
you want a message for each row? or some report of number of expired rows?
where do you have it?
r = Dir(root & Format((job \ 100) * 100, "0000") & "*", vbDirectory)
If (GetAttr(root & r) And vbDirectory) And Len(r) > 0 Then
change these line, i...
that is actually automation of outlook from excel
in either case this in not really the correct forum, i will request this thread moved
.matchfuzzy = false
does the itemadd event run at all?
maybe stick a messagebox at the start, just so you can see if it is fired
Set Msg = Item
if there is an error raised in the code,...
yes of course?
but your sample value is out of that range
Function getpath(root As String, job As String) As String
r = Dir(root & Format(job \ 100 * 100, "0000") & "*", vbDirectory)
i doubt it
it would be beneficial to have more information, like the code of the macro
does outlook run continuously or is it shutdown each day?
does the code use any global or withevent...
how do you open the workbooks?
are you doing this from someother macro or script?
open the next workbook from the code in predecessor?
put the workbook names into an array in order
i know nothing about powerpoint, but you could try
else put a break point on that line and check in the locals window all the properties of sld, drill down to...
set the wrapformat of the shape, to allow text to wrap appropriately
check help or online to find the constants used
i think i have seen a ftp server post in codebank
if you use some registry snapshot program to determine what changes are made by altering those setting, you may be able to do it by writing the registry keys from VB6, but i am sure the VB6 program...
where f is a file object and fso is a filesystem object
i wish to create a formatted email body, using CDO.message
item, qnty, value
i have no control over the receivers email client font, so can only get approximate results, using text alignment
avoid use of activecell,
try, change to
If ws.cells(i, 1) <> "" Then
ws.Range(ws.cells(i, 1), cells(lastrow, 1).copy ws2.Range("B" & DestRow)
Set VBAEditor = ThisWorkbook.VBProject
For Each VBComp In VBAEditor.VBComponents
If VBComp.Type = vbext_ct_ClassModule Or VBComp.Type = vbext_ct_StdModule Then
that is the declaration (or dimension of the variable), not assigning an object to the variable, which you were not doing
set sht = activesheet
you finish by assigning an empty variant to your function
your sht variable is never set to a worksheet object
neither of which are required
Public Function change2F(r as range) As...
do you have .txt in the textbox as part of the filename?
as you are looping sheets and looping cells within sheets, you would need to open the new workbook before starting to loop anything and make sure not to open any further workbooks within any loop,...
why can you not put an activex listbox on you worksheet?
no, the normal return to the linked cell is the index of the selected list item, the way it works can only be with a single returned value,...
if you set your gmail account to include other email addresses, you can then change the return address of the email
NOTE i have not tried this...
as far as i am aware, you would need to use an activex listbox
a forms listbox in multiselect mode is only useful for visual return
where would you like to print these?
If ws1.Cells(k, j) <> ws2.Cells(k, j) Then
wsNew.Cells(rw, 1) = ws1.Cells(k, j)
wsNew.Cells(rw, 2) =...
For cell = 1 To thisRangethis does not make sense
for cell = 1 to must be another number or a variable or cell containing a number
cell would then always then be a number, not a range object
not at all, of course you can assign values to a variable within a loop
definitely the set keyword should not be used as worksheets.count returns an integer, not an object.
the error appears to...
while not WorkbookObj1 is nothing
you can not compare anything with NULL
search in this forum or google before_navigate, should give some clues
For Each cell In WorksheetObj1.UsedRange
If cell.Value = myWorksheetObj2.Range(cell.address).Value Then
so this is not happening now?
when a link is clicked, i would believe that the browser should start navigating to the href, maybe try catching the link in the before navigate event of the browser
myWorksheetCounter is now a numeric value
you can loop through the worksheets in several ways, the two most common would be
for each sht in activeworkbook.sheets
for sh = 1 to...
DIR returns a string, do not use the SET keyword, that is for objects
depending what you want to do
if you are trying to open the fileNamePath1 then
set wb1 =...
on further investigation, i would believe your problem may be that the secondary window you are trying to find is not a child of the main application window, you would need to find more detail about...
i vaguely remember something about having to have an advanced (paid) hotmail account to allow this to work
maybe, try to avoid any spoofing of email addresses or links
sender and from should be...
the previous line to get hwnd is commented out
you should be printing the values of ret and childret
if you want help with further testing, try with some common program, that i and others would...
shouldn't that be the button's caption
i also tested after setting less secure login
same script i have had for several years,
now works with less secure, fails with more secure
i am sure there are many examples, in this forum
i did a program with vbsendmail, worked fine, but changed to mainly cdo after that
you should only need to change a few sendmail settings, mainly...
click the blue head and shoulders icon top right of page
as i am always logged in to google on several devices, (hard not to be these days), i try not to use it for anything that in any way...
Click Here to Expand Forum to Full Width
Survey posted by VBForums.