Im using information from oracle to do applications on excel. As im nothing related to IT department and I'm working on a BIG company, i did it by myself, i dont have support.
What i did is to investigate about oracleas (portal), then from my excel application i create the URL of the search i need, query it and paste on the document the table i need. I did this from months and worked great.
But now portal have been upgraded and need to do login before use it. I have some amateur knowledge about some HTML, PHP, CSS but i dont get how to fill the username and password for this new portal.
I will copy part of the code from portal that i think is the key:
<SCRIPT TYPE="text/javascript">
<!-- Comment out script For old browsers
Function setFocus()
{
However, when this is executed it returns the following error:
Run-time error '-2146697210 (800c0006)': Method 'FollowHyperlink' of object '_Workbook' failed
Clearly, I'm doing something wrong. I wondered if it had anything to do with the fact that the webpage I'm trying to open is a pdf and not html or similar, but this doesn't appear to be the issue.
I have a worksheet that changes in length. There is a formula that calculates how many pages the sheet will be. The also is a print button on the sheet that will print a coversheet "Sheets("Title")" and then it is supposed to print the data on the second sheet. Below the code I have so far... I know I am missing something, but knowing very little about macros I just can't seem to figure it out.
Filling in a webform using the code below, works fine until I add a bit to set a Value to a field name that comes from a Radio Button. I'm presuming its because it doesn't actually select the Radio Button (as seen when I step through, you can see all the other values/fields update). Updates the page with all the other values correctly updated except for changing the Park Status.
With WebBrowser1 .Navigate NMCURL Do While .Busy: DoEvents: Loop Do While .ReadyState <> 4: DoEvents: Loop With .Document.forms("CFForm_1") .PageAction.Value = "Enter" .SelectedCallID.Value = TicketNo .lastactionby.Value = UserName .ActionType.Value = ActionType .Description.Value = Description...................
I have a report that I use and right now I have a command button that prints the report x2. What I would like to do is to have it print one in color and one in grayscale. I could do this I think with two different buttons, but I would like to utilize just one. I tried creating a macro but it did not pick up the fact that I changed the properties to black and white.
I am trying to dynamically add controls to my user form based on some values in my cell. I am successfully able to create a text box dynamically but my label is not getting displayed. here is my code
Private Sub UserForm_Activate()
On Error Resume Next If (ThisWorkbook. Sheets("Sheet2").Cells(1, 8) <> "FALSE") Then Dim ctl As Control Dim ctl1 As Control
Set ctl1 = Me.Controls.Add("Forms.Label.1", ctl1, True) With ctl1
I'm missing something in my UserForm initialization code. If I fill the form out once and click 'OK' (run the code to put the form data into a sheet), when I go back into the form all the old info is still there. If I then click 'Cancel' (Unload Me) and reopen the form, the old data is cleared out. What am I missing to make it clear it out the first time?
I'm working on automating a task in internet explorer with excel. A webpage contains a form with fields. The fields have different names. I have a loop that figures out name of the field and the value I want to put into it. This is what im tying do do:
On a user form I have added a multipage Object. It has 5 pages. How can I have each page caption read "Name" Comments where "name" is pulled from a worksheet field (say Questions!C2).
So the Caption needs to pull from a field and be concatenated with the word "Comments"
I have a userform1 with multipage 1 which has 5 pages. Is it possible to select page 1 from a label on page 5. I have the following code assigned to label 18 on Page 5 but I can't get to Page 1. In fact, the code does absolutely nothing.
I have a UserForm with a MultiPage form on it. Page1 is a totals page with 3 TextBoxes. Page 2 and counting are item pages. Each page also has 3 TextBoxes (nutrients for that item).
Purpose is to add all of the values in the first TextBox on pages 2 + and place the total into the first TextBox on page 1. Repeat this for the other two TextBoxes.
The problem is that I have no way of knowing how many pages I will need!
Is there a way to add a new page to the MultiPage and copy all of the formatting and controls from the formerly last page on to it? I would like to do this with an "Add" button.
I need a macro that will print a hidden page that is linked to the page I have active.
It needs to be able to find the correct hidden page that corresponds to the active page because there are multilple pairs of the hidden/visible pages. The name of the hidden page is the same as the visible one with "printout" added to the end. When created, the sheet code names are sheetn and sheetm; n and m being consecutive numbers.
I have created a form that pops up using a macro when the form is opened. It is a simple form that uses optionbuttons in a group to select Intl or Dom.
Problems:
1) How do you get the form to close once a button is selected?
2) The user can close the form without selecting a button (the X at the top).
3) How do you get the data selected onto the excel spreadsheet?
When I view a sheet under Page Break Preview, it shows the Page numbers in the centre of the Page. While I am aware that it would not print the page number I was wondering if there is an option to remove/hide the page numbers.
I have the following code in Usertransfer and I actually want to Launch the userQuestions Form and Automatically Click the Prev Button? How can I achieve this?
I need to build an Excel application that allows a user to select and download files from a website. The files change daily. Is there a way in VBA to obtain the current list of files that are available for downloading?
I have a task that pulls out information from the website. I need to write a vba code to find the last row. Since the no of rows are always not the same. I would need the excel masters help to solve it. Just a small piece of guidance would also help me.
In my work sheet I need to find the word " Function Name: Cleaning" if this is there then I should find the occurence of the word " name". If I find that then the code should copy the values in the column after name till it sees a space ( means no value). Should copy till that and paste that in another work sheet.
The issue I am having is that the code fails if there is ever a "sheet2" left open. I need it to always target the sheet Data5m.
What seems to happen is the sheet targets the first available sheet. This book only consists of 1 sheet, but generates other sheets later, sometimes extra sheets are left open.
Microsoft Excel Objects - This Workbook code
'The following is for the Userform DataReport code
Private Sub ComboBox1_Change() 'was A, now N DataReport.ComboBox2.Clear If Data5m.FilterMode = True Then: Data5m.ShowAllData Data5m.Range("A1").AutoFilter field:=14, Criteria1:="=" & DataReport.ComboBox1.Value Call FillCombobox(Data5m.Range("X2", Data5m.Cells(Rows.Count, "X").End(xlUp)).SpecialCells(xlCellTypeVisible), DataReport.ComboBox2)
I am looking to read the source code for a website that keeps the stats for a hockey league in Sweden
For other sites i can use the code below and it works fine, but the site i am using to get the Sweden stats seem to keep the data in some type of a Java app (sorry still somewhat of a newbie) and doesn't work the same as the others
when i veiw the source code just by right clicking the page all the data i want shows up. When i try to use my code it doesn't get the stuff i want.
I have tried both objDoc.body.innerHTML and objDoc.body.outerHTML and i get different results but not the same as right clicking on the page and viewing the source, is there another command that i can use to get it all?
the website is
HTML [url]
Sub Get_Stats() Const strURIpre As String = [url] Set ie = CreateObject("internetexplorer.application") ie.Navigate strURIpre Do If ie.ReadyState = 4 Then ie.Visible = False Exit Do Else
I would like to know what code I should use that would do the following: I have a form that has a command button called "OK", when I click on the button I would like the code to run another form that I have.
I need to remove all existing page breaks in a document and add a page break every 72 rows. I've tried some similar codes from this forum with other functions that I don't need in it.
Mr.Bill provied a help by submmiting an example... i liked the example and i did try it. the example is NOT complete.. i would like to do
1. delete option [ i did it but when i did it delete the whole rows then i retype the columns again ] 2. to filter the data which are approved in another sheet
in case you did get my questions pleasae do download the [Tracker-Suggestion. zip ] in this link Find, View, And Replace Values With A Form
I'm looking to populate a series of sequential codes based on a code prefix.
Sheet 1: Master Code list Column A = Lookup Value Column B = Code Prefix
Sheet 2 - Results page Column A - list of lookup values - sorted in value order - The number of occurances varies for each value Column B - Results list
I want to populate Column B in the second sheet with a sequential code list for each different value in column A. So for the first value it would have the prefix then proceed numerically (Prefix0001, Prefix0002, Prefix0003...) then for the next value its prefix in sequence (2ndPrefix0001, 2ndPrefix0002, 2ndPrefix003...), etc
I'm wondering if there is a way to do this all in one step or else if there is a way way to number each occurance of the lookup value in the second page, in which case the code can be concatenated easily by a lookup of the code.
I suppose on the back of this there is another query - is there a way to concatenate a number where the format is 000# where the concatenated value will retain the leading zeros? I've been trying and it is stripping them out.
Whats the VBA code for transfering selections on a multi select list box to a page. ex. the list box has selections from 1 to 20 and I want to select 3,4, and 5 then on the page I want it to say 3,4,5
I'm playing with simple UserForms to get the hang of VBA. I was trying an example for the help files (Using xl2K), and this isn't working. My first challenge was figuring out that I needed to 'create' a UserForm to begin with.
I have a spreadsheet with about 30 charts on it that I would like to attach a macro to which opens the chart in a form. I've figured out how to do this last part, but am stuck on how to pass a variable to the form code which tells excel which chart to copy. Essentially what I'm doing creating a macro for each chart which would run when that chart is clicked on. This macro is identical for each chart except for the name of the chart being passed.
Sub Chart1_click() ShowChart "Chart 1" End Sub
Sub ShowChart(c As String) frmChart.Show End Sub
In the UserForm_Initialize code located in the userform module, I'd like to call the code which saves and loads the image of the clicked on chart. But here's where I'm stuck. How do I pass c to the code in the form module...e.g, how to pass c to UserForm_Intialize and to ChartZoom? Here's what I have so far...
Private Sub UserForm_Initialize(c As String) ChartZoom c End Sub
Private Sub ChartZoom(c As String)
frmChart.Show
Dim Cht As Chart Set Cht = ActiveSheet.ChartObjects(c).chart Dim CName As String CName = ThisWorkbook.Path & "cht.gif" Cht.Export Filename:=CName, FilterName:="GIF" imgCht.PictureSizeMode = fmPictureSizeModeZoom imgCht.Picture = LoadPicture(CName)
