Array Filtered without Spaces after 1aRow

[xman2000]

Hi Partners,

Array Filtered without Spaces after 1aRow
(Edit2: i dont want use Transpose()function -- please other more eficient ways of put (transpose) the values of array to cells (2d array with space before 1oLoop)
i want have space only before First Results 1o Loop of Array, next loops i need not put spaces between results values of Loopings.
example: 1oLoop (space - filtering by 4 row2) , 2oLoop (filtering by 5 next row) , 3oLoop (filtering by 6 next row),

my code put spaces, i want remove but i am not know without remove the space of 1oLoop.
please i want the code in text here more security.

thank you.
Edit2: i dont want use Transpose()function
edit: (please other more eficient ways of put (transpose) the values of array to cells (2d array with space before 1oLoop)

ArrayLoopSpaceOneForumXman1.zip

Sub ArrayLoopSpaceOneFORUM1ok1()
''=================================================================
''=================================================================
   Dim WayPts As Range ''XMAN200 EU TINHA ESQUECIDO ESTE NAS VERSOES ANTERIORES
   Set WayPts = Range("A:B")
   
   Dim WayPtsB As Range
   Set WayPtsB = Range("B:B")
   
   Dim WayPtsA As Range
   Set WayPtsA = Range("A:A")
''=================================================================
    Dim ColunaY As Range
    Dim ColunaX As Range
    Dim ColunaXMin As Range
    
    Dim ContadorCelulas As Long
    Dim totalCells As Long
        
    Dim cel As Range
    Dim celMin As Range
   
   Set ColunaY = Range("B2:B2488") '''XMAN2000 PRECISO MUDAR PARA VINCULAR AO RANGE DE WAYPTS
   Set ColunaX = Range("A2:A2488") '''XMAN2000 PRECISO MUDAR PARA VINCULAR AO RANGE DE WAYPTS
   
   Set ColunaXMin = Range("A" & ColunaX.Row, "A" & ColunaX.Rows.Count - 1) '''XMAN2000 ESTA COLUNA PRECISA TER 1UMA CELULA LINHA A MENOS
 
   ''MsgBox "msgbox1 ColunaXMin " & ColunaXMin.Rows.Address
      
   Dim ColunaYMinRows As Long
   ColunaYMinRows = (ColunaY.Rows.Count) - 1  '''XMAN2000 ESTA COLUNA VIRA APENAS O NUMERO DA ROW E PRECISA TER 1UMA CELULA LINHA A MENOS
   ''MsgBox "msgbox2 ColunaYMinRows " & ColunaYMinRows
''---------------------------------------------------
   Dim TotalCellsRowsCount As Long
   TotalCellsRowsCount = ColunaY.Cells.Rows.Count
    ''MsgBox "TotalCellsRowsCount " & TotalCellsRowsCount
 ''=================================================================
   Dim ValorLvalue As Long
   
    For ValorLvalue = 4 To 6
    
        Dim LinhaInicialAdicional As Long
        '''LinhaInicialAdicional = LinhaInicialAdicional + 1




    Dim Rng As Range, c As Range
    Dim StudentMarks()
    Dim n As Long


     ReDim StudentMarks(1 To ColunaY.Count)
      
  For Each c In ColunaY
         


  If c.Value = ValorLvalue Then
            n = n + 1


            StudentMarks(n) = c.Row
            
  End If
  Next c
''========================================================
''========================================================
''========================================================
If StudentMarks(1) > 0 Then
End If


If StudentMarks(2) > 0 Then
End If
    
If StudentMarks(n) > 0 Then
End If
''==================================================================================
 MsgBox "StudentMarks(n)" & StudentMarks(n)
MsgBox "(n)" & n
''MsgBox "(n+n)" & n + n
''Dim LinhaInicialAdicional As Long
 LinhaInicialAdicional = LinhaInicialAdicional + 1




''For NQuant = n To n ''XMAN2000 N TO N retorna Apenas Ultimos Valores de Cada Scanline
For NQuant = 1 To n ''XMAN2000 N TO N retorna Apenas Ultimos Valores de Cada Scanline


ActiveSheet.Cells(LinhaInicialAdicional + NQuant, 3).Value = StudentMarks(NQuant)


Next


       iValueFirst = 0
       
  LinhaInicialAdicional = LinhaInicialAdicional + n
  
 n = 0  ''XMAN2000 SOLUCAO(n=0) http://www.vbaexpress.com/forum/showthread.php?59251-Array-Relative-Erase-Variables-but-Next
 
 Next ValorLvalue
 
    ' MsgBox "StudentMarks(n)" & StudentMarks(n)
 
''===================================================================================
End Sub

[SamT]

...*icialAdicional + NQuant, 3).Value = Trim(StudentMar*...)

[xman2000]

...*icialAdicional + NQuant, 3).Value = Trim(StudentMar*...)

excuse-me SamT my poor language, i am refering Blank rows in column.

i wnat only 1aRow of column blank before 1Looping, other Loopings results without blank rows between.

thanks.

excel--arraySemEspaco-ForumXman1.jpg

         ''==================================================================================
        MsgBox "StudentMarks(n)" & StudentMarks(n) 
        MsgBox "(n)" & n 
         ''MsgBox "(n+n)" & n + n
         ''Dim LinhaInicialAdicional As Long
        LinhaInicialAdicional = LinhaInicialAdicional + 1 
         
         
         
         
         ''For NQuant = n To n ''XMAN2000 N TO N retorna Apenas Ultimos Valores de Cada Scanline
        For NQuant = 1 To n ''XMAN2000 N TO N retorna Apenas Ultimos Valores de Cada Scanline
             
             
            ActiveSheet.Cells(LinhaInicialAdicional + NQuant, 3).Value = StudentMarks(NQuant) 
             
             
        Next 
         
         
        iValueFirst = 0 
         
        LinhaInicialAdicional = LinhaInicialAdicional + n 
         
        n = 0 ''XMAN2000 SOLUCAO(n=0) http://www.vbaexpress.com/forum/showthread.php?59251-Array-Relative-Erase-Variables-but-Next
         
    Next ValorLvalue 
     
     ' MsgBox "StudentMarks(n)" & StudentMarks(n)
     
     ''===================================================================================

[xman2000]

Hi all people, i attached sample file workbook in first post.

i want a way of put different number of blank rows (1 row before 1aLooping and 2 Rows before other loopings, and i will change this numbers late to 0 row and 1 row) between the result values of Looping in Colum C (number 3).


Hi all people, i attached sample file workbook in first post and image in previous post.
thank youl

edit: i want create a variable (LinhaInicialAdicional = 1) with a value number to define number of blank rows to keep before each results of loopings.

[xman2000]

i think it is a powerfull and simple array with filter, no person is interested in automating the quantitiy of blank rows of Range of cells in the resuls column?
i need a algorithm to quantity of blank rows in 1first Looping(1a row of column) and before each Looping.
Example: 1o Looping (VALUE 4) can have different quantity of blank rows of next Loopings (5, 6. VALUES)

by Loopings i am refering
PSEUDOCODE
''======================================
FOR ValorLvalue = 4 To 6
ReDim StudentMarks(1 To ColunaY.Count)
For Each c In ColunaY
If c.Value = ValorLvalue Then
n = n + 1

NEXT
''======================================
each ValorValue of each Looping (4,5,6) will searching in Column B and return variable number of values of Column A.
i need a algorithm to quantity of blank rows in 1first Looping(1a row of column) and before each Looping and desire configure other option to choose quantity of blank rows before each next row (next value returned).

i am will use this array to coordinates of charts.
thank you partners.
the sample file is attached in 1oFirst post of thread and entire code too.

[p45cal]

See attached.
Set your spaces at the top of the macro

NumberOfBlankSpacesBetweenResults = 0
LinhaInicialAdicional = 1 'number of blank rows at the top

[xman2000]

great solution,
thank you very mutch P45cal,
solved !!, closed.