Posts by torpedo13

Hi,

I am trying to pull data from Google Flights for various flights. For example, I have included a link for a flight search between JFK-LAX between 01/09 and 01/12. I would like to be able to pull down these results on a daily/weekly basis and monitor the changes in pricing.

https://www.google.com/flights…5-01-09;r=2015-01-12;a=UA

Any thoughts on how to do this? I have tried a simple web query but the table fails to capture the results.

Thanks in advance.

Re: Subtotal on an Autofiltered List

I looked into the Pivot Table option but it does not accomplish what I am trying to do. For example, I want to only look at data from 2013 and 2014, then I want to only look at those cities whose service value is now zero, finally, I want to count the number of times those cities had their service removed.

I think a nested array formula with dynamic inputs will work, but producing the list of 50+ cities will be the annoying part.

Hi,

I am looking to add subtotals to an autofiltered list. Right now the list has over 500 records of various information on cities and will be filtered by date the record was entered (column H) and then by a dollar value (Column E). There are approximately 50 unique cities. I want to show a subtotal count for every change in the city when the list is filtered.

Thoughts? I am thinking I may need to just build a nested if statement and manually compose the list of the unique cities.

Thanks.

Re: Goodness Of Fit For Statistical Model

Sorry about the assumption there. I am looking to model a pearson's chi-square goodness of fit test.

http://en.wikipedia.org/wiki/Pearson%27s_chi-square_test

Hi,

I am trying to develop a goodness of fit test for via VBA. Before, I started the long arduous task I figured I would field the forum and see if anybody had a macro written already that took care of this. Any help would be appreciated.

Cheers.

Hello,

I have a large series of data that is updated automatically and the source range of the chart in turn is updated. That is not the problem. What I would like to do is build a function into the chart or a new chart completely where the user can indicate what date range they would like to view and the graph will show only that date range. Attached is a sample of the data that is in turn over a thousand data points.

Any assistance is greatly appreciated.

Cheers.

The following is more about how to code a certain combination/permutation in VBA.

This is the scenario: there are three possible inputs, the sum of these inputs must be 0.25%, the inputs can only be 0.25%, 0.125%, 0.833%, or 0%.

First question: How to code it to get all possible combinations?

Next layer of the scenario: With all of those combinations, if the value in the input is not zero then give it a 1 or 0.

Second question: How to code it get all possible combinations of the first question combined with all the combinations of the second question?

This is a bit of a thinker, any thoughts or suggestions would be greatly appreciated as always.

Cheers.

Re: Closing A Workbook If It Is Not A Certain Time

Solved.

Re: Closing A Workbook If It Is Not A Certain Time

Public Property Get Hour() As Integer
   ' Retrieve current time, then return hour.


   GetLocalTime sysLocalTime
   Hour = sysLocalTime.wHour
End Property












Private Sub Workbook_Open()


    If Not Hour > 7 And Hour < 9 Then
    
        Workbook.Close
    
    End If




End Sub

Re: Closing A Workbook If It Is Not A Certain Time

I'm having trouble implementing the code, I feel like a retard here.

Re: Closing A Workbook If It Is Not A Certain Time

Forgot how to code that.

I am having a brain fart on this. I am trying to have a workbook automatically close if it is not between 8:00PM and 9:00 PM on the user's computer.

I am leaning towards an ontime run but that just seems too round about.

Thoughts?

This is the scenario, I have four users who must enter numbers/guesses into a workbook. However, I do not want anybody to see the others guess until all users have entered their numbers. The workbook is shared.

Any thoughts on how to go about doing this?

Cheers.

My problem is that I have four sets of the same controls on the userform. What I am trying to do is have the code first see if the controls that Identify type are filled with a value if so then they are to run a set of code X amount of times. The X amount is suppossed to come from another control on the form. This is where my problem takes place. Each of the controls are grouped (i.e. text_1, combo_1, text_2, combo_2). If the code is looking at combo_1 I want it to also look at text_1 and pull the value out of text_1.

I provided the code below and commented where I am getting confused. If I can clarify anything please let me know.

Private Sub cmdAdd_Click()
Dim myrange As Range
Dim mycell As Range
Dim mycontrol As Control
Dim myvalue As Double


For Each mycontrol In frmIssues.Controls


    If mycontrol.Name Like "type_*" And Not mycontrol.Value = "" Then
        x = Right(mycontrol.Name, 1)
        
    'myvalue= frmissues.amt_ & x & .value
   'This is the line of code I am getting messed up on.




                Do Until myvalue = 0
        
                   Range("b19").End(xlDown).Offset(1, 0).Value = mycontrol.Visible
        
                Loop


    End If


Next




End Sub

Re: Checking To See If A Workbook Is Open

Solved.

I am trying to check to see if a workbook is open and am just drawing a blank on this simple code, any assistance would be appreciated.

cheers

I have a matrix that has variables in the rows and in the columns. Then I have a regular table. For each row in the table, I need to run a macro using the combinations in the matrix. I just don't know how to combine these two to make my macro run appropriately with the right combos for the right amount of time.

Re: Lstbox Loop Within A Loop Within A Loop

Andy this is the code I am trying for:

Private Sub cmdrun_click()
     
    Dim lngIndexLIBOR As Long
    Dim lngIndexRates As Long
     
    For lngIndexLIBOR = 0 To lstLIBOR.ListCount - 1
        If lstLIBOR.Selected(lngIndexLIBOR) Then
            For lngIndexRates = 0 To lstLoss.ListCount - 1
                If lstLoss.Selected(lngIndexRates) Then
                    
                    For Each libor In lstLIBOR.List(lngIndexLIBOR)
                        Workbooks("Breakeven_outputs.xls").Worksheets.Add
                        Workbooks("Breakeven_outputs.xls").ActiveSheet.Name = "Output" & libor
                        Range("libor_chg").Value = libor
                        x = 1
                        For Each myRate In lstLoss.List(lngIndexRates)
                        
                            Range("exp_loss").Value = myRate
                            Calculate
                            RunInvBreakevens
                            Range("breakcalc").Copy Destination:=Workbooks("Breakeven_Outputs.xls").Sheets("Output" & libor).Cells(3 * x, 2)
                            x = x * 8
                            
                        Next myRate
                    
                    Next libor
                    
                    
                End If
            Next
        End If
    Next
     
Unload Me
     
End Sub

I hope this helps point out what I am trying to do. There is another macro called runinvbreakevens that needs to have each of these variables changed before being ran.

Re: Lstbox Loop Within A Loop Within A Loop

How do I do a for each for all the items in the ListBox1.List(lngIndexA) collection?

Re: Lstbox Loop Within A Loop Within A Loop

Thanks for that quick response. Andy, how would I use that function to construct an array? I figured this would be the best way, construct an array for one variable and another array for the second.