Hello
I have a sheet with many rows (more than 2500) and it is necessary to report the rows of column B of the sheet "articoli" in the sheet "nomi" column A
without empty rows and in ascending order
I hope I have explained
xam
Hello
I have a sheet with many rows (more than 2500) and it is necessary to report the rows of column B of the sheet "articoli" in the sheet "nomi" column A
without empty rows and in ascending order
I hope I have explained
xam
Last edited by xam99; 01-12-2021 at 12:34 PM.
Try:
Sub CopyRange() Application.ScreenUpdating = False Dim bottomA As Long bottomA = Sheets("nomi").Range("A" & Rows.Count).End(xlUp).Row If bottomA = 1 Then bottomA = 4 Else bottomA = Sheets("nomi").Range("A" & Sheets("nomi").Rows.Count).End(xlUp).Row + 1 End If Sheets("articoli").Columns(2).SpecialCells(xlCellTypeConstants).Copy Sheets("nomi").Range("A" & bottomA) Application.ScreenUpdating = True End Sub
You can say "THANK YOU" for help received by clicking the Star symbol at the bottom left of the helper's post.
Practice makes perfect. I'm very far from perfect so I'm still practising.
Please try
Sub copysort() Sheets("articoli").Range("B6", Sheets("articoli").Cells.SpecialCells(11)).Copy Sheets("nomi").[A4] Sheets("nomi").Range("A4", Sheets("nomi").Cells.SpecialCells(11)).Sort Sheets("nomi").[A4] End Sub
Hi bo_ry
your macro works almost fine
must paste only column B of the "articles" sheet in colums A sheet "nomi"
HI mumps1 your macro must copy column B of the "articoli" sheet from the row 6 without color
Try
Sub copysort() Sheets("articoli").Range("B6:B" & Sheets("articoli").Cells.SpecialCells(11).Row).Copy Sheets("nomi").[A4] Sheets("nomi").Range("A4:A" & Sheets("nomi").Cells.SpecialCells(11).Row).Sort Sheets("nomi").[A4] End Sub
Hi bo_ry
now it works thanks
Thanks you
xam
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks