Data are not one below the other

[marreco]

Hi

Way happening it..?
My code get values other sheet, but get formulas and paste value.
Afte this, some cells are empty, but the next data pasted, it is not below the other data.
Try execute my code multiple times.

Sub strange_empty_cells()
    Application.ScreenUpdating = 0
        Worksheets("Dados").Range("X2:AA11").Copy
        Worksheets("Indice").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
        Application.CutCopyMode = False
    Application.ScreenUpdating = 1
End Sub

Thank you!!

 

[Pavan.Sada.PS]

Hello Marreco,

Try This....

Sub strange_empty_cells()
    Application.ScreenUpdating = 0
    Dim MyRange As Excel.Range, Cell, Addss As String
    Set MyRange = Worksheets("Dados").Range("X2:X11")
   
    For Each Cell In MyRange
        If Len(Cell) >= 1 And Cell.Value <> "" Then
        Addss = Cell.Address
        Worksheets("Dados").Range(Addss, Worksheets("Dados").Range(Addss).Offset(, 3)).Copy
        Worksheets("Indice").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
        Application.CutCopyMode = False
       
        End If
       
    Next Cell
    Application.ScreenUpdating = 1
End Sub

 

[NARAYANK991]

Hi ,

Try this :

Sub no_more_empty_cells()
    Application.ScreenUpdating = 0
    lastrow = Application.Match("", Worksheets("Dados").Range("X:X"), 0) - 1
    Set Rng = Worksheets("Dados").Range("X2:AA" & lastrow)
    Rng.Copy
    Worksheets("Indice").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    Application.ScreenUpdating = 1
End Sub

 

[marreco]

Hi
NARAYANK991 and Pavan.Sada.PS

very good!!!

Thank you both!!!