Snasui Excel Forum

Code: Select all

Function showmonthmps()
Dim i As Integer, x As Integer
Dim month() As String
Dim 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


       If Worksheets("MPS COMPARE").Cells(6, 2 + i).Value = "" Then
       'MPS1
     
    Worksheets("MPS COMPARE").Cells(6, 2 + i).NumberFormat = "@"
    Worksheets("MPS COMPARE").Cells(6, 2 + i).Value = Worksheets("MONTH").Cells(1 + i, 1).Value
    
[color=#FF0000]Columns("D:D").Select
   
      Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
   'end frist month show commit
   Call comparefmonth1mps1[/color]End If
                  
                          Next i
End Function

Code: Select all

Public Sub showmonthmps()
Dim i As Integer, x As Integer
Dim month() As String
Dim 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


       If Worksheets("MPS COMPARE").Cells(6, 2 + i).Value = "" Then
       'MPS1
     
    Worksheets("MPS COMPARE").Cells(6, 2 + i).NumberFormat = "@"
    Worksheets("MPS COMPARE").Cells(6, 2 + i).Value = Worksheets("MONTH").Cells(1 + i, 1).Value
    
Columns("D:D").Select
   
      Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
   'end frist month show commit
   Call comparefmonth1mps1
End If
                  
                          Next i
End Sub

Code: Select all

Sub test()
    Dim rAll As Range
    Dim i As Integer
    With Sheets("MPS COMPARE")
        Set rAll = .Range("c6", .Cells(6, Columns.Count).End(xlToLeft))
    End With
    For i = rAll.Count To 2 Step -1
        rAll(i).EntireColumn.Insert
    Next i
End Sub

Code: Select all

Public Sub compare11()
Call insertcolumns
Call compareprocap
Call comparefmonth1mps1
End Sub