Last row does not show. 44 names bt i see 43 [Closed]

Report
Posts
1
Registration date
Wednesday October 22, 2014
Status
Member
Last seen
October 22, 2014
-
The function below , leaves there the last name (in column) in excel

Private Function GetNameList() As String()
Dim names() As String

Dim quarter1Names() As Variant
quarter1Names = Range(COL_QUARTER1 & CStr(FIRST_DATA_ROW) & ":" & COL_QUARTER1 & CStr((GetLastRowOfColumn(COL_QUARTER1, SHEET_SUMMARY) - 1))).value

ReDim names(UBound(quarter1Names) - LBound(quarter1Names))

Dim i As Integer
For i = LBound(quarter1Names) To UBound(quarter1Names)
names(i - 1) = quarter1Names(i, 1)
Next i


Dim quarter2Names() As Variant
quarter2Names = Range(COL_QUARTER2 & CStr(FIRST_DATA_ROW) & ":" & COL_QUARTER2 & CStr((GetLastRowOfColumn(COL_QUARTER2, SHEET_SUMMARY) - 1))).value

Dim quarter3Names() As Variant
quarter3Names = Range(COL_QUARTER3 & CStr(FIRST_DATA_ROW) & ":" & COL_QUARTER3 & CStr((GetLastRowOfColumn(COL_QUARTER3, SHEET_SUMMARY) - 1))).value


For i = LBound(quarter2Names) To UBound(quarter2Names)
If Not ItemExistsInArray(quarter2Names(i, 1), names) Then
ReDim Preserve names(UBound(names) + 1)
names(UBound(names)) = quarter2Names(i, 1)
End If
Next i

For i = LBound(quarter3Names) To UBound(quarter3Names)
If Not ItemExistsInArray(quarter3Names(i, 1), names) Then
ReDim Preserve names(UBound(names) + 1)
names(UBound(names)) = quarter3Names(i, 1)
End If
Next i

QuickSort names, LBound(names), UBound(names)

GetNameList = names

End Function



The list is a follows, it divided in 3 parts quarter1Names, quarter2Names, quarter3Names as below

quarter1Names

ANDREW SSOZI
BENADETTE KYOMUGISHA
CAROL NAMUBIRU
CHARLES KARUHANGA
CLAIRE AYESIGA
D COLLECTOR
DANIEL MURUNGI
EVA MUGALA
EVELYN KOBUSINGE
FAIMA DAGIRU
FRANCIS KATONGOLE
FRANCIS LUUTU
FRED MATOVU
GETRUDE ZAKE MUGAMBWA
HAMUZA MWERERI
HELLEN NANNOZI
HENRY KYANSANKU
IBRAHIM LITUNYA
IMMACULATE MUGARUKIRA
IRENE KOSE
ISMAIL LUBOWA
ISMAIL MUSOBYA
IVAN BUSISA
JEFF MURENGYE
JIMMY LUYIMA
JOAB RUTAKOBA
JOSEPH LUMUNYE
LILIAN NABBOSA MUBIRU
LILLIAN KABABIITO
PIA NASSNGA
ROBERT KIKONYOGO
SAM EKALAM OKIRIA
THOMAS MUGABE
YONA OPENDUN
ZAMULAH NAKUYA



quarter2Names

ALLAN KAGORO KAITU
ANDREW SSOZI
BENADETTE KYOMUGISHA
CAROL NAMUBIRU
CATHERINE KIWUMULO
CHARLES ALEX MOGGA
CHARLES KARUHANGA
CLAIRE AYESIGA
D COLLECTOR
DANIEL MURUNGI
ERON MATEGA
EVA MUGALA
EVELYN KOBUSINGE
FAIMA DAGIRU
FRANCIS KATONGOLE
FRANCIS LUUTU
FRED MATOVU
GLORIA NALUBWAMA
HAMUZA MWERERI
HELLEN NANNOZI
HENRY KYANSANKU
IBRAHIM LITUNYA
IMMACULATE MUGARUKIRA
IRENE KOSE
ISMAIL LUBOWA
ISMAIL MUSOBYA
IVAN BUSISA
JACKIE NDAGIRE
JEFF MURENGYE
JIMMY LUYIMA
JOAB RUTAKOBA
JOSEPH LUMUNYE
LILIAN NABBOSA MUBIRU
LILLIAN KABABIITO
PAUL BAMUBINGIRIRE
PAUL MUYIMBWA
PIA NASSNGA
ROBERT KIKONYOGO
RONALD MWESGWA
RONNIE KALULE
THOMAS MUGABE
YONA OPENDUN
ZAMULAH NAKUYA


quarter3Names

ALLAN KAGORO KAITU
ANDREW SSOZI
BENADETTE KYOMUGISHA
CAROL NAMUBIRU
CATHERINE KIWUMULO
CHARLES ALEX MOGGA
CHARLES KARUHANGA
CLAIRE AYESIGA
D COLLECTOR
DANIEL MURUNGI
ERON MATEGA
EVA MUGALA
EVELYN KOBUSINGE
FAIMA DAGIRU
FRANCIS KATONGOLE
FRANCIS LUUTU
FRED MATOVU
GLORIA NALUBWAMA
HAMUZA MWERERI
HELLEN NANNOZI
HENRY KYANSANKU
IBRAHIM LITUNYA
IMMACULATE MUGARUKIRA
IRENE KOSE
ISMAIL LUBOWA
ISMAIL MUSOBYA
IVAN BUSISA
JACKIE NDAGIRE
JEFF MURENGYE
JIMMY LUYIMA
JOAB RUTAKOBA
JOSEPH LUMUNYE
LILIAN NABBOSA MUBIRU
LILLIAN KABABIITO
PAUL BAMUBINGIRIRE
PAUL MUYIMBWA
PIA NASSNGA
ROBERT KIKONYOGO
RONALD MWESGWA
RONNIE KALULE
THOMAS MUGABE
YONA OPENDUN
ZAMULAH NAKUYA

Subscribe To Our Newsletter!

The Best of CCM in Your Inbox

Subscribe To Our Newsletter!