door HPvL | 09-10-2023 | Uncategorized
t Personal Shortcut menu Private Sub Workbook_Open()Dim MyMenu As Object Set MyMenu = Application.ShortcutMenus(xlWorksheetCell) _ .MenuItems.AddMenu(“This is my Custom Menu”, 1) With MyMenu.MenuItems .Add “MyMacro1”, “MyMacro1”, ,...
door HPvL | 11-11-2021 | VBA Tutorials
t Class from Table Option Explicit ‘propertiesPublic Pr_Line As IntegerPublic Pr_Key As StringPublic Pr_Group As StringPublic Pr_ERPId As StringPublic Pr_LocalName As StringPublic Pr_OneStreamId As StringPublic Pr_Type As StringPublic Pr_DV As Boolean...
door HPvL | 16-09-2021 | VBA Tutorials
t Create a Pivot Table 1 public wbTest as workbookpublic wsTable as worksheetpublic wsPiv as worksheet Sub CreatePivotTable wbTest.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=wsTable.ListObjects(“tblTest”), Version:=6).CreatePivotTable...
door HPvL | 09-05-2021 | VBA Tutorials
t Split a string Dim SplitArray() as string ‘(Dim verplicht as string) SplitArray() = Split(TeSplitsenString, “/”)For ArrCntr = LBound(SplitArray()) To UBound(SplitArray()) If Trim(SplitArray(ArrCntr)) = TestString Then …. End...
door HPvL | 05-05-2021 | VBA Tutorials
t Add aTable Application.CutCopyMode = FalsewsReport.ListObjects.Add(xlSrcRange, Range(“$A$6:$I$7”), , xlYes).Name = “FtrTable”wsReport.ListObjects(“FtrTable”).TableStyle = “TableStyleMedium10″...
door HPvL | 12-02-2021 | VBA Tutorials
Titelbalk van VBA formulier verwijderen GEPUBLICEERD: 24 DECEMBER 2020 LAATST BIJGEWERKT: 29 JANUARI 2021 Soms is het wenselijk om de gehele titelbalk van een formulier te verwijderen. Bijvoorbeeld bij het tonen van een zogenaamd ‘splash screen’ bij het...