Type: Posts; User: westconn1
Search took 0.23 seconds.
if you are doing this in 2010, it would appear to be a known problem in specificationname see
have you already created the specificationname in access?
this is the workbook sheetchange event, check thisworkbook code pane
cover all sheets in a workbook
i would assume that in all cases that the activesheet would be returned in SH...
what field types are you using for your document properties?
unless you are using some numeric name for your customdocumentproperties, the above will not work, assuming your field indexes are in...
i would assume that if you want to disable copy item on menu, you would probably also want to disable the standard toolbar button as well
i only have excel 2000 on my computer, excel 2013 on a...
i tested on 2013, index of in-built menus is 37, i found there to be 3 edit menus within the built-in menus
test code worked correctly, but i am unsure if any menus are used (displayed) in this...
this is not a valid file name, file names can not contain wildcard characters, if you want to work with all files in a folder named
G:\Finance, Performance & Business Planning\Management...
you can use filesystemobject
if you search application.filesearch alternative you should find several alternatives with code
your workbook opens OK for me, but i can not test the included result, i will look, later, if i have a newer version of excel on any machine,
the value of 90 i used earlier was the index of the...
i tested initially using
For Each cbBar In Application.CommandBars
Debug.Print cbBar.Name, cbBar.Index
Nextwhich gave me the index value of 90 for Built-in Menus
what is the content of m_var when the code runs?
what code are you using now to send the emails?
in outlook, each attachment has to be added to the email
check if the index of 90 is correct for the built-in menus for your version of excel
it worked correctly when i tested
do the names of controls change in different language...
what is the typename of myitems(itemcount) when the error occurs?
perhaps some other type has arrived in your folder that does not match any of the existing criteria, better to change to
C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL
or whatever updated install path
have you tried running the program elevated?
or try creating an new object withevents, rather than from one that is created without events
you can try liike
Set zb = Application.CommandBars(90)
Set xb = zb.FindControl(, 30003)
For Each yb In xb.Controls
If yb.ID = 19 Then yb.Enabled = True
i will look later, if you send the login
write the result out as part of an html page and display in browser,
just does not make any sense to do so, unless it is to apply...
you could either test for null value using isnull
or easier add a vbnullstring to the return like
strPA = objPA.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x10910040") & vbnullstring...
it works for me, when testing, it may depend what is contained in the paragraph
for each p in activedocument.paragraphs
if left(p.range.text, 1) = "Q" then
p.range.font.bold = true
p.leftindent = 5
nexti did not test this
another select case would be better than all the or ifs
the sample i posted in #4 should work like that anyway
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cell As Range
If Target.Column = 1 Then
Set Cell = Target.Offset(0, 1)
If Len(Target.Value) = 0 Then
is that the full procedure?
or is wordobject defined globally?
was there any other versions of word previously installed on the windows7 box?
remove on error resume next to see any error...
how many names in the real list?
for the number in the example a select case would work ok, but if a big list maybe some worksheet function
forgot, i stuck cells.select in your posted code
If Target.Value <> " " Then
what is happening now? what specific problems are you having?
apart from not in red this is very close to the current operation, for all values in column A, easy enough to put a select case to...
not enough information (code)
what is wordobject?
is it dimensioned globally?
how is it initialised?
what references are you using to word application?
at which point in the code?
sorry, missed that you were writing .csv file (assumed .txt)
your original code should have put the details into separate columns when opened in excel
works correctly when i test
you could try separating the file details with a tab like
ObjOutFile.WriteLine("File," & vbtab & ObjFile.Name & "," & vbtab & ObjFile.Path) , but if you want properly aligned columns that would be...
Filename:="S:mypath\" & format(date, "mmddyy") & ".pri"
try adding like
Set abi = ie.document.getelementbyid("risultato").all("iban")
Loop While abi Is Nothing
Set t = ie.document.all("table3")
MsgBox abi.Value & vbNewLine &...
i guess you want to fill an online form and save the returned data, i am sure this is quite possible to do
google usually has AUP, which may not allow such, or at least discourage automating...
i would have though you could have managed that part by now
Set ie = CreateObject("InternetExplorer.Application")
do until ie.readyState = 4...
try removing the +1 from the offset, do you have the code posted within the for loop you posted originally?
correct, as suggested above, post a sample workbook, zip first
Click Here to Expand Forum to Full Width
Survey posted by VBForums.