Snasui Excel Forum

Code: Select all

Public Sub pullmonth1()
Dim i As Integer, x As Integer
Dim month() As String
 Dim comparecommit() As Integer
Dim no_c As Single, no_d As Single, sum As Single, total As Single

    i = 1
     no_d = 0
    Do Until Worksheets("MONTH").Cells(i + 1, 1).Value = ""
        
        i = i + 1
        no_d = no_d + 1
        
    Loop
ReDim month(1 To no_d)

i = 1
    For i = 1 To no_d ' collection with array sheet : MPS COMPARE
       month(i) = Worksheets("MONTH").Cells(1 + i, 1).Value
     
Next i
i = 1
For i = 1 To no_d



ActiveWorkbook.Sheets("MPS COMPARE").Activate
        If Worksheets("MPS COMPARE").Cells(6, 2 + i).Value = "" Then
            Worksheets("MPS COMPARE").Cells(6, 2 + i).Value = Worksheets("MONTH").Cells(1 + i, 1).Value

 
               End If
                  
                          Next i
              
      
End Sub

Code: Select all

If Worksheets("MPS COMPARE").Cells(6, 2 + i).Value = "" Then
    Worksheets("MPS COMPARE").Cells(6, 2 + i).NumberFormat = "@"
    Worksheets("MPS COMPARE").Cells(6, 2 + i).Value = Worksheets("MONTH").Cells(1 + i, 1).Value
End If