Floris1983
Gebruiker
- Lid geworden
- 5 aug 2020
- Berichten
- 21
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!
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!
Code:
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