filmov
tv
VBA Sort a table by column A
Показать описание
Sort a range on a sheet by the column A.
Code:
Sub sort_table()
Dim ws_sheet As Worksheet
Dim lastrow As Long
Dim lastcolumn As Long
'identify worksheet
Set ws_sheet = Worksheets(2)
'find the table limits
lastrow = ws_sheet.Cells(Rows.Count, 1).End(xlUp).Row
lastcolumn = ws_sheet.Cells(1, Columns.Count).End(xlToLeft).Column
'sort table based on column A
ws_sheet.Range(ws_sheet.Cells(1, 1), ws_sheet.Cells(lastrow, lastcolumn)).Sort _
key1:=ws_sheet.Range("A1"), order1:=xlAscending, Header:=xlYes
End Sub
-------------------------------
THANK YOU
-------------------------------
For watching my videos,
Your shares
And your comments!
-------------------------------
CONTACT ME
-------------------------------
-------------------------------
ONLINE COURSES
-------------------------------
-------------------------------
SOCIAL NETWORKS
-------------------------------
-------------------------------
MERCI
-------------------------------
De regarder mes vidéos,
Pour vos partages
Et vos commentaires !
-------------------------------
RENDEZ-VOUS SUR MON SITE INTERNET
-------------------------------
Retrouvez y :
- Des fichiers Excel à télécharger gratuitement
- Mes formules clés en main sur Excel avec des fichiers prêts à l'emploi
- Mes services de Consultant Optimisation, Performance et Génération d'idées
-------------------------------
AUTRES RESSOURCES EN LIGNE
-------------------------------
- Cours en ligne sur Udemy :
Suivez toutes les actualités sur mon site internet directement.
-------------------------------
DES QUESTIONS ?
-------------------------------
Laissez vos questions en commentaires ou contactez-moi directement via mes réseaux sociaux.
-------------------------------
RESEAUX SOCIAUX
-------------------------------
Pour en savoir plus sur moi et me contacter :
Code:
Sub sort_table()
Dim ws_sheet As Worksheet
Dim lastrow As Long
Dim lastcolumn As Long
'identify worksheet
Set ws_sheet = Worksheets(2)
'find the table limits
lastrow = ws_sheet.Cells(Rows.Count, 1).End(xlUp).Row
lastcolumn = ws_sheet.Cells(1, Columns.Count).End(xlToLeft).Column
'sort table based on column A
ws_sheet.Range(ws_sheet.Cells(1, 1), ws_sheet.Cells(lastrow, lastcolumn)).Sort _
key1:=ws_sheet.Range("A1"), order1:=xlAscending, Header:=xlYes
End Sub
-------------------------------
THANK YOU
-------------------------------
For watching my videos,
Your shares
And your comments!
-------------------------------
CONTACT ME
-------------------------------
-------------------------------
ONLINE COURSES
-------------------------------
-------------------------------
SOCIAL NETWORKS
-------------------------------
-------------------------------
MERCI
-------------------------------
De regarder mes vidéos,
Pour vos partages
Et vos commentaires !
-------------------------------
RENDEZ-VOUS SUR MON SITE INTERNET
-------------------------------
Retrouvez y :
- Des fichiers Excel à télécharger gratuitement
- Mes formules clés en main sur Excel avec des fichiers prêts à l'emploi
- Mes services de Consultant Optimisation, Performance et Génération d'idées
-------------------------------
AUTRES RESSOURCES EN LIGNE
-------------------------------
- Cours en ligne sur Udemy :
Suivez toutes les actualités sur mon site internet directement.
-------------------------------
DES QUESTIONS ?
-------------------------------
Laissez vos questions en commentaires ou contactez-moi directement via mes réseaux sociaux.
-------------------------------
RESEAUX SOCIAUX
-------------------------------
Pour en savoir plus sur moi et me contacter :
Комментарии