VBA Excel Entry toevoegen aan tabel en sorteren

[Floris1983]

Goedemorgen,

In een database heb ik de volgende code geprogrammeerd, deels opgenomen, deels zelf en aangepast omdat ik nog geen VBA pro ben...

Zou iemand de onderstaande code eens willen bekijken en evt verkorten? Ik krijg het met mijn kennis momenteel niet voor elkaar. For own interest, zou een uitleg erbij helemaal mooi zijn.

Alvast weer hartelijk dank!

Public Sub Add_Chart()

If (MsgBox("Are you sure to add chart to chartlist", vbOKCancel, "Toucan Maritime") = vbOK) Then

    Range("AA10:AF10").Select
    Selection.Copy
    Sheets("DATA").Select
    Range("B1005:H1005").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        Application.CutCopyMode = False
        Worksheets("DATA").ListObjects("Chartlist_data").Sort.SortFields _
        .Add2 Key:=Range("Chartlist_data[[#All],[Number]]"), SortOn:=xlSortOnValues _
        , Order:=xlAscending, DataOption:=xlSortNormal
    With Worksheets("DATA").ListObjects("Chartlist_data").Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
 Sheets("Add_Chart").Select
Range("H10:H17").Select
Selection.ClearContents
Range("H10").Select
End If
With MsgBox("Chart succesfull added to chartlist", vbOKOnly, "Toucan Maritime") = Endwith
End With
End Sub

 

[HSV]

Zoals ik het beoordeel doe je een copy naar B1005:H1005 zodat het lekker ver onderaan komt.
Daar doe je dan een sortering op zodat je de boel weer bij elkaar hebt.

Die procedure is helemaal niet nodig door je listobject zo groot te houden als er gegevens zijn en uit te breiden en anders programmeren.

Begin met het plaatsen van een voorbeeldbestand; er is vast wel iemand die je code dan aan wil passen.

 

[Floris1983]

Hoi Harry,

Zoals u het omschrijft klopt het helemaal, ik zal even een voorbeeld maken.