Can't output values to cell

[John787878]

Hi,

I have tried everything, but my code just won't work:

Option Explicit

Sub Fly()


    
    Dim r As Integer
    Dim c As Integer
    Dim Number As Single
    Number = 10002
    ReDim Flylist(1 To Number, 1 To 3) As String
    
 
    
    For r = 1 To Number
        For c = 1 To 3
            Flylist(r, c) = Cells(r + 1, c)
        Next c
    Next r
    
    For r = 1 To Number
        For c = 1 To 3
            If ((Cells(r + 1, 1) = "Luxembourg") Or (Cells(r + 1, 1) = "Warsaw") Or (Cells(r + 1, 1) = "Chicago")) _
            And ((Cells(r + 1, 2) = "Dusseldorf") Or (Cells(r + 1, 2) = "Faroe Islands")) Then
                
            Cells(r + 1, c + 8) = Flylist(r, c)
            End If
        Next c
    Next r
End Sub

It should output following:

Chicago
Faroe Islands
DN3463

Warsaw
Faroe Islands
BC3497

Luxembourg
Faroe Islands
BF6959

Chicago
Dusseldorf
HK9783

Warsaw
Dusseldorf
VC1015

Pls help!

 

[Fluff]

I wan't my code to be printet on the worksheet, like in the sheet of johnnyL.

How is it appearing?

 

[Fluff]

Case sensitive means that Warsaw does not equal warsaw, which does not equal WARSAW

 

[John787878]

How is it appearing?

I want the following to appear on the worksheet:

Chicago
Faroe Islands
DN3463

Warsaw
Faroe Islands
BC3497

Luxembourg
Faroe Islands
BF6959

Chicago
Dusseldorf
HK9783

Warsaw
Dusseldorf
VC1015

It works when i type debug.print Flylist(r,c)

 

[Fluff]

That does not answer my question.

 

[Fluff]

Cross-posting (posting the same question in more than one forum) is not against our rules, but the method of doing so is covered by #13 of the Forum Rules.

Be sure to follow & read the link at the end of the rule too!

Cross posted at: Can't output values to cell
If you have posted the question at more places, please provide links to those as well.

If you do cross-post in the future and also provide links, then there shouldn’t be a problem.

 

[John787878]

I am sorry about that, i will read the forum rules. But the code i have written saves 10000 different flights, all with a departure city, arravial city and flight number. The code should then take all flght that have following departure cities:

Warsaw, chicago and Luxembourg

and find flights that arive in the following cities

Faroe island

Duseldorf.

With the use of the debug.print command, the following flights appeared in the immidiate window:

Chicago
Faroe Islands
DN3463

Warsaw
Faroe Islands
BC3497

Luxembourg
Faroe Islands
BF6959

Chicago
Dusseldorf
HK9783

Warsaw
Dusseldorf
VC1015

My question is why it won't post these flights in the specified cells:
Cells(r + 1, c + 8) = Flylist(r, c)

Hope this answers your question, and again sorry for the cross-posting

 

[Fluff]

Is your data in the format as JohnnyL posted in post#3?

 

[John787878]

Yes only with more citys and flightnumbers given

 

[RoryA]

And once again, what is the code doing now?

 

[John787878]

Writting the found flights in Cells(r + 1, c + 8), but its not working. The cells are blank