Can't output values to cell

[John18188181]

Hi,

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

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

Pls help

[snb]

sn = cells(2,1).resize(10002,3)

for j=1 to ubound(sn)
  if instr("LuxWarChi",left(sn(j,1),3))*instr("DüsFar",left(sn(j,2),3)) then sn(j,1)=sn(j,3)
next

cells(2,8).resize(10002) = sn

[p45cal]

Cross posted in several places.

[Paul_Hossler]

Hi,

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

Pls help

Welcome to the forum

Take a minute to read the FAQs at the link in my signature, especially the parts about using CODE tags and cross-posting in other forums