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!

 

[johnnyL]

Sample of your data?

 

[johnnyL]

The reason I am asking is because I made up some data to test with and it produces results from Left to right.

Book1
	A	B	C	D	E	F	G	H	I	J	K
1
2	Chicago	Faroe Islands	DN3463						Chicago	Faroe Islands	DN3463
3	Luxembourg	AnyPlace	Test12
4	Warsaw	Faroe Islands	BC3497						Warsaw	Faroe Islands	BC3497
5	AnyCity	AnyPlace	Test12
6	Luxembourg	Faroe Islands	BF6959						Luxembourg	Faroe Islands	BF6959
7	Chicago	Dusseldorf	HK9783						Chicago	Dusseldorf	HK9783
8	Warsaw	Dusseldorf	VC1015						Warsaw	Dusseldorf	VC1015
9	AnyCity	AnyPlace	Test12
10	Luxembourg	AnyPlace	Test12
Sheet1

 

[John787878]

Yes, excactly

 

[John787878]

But does the code work with you, or did you add something i forgot?

 

[johnnyL]

I didn't change anything.

 

[John787878]

Any idea what could cause my problem? Maybe a setting or something that isnt turned on?

 

[RoryA]

Your tests are all case sensitive, if that could be the problem?

 

[Fluff]

but my code just won't work:

It would help us to help you, if you explained in what way your code doesn't work.

 

[John787878]

@Fluff I wan't my code to be printet on the worksheet, like in the sheet of johnnyL. @RoryA what do you mean with casse sensitive?