{"id":1781,"date":"2020-08-31T07:00:00","date_gmt":"2020-08-31T04:00:00","guid":{"rendered":"https:\/\/www.dataplatform.gr\/?p=1781"},"modified":"2025-04-30T13:29:30","modified_gmt":"2025-04-30T10:29:30","slug":"chrisimes-vba-roytines-sto-microsoft-excel-part-1","status":"publish","type":"post","link":"https:\/\/www.dataplatform.gr\/en\/chrisimes-vba-roytines-sto-microsoft-excel-part-1\/","title":{"rendered":"Useful VBA routines in Microsoft Excel (Part 1)"},"content":{"rendered":"

We have spoken to previous<\/a> article what is the VBA (Visual Basic for Applications)<\/strong> and what possibilities it has within Microsoft Excel<\/strong>.<\/p>\n\n\n\n

In this article we will look at some routines I have written that can be executed by calling them on a button or after an event such as when opening a file. <\/p>\n\n\n\n

Save to a new Excel file<\/h4>\n\n\n\n

With the following routine we have the possibility to save an Excel file in another new one.<\/p>\n\n\n\n

The parameters:<\/p>\n\n\n\n

    \n
  • Filename:=<\/strong> we define the file name with Format(Now())<\/strong> we have the possibility to add the current date.<\/li>\n\n\n\n
  • ActiveWorkbook.Close<\/strong> enables us to close the Excel file after saving the PDF.<\/li>\n\n\n\n
  • Application.Quit<\/strong> it closes the original Excel file without saving its changes<\/li>\n<\/ul>\n\n\n\n

    <\/p>\n\n\n\n

    Sub filesave()\n\nApplication.DisplayAlerts = False\nDim FileName As String\nFileName = ActiveWorkbook.Path & \"\\arxeio_\"\nActiveWorkbook.SaveAs (FileName & Format(Now(), \"yyyyMMdd\") & \".xlsx\"), FileFormat:= _\nxlOpenXMLWorkbook, CreateBackup:=False\n\nActiveWorkbook.Close False\nApplication.Quit\nApplication.DisplayAlerts = True\nEnd Sub\n<\/pre>\n\n\n\n
    Save Excel to PDF<\/h4>\n\n\n\n
    With the following routine we have the ability to save an Excel file to PDF<\/strong>.<\/p>\n\n\n\n
    The parameters:<\/p>\n\n\n\n
      \n
    • .Orientation <\/strong>we define whether the file will be Portrait or Landscape<\/li>\n\n\n\n
    • .PrintArea <\/strong>we define our frame, i.e. the most part we want from Excel to appear in the PDF.<\/li>\n\n\n\n
    • Filename:=<\/strong> we define the file name with Format(Now())<\/strong> we have the possibility to add the current date.<\/li>\n\n\n\n
    • ActiveWorkbook.Close<\/strong> enables us to close the Excel file after saving the PDF.<\/li>\n<\/ul>\n\n\n\n
      <\/p>\n\n\n\n
      Sub savepdf()\n\nApplication.DisplayAlerts = False\nWith ActiveSheet.PageSetup\n.Orientation = xlLandscape\n.PrintArea = \"$A$1:$G$100\"\n.PrintTitleRows = ActiveSheet.Rows(2).Address\n.Zoom = False\n.FitToPagesTall = False\n.FitToPagesWide = 1\nEnd With\nExportAsFixedFormat Type:=xlTypePDF, Filename:= _\n(\"C:\\Folder\\arxeio_\" & Format(Now(), \"yyyyMMdd\") & \".pdf\"), Quality:=xlQualityStandard, _\nIncludeDocProperties:=False, IgnorePrintAreas:=True, OpenAfterPublish:=False\n\nActiveWorkbook.Close False\nApplication.DisplayAlerts = True<\/pre>\n\n\n\n
      Delete column<\/h4>\n\n\n\n
      With the following routine we can delete from a sheet, in this case "sheet1" a specific column, e.g. the "H".<\/p>\n\n\n\n
      Sub deletecolumn()\n\nActiveWorkbook.Sheets(\"sheet1\").Range(\"H:H\").EntireColumn.Delete\n\nEnd Sub<\/pre>\n\n\n\n
      Delete sheet<\/h4>\n\n\n\n
      With the following routine we can delete sheets from Excel that we no longer need, simply by setting their names.<\/p>\n\n\n\n
      Sub sheetdel()\n\nApplication.DisplayAlerts = False\nActiveWorkbook.Sheets(\"sheet2\").Delete\nActiveWorkbook.Sheets(\"sheet3\").Delete\nActiveWorkbook.Sheets(\"sheet4\").Delete\nApplication.DisplayAlerts = True\n\nEnd Sub<\/pre>\n\n\n\n
      Convert cells to simple values<\/h4>\n\n\n\n
      Many times in Excel we use functions such as e.g. the SUM, but these are dynamic which means that if the data changes they will change as well. So when we want to keep the values frozen by eliminating the functions from which they got their value, we can do it with the following routine.<\/p>\n\n\n\n
      Sub ValuesOnly()\n\nDim ws As Worksheet    \n    For Each ws In ActiveWorkbook.Worksheets\n        ws.UsedRange.Value = ws.UsedRange.Value\n    Next ws\n    \nEnd Sub<\/pre>\n\n\n\n
      Delete button<\/h4>\n\n\n\n
      If we want to delete the button with which we call the VBA actions we can do it with the following VBA routine.<\/p>\n\n\n\n
      Sub deletebutton()\n\nActiveSheet.Shapes(\"onoma_koubiou\").Delete\n\nEnd Sub<\/pre>\n\n\n\n
      Copy the content with padding across the column<\/h4>\n\n\n\n
      In case we want to copy a cell that may contain a function or some text in the entire column, for example from cell "A2" to "A1000" as in the example, it is done with the following routine.<\/p>\n\n\n\n
      Sub filldown()\n\nWorksheets(\"sheet1\").Range(\"A2:A1000\").filldown\n\nEnd Sub<\/pre>\n\n\n\n
      Delete rows that have a specific value in some column<\/h4>\n\n\n\n
      To delete any rows that contain a certain value as in our example any rows that have the value 0 in column \u201cD\u201d in the sheet \u201csheet1\u201d we use the routine below.<\/p>\n\n\n\n
      The parameters:<\/p>\n\n\n\n
        \n
      • Sheets(\u201c\u2026\u201d).Select<\/strong> we define the friend that concerns us.<\/li>\n\n\n\n
      • Set InputRng = Range(\u2026.)<\/strong> we define where the value we want to check will be located.<\/li>\n\n\n\n
      • DeleteStr <\/strong>we define the price we are looking for.<\/li>\n<\/ul>\n\n\n\n
        <\/p>\n\n\n\n
        Sub DeleteERows()\n\nApplication.DisplayAlerts = False\nSheets(\"sheet1\").Select\nDim rng As Range\nDim InputRng As Range\nDim DeleteRng As Range\nDim DeleteStr As String\nSet InputRng = Range(\"D3\", \"D1000\")\nDeleteStr = 0\nFor Each rng In InputRng\n    If rng.Value = DeleteStr Then\n        If DeleteRng Is Nothing Then\n            Set DeleteRng = rng\n        Else\n            Set DeleteRng = Application.Union(DeleteRng, rng)\n     End If\n    End If\nNext\nDeleteRng.EntireRow.Delete\n\nApplication.DisplayAlerts = True\nEnd Sub<\/pre>\n\n\n\n
        How are they performed?<\/h3>\n\n\n\n
        When we have the code passed to Excel as we saw in the link from the previous article, we call them by adding an event to the code, e.g. when opening Excel or we call them through the code of a button when it is clicked.<\/p>\n\n\n\n
        Private Sub Koumpi_Click()\n\nCall deletebutton\nCall savepdf\nCall filesave\n\nEnd Sub<\/pre>\n\n\n\n
        This was the first part VBA routines, there will be a next article with several more. <\/p>","protected":false},"excerpt":{"rendered":"
        We have talked in a previous article about what VBA (Visual Basic for Applications) is and what possibilities it has within Microsoft Excel. In this article we will look at some routines I have written that can be executed by calling them on a button or after an event such as when the file is opened. Save to [\u2026]<\/p>","protected":false},"author":1,"featured_media":693,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[12,17],"tags":[23,38,41],"class_list":["post-1781","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-business-intelligence","category-ms-excel","tag-microsoft","tag-office-365","tag-vba"],"yoast_head":"\n\u03a7\u03c1\u03ae\u03c3\u03b9\u03bc\u03b5\u03c2 VBA \u03c1\u03bf\u03c5\u03c4\u03af\u03bd\u03b5\u03c2 \u03c3\u03c4\u03bf Microsoft Excel (Part 1) - DataPlatform.gr<\/title>\n<meta name=\"robots\" content=\"index, follow, max-snippet:-1, max-image-preview:large, max-video-preview:-1\" \/>\n<link rel=\"canonical\" href=\"https:\/\/www.dataplatform.gr\/en\/chrisimes-vba-roytines-sto-microsoft-excel-part-1\/\" \/>\n<meta property=\"og:locale\" content=\"en_US\" \/>\n<meta property=\"og:type\" content=\"article\" \/>\n<meta property=\"og:title\" content=\"\u03a7\u03c1\u03ae\u03c3\u03b9\u03bc\u03b5\u03c2 VBA \u03c1\u03bf\u03c5\u03c4\u03af\u03bd\u03b5\u03c2 \u03c3\u03c4\u03bf Microsoft Excel (Part 1) - DataPlatform.gr\" \/>\n<meta property=\"og:description\" content=\"\u0388\u03c7\u03bf\u03c5\u03bc\u03b5 \u03bc\u03b9\u03bb\u03ae\u03c3\u03b5\u03b9 \u03c3\u03b5 \u03c0\u03c1\u03bf\u03b7\u03b3\u03bf\u03cd\u03bc\u03b5\u03bd\u03bf \u03ac\u03c1\u03b8\u03c1\u03bf \u03c4\u03b9 \u03b5\u03af\u03bd\u03b1\u03b9 \u03b7 VBA (Visual Basic for Applications) \u03ba\u03b1\u03b9 \u03c4\u03b9 \u03b4\u03c5\u03bd\u03b1\u03c4\u03cc\u03c4\u03b7\u03c4\u03b5\u03c2 \u03ad\u03c7\u03b5\u03b9 \u03bc\u03ad\u03c3\u03b1 \u03c3\u03c4\u03bf Microsoft Excel. \u03a3\u03b5 \u03b1\u03c5\u03c4\u03cc \u03c4\u03bf \u03ac\u03c1\u03b8\u03c1\u03bf \u03b8\u03b1 \u03b4\u03bf\u03cd\u03bc\u03b5 \u03bc\u03b5\u03c1\u03b9\u03ba\u03ad\u03c2 \u03c1\u03bf\u03c5\u03c4\u03af\u03bd\u03b5\u03c2 \u03c0\u03bf\u03c5 \u03ad\u03c7\u03c9 \u03b3\u03c1\u03ac\u03c8\u03b5\u03b9 \u03bf\u03b9 \u03bf\u03c0\u03bf\u03af\u03b5\u03c2 \u03bc\u03c0\u03bf\u03c1\u03bf\u03cd\u03bd \u03bd\u03b1 \u03b5\u03ba\u03c4\u03b5\u03bb\u03b5\u03c3\u03c4\u03bf\u03cd\u03bd \u03ba\u03b1\u03bb\u03ce\u03bd\u03c4\u03b1\u03c2 \u03c4\u03b5\u03c2 \u03c3\u03b5 \u03ba\u03ac\u03c0\u03bf\u03b9\u03bf \u03ba\u03bf\u03c5\u03bc\u03c0\u03af \u03ae \u03bc\u03b5\u03c4\u03ac \u03b1\u03c0\u03cc \u03ba\u03ac\u03c0\u03bf\u03b9\u03bf \u03b3\u03b5\u03b3\u03bf\u03bd\u03cc\u03c2 \u03cc\u03c0\u03c9\u03c2 \u03ba\u03b1\u03c4\u03ac \u03c4\u03bf \u03ac\u03bd\u03bf\u03b9\u03b3\u03bc\u03b1 \u03c4\u03bf\u03c5 \u03b1\u03c1\u03c7\u03b5\u03af\u03bf\u03c5. \u0391\u03c0\u03bf\u03b8\u03ae\u03ba\u03b5\u03c5\u03c3\u03b7 \u03c3\u03b5 […]\" \/>\n<meta property=\"og:url\" content=\"https:\/\/www.dataplatform.gr\/en\/chrisimes-vba-roytines-sto-microsoft-excel-part-1\/\" \/>\n<meta property=\"og:site_name\" content=\"DataPlatform.gr\" \/>\n<meta property=\"article:publisher\" content=\"https:\/\/www.facebook.com\/dataplatform.gr\/\" \/>\n<meta property=\"article:published_time\" content=\"2020-08-31T04:00:00+00:00\" \/>\n<meta property=\"article:modified_time\" content=\"2025-04-30T10:29:30+00:00\" \/>\n<meta property=\"og:image\" content=\"https:\/\/www.dataplatform.gr\/wp-content\/uploads\/2020\/06\/dp_excel.png\" \/>\n\t<meta property=\"og:image:width\" content=\"1280\" \/>\n\t<meta property=\"og:image:height\" content=\"720\" \/>\n\t<meta property=\"og:image:type\" content=\"image\/png\" \/>\n<meta name=\"author\" content=\"Stratos Matzouranis\" \/>\n<meta name=\"twitter:card\" content=\"summary_large_image\" \/>\n<meta name=\"twitter:label1\" content=\"Written by\" \/>\n\t<meta name=\"twitter:data1\" content=\"Stratos Matzouranis\" \/>\n\t<meta name=\"twitter:label2\" content=\"Est. reading time\" \/>\n\t<meta name=\"twitter:data2\" content=\"4 minutes\" \/>\n<script type=\"application\/ld+json\" class=\"yoast-schema-graph\">{\"@context\":\"https:\\\/\\\/schema.org\",\"@graph\":[{\"@type\":\"Article\",\"@id\":\"https:\\\/\\\/www.dataplatform.gr\\\/chrisimes-vba-roytines-sto-microsoft-excel-part-1\\\/#article\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/www.dataplatform.gr\\\/chrisimes-vba-roytines-sto-microsoft-excel-part-1\\\/\"},\"author\":{\"name\":\"Stratos Matzouranis\",\"@id\":\"https:\\\/\\\/www.dataplatform.gr\\\/#\\\/schema\\\/person\\\/e87bf4fd02b65cb6aa0942f87245bbaf\"},\"headline\":\"\u03a7\u03c1\u03ae\u03c3\u03b9\u03bc\u03b5\u03c2 VBA \u03c1\u03bf\u03c5\u03c4\u03af\u03bd\u03b5\u03c2 \u03c3\u03c4\u03bf Microsoft Excel (Part 1)\",\"datePublished\":\"2020-08-31T04:00:00+00:00\",\"dateModified\":\"2025-04-30T10:29:30+00:00\",\"mainEntityOfPage\":{\"@id\":\"https:\\\/\\\/www.dataplatform.gr\\\/chrisimes-vba-roytines-sto-microsoft-excel-part-1\\\/\"},\"wordCount\":62,\"commentCount\":0,\"publisher\":{\"@id\":\"https:\\\/\\\/www.dataplatform.gr\\\/#organization\"},\"image\":{\"@id\":\"https:\\\/\\\/www.dataplatform.gr\\\/chrisimes-vba-roytines-sto-microsoft-excel-part-1\\\/#primaryimage\"},\"thumbnailUrl\":\"https:\\\/\\\/www.dataplatform.gr\\\/wp-content\\\/uploads\\\/2020\\\/06\\\/dp_excel.png\",\"keywords\":[\"Microsoft\",\"Office 365\",\"VBA\"],\"articleSection\":[\"Business Intelligence\",\"Microsoft Excel\"],\"inLanguage\":\"en-US\",\"potentialAction\":[{\"@type\":\"CommentAction\",\"name\":\"Comment\",\"target\":[\"https:\\\/\\\/www.dataplatform.gr\\\/chrisimes-vba-roytines-sto-microsoft-excel-part-1\\\/#respond\"]}]},{\"@type\":\"WebPage\",\"@id\":\"https:\\\/\\\/www.dataplatform.gr\\\/chrisimes-vba-roytines-sto-microsoft-excel-part-1\\\/\",\"url\":\"https:\\\/\\\/www.dataplatform.gr\\\/chrisimes-vba-roytines-sto-microsoft-excel-part-1\\\/\",\"name\":\"\u03a7\u03c1\u03ae\u03c3\u03b9\u03bc\u03b5\u03c2 VBA \u03c1\u03bf\u03c5\u03c4\u03af\u03bd\u03b5\u03c2 \u03c3\u03c4\u03bf Microsoft Excel (Part 1) - DataPlatform.gr\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/www.dataplatform.gr\\\/#website\"},\"primaryImageOfPage\":{\"@id\":\"https:\\\/\\\/www.dataplatform.gr\\\/chrisimes-vba-roytines-sto-microsoft-excel-part-1\\\/#primaryimage\"},\"image\":{\"@id\":\"https:\\\/\\\/www.dataplatform.gr\\\/chrisimes-vba-roytines-sto-microsoft-excel-part-1\\\/#primaryimage\"},\"thumbnailUrl\":\"https:\\\/\\\/www.dataplatform.gr\\\/wp-content\\\/uploads\\\/2020\\\/06\\\/dp_excel.png\",\"datePublished\":\"2020-08-31T04:00:00+00:00\",\"dateModified\":\"2025-04-30T10:29:30+00:00\",\"breadcrumb\":{\"@id\":\"https:\\\/\\\/www.dataplatform.gr\\\/chrisimes-vba-roytines-sto-microsoft-excel-part-1\\\/#breadcrumb\"},\"inLanguage\":\"en-US\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"https:\\\/\\\/www.dataplatform.gr\\\/chrisimes-vba-roytines-sto-microsoft-excel-part-1\\\/\"]}]},{\"@type\":\"ImageObject\",\"inLanguage\":\"en-US\",\"@id\":\"https:\\\/\\\/www.dataplatform.gr\\\/chrisimes-vba-roytines-sto-microsoft-excel-part-1\\\/#primaryimage\",\"url\":\"https:\\\/\\\/www.dataplatform.gr\\\/wp-content\\\/uploads\\\/2020\\\/06\\\/dp_excel.png\",\"contentUrl\":\"https:\\\/\\\/www.dataplatform.gr\\\/wp-content\\\/uploads\\\/2020\\\/06\\\/dp_excel.png\",\"width\":1280,\"height\":720},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\\\/\\\/www.dataplatform.gr\\\/chrisimes-vba-roytines-sto-microsoft-excel-part-1\\\/#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"name\":\"\u0391\u03c1\u03c7\u03b9\u03ba\u03ae\",\"item\":\"https:\\\/\\\/www.dataplatform.gr\\\/\"},{\"@type\":\"ListItem\",\"position\":2,\"name\":\"Business Intelligence\",\"item\":\"https:\\\/\\\/www.dataplatform.gr\\\/category\\\/business-intelligence\\\/\"},{\"@type\":\"ListItem\",\"position\":3,\"name\":\"Microsoft Excel\",\"item\":\"https:\\\/\\\/www.dataplatform.gr\\\/category\\\/business-intelligence\\\/ms-excel\\\/\"},{\"@type\":\"ListItem\",\"position\":4,\"name\":\"\u03a7\u03c1\u03ae\u03c3\u03b9\u03bc\u03b5\u03c2 VBA \u03c1\u03bf\u03c5\u03c4\u03af\u03bd\u03b5\u03c2 \u03c3\u03c4\u03bf Microsoft Excel (Part 1)\"}]},{\"@type\":\"WebSite\",\"@id\":\"https:\\\/\\\/www.dataplatform.gr\\\/#website\",\"url\":\"https:\\\/\\\/www.dataplatform.gr\\\/\",\"name\":\"dataplatform.gr - Sky is not the limit!\",\"description\":\"\u0398\u03b5\u03c9\u03c1\u03af\u03b1, \u03bf\u03b4\u03b7\u03b3\u03bf\u03af \u03ba\u03b1\u03b9 \u03c3\u03ba\u03ad\u03c8\u03b5\u03b9\u03c2 \u03b3\u03b9\u03b1 \u03bd\u03b1 \u03ba\u03ac\u03bd\u03b5\u03c4\u03b5 \u03c4\u03b7 \u03b4\u03bf\u03c5\u03bb\u03b5\u03b9\u03ac \u03c3\u03b1\u03c2 \u03c0\u03b9\u03bf \u03c0\u03b1\u03c1\u03b1\u03b3\u03c9\u03b3\u03b9\u03ba\u03ac \u03ba\u03b1\u03b9 \u03c0\u03b9\u03bf \u03b5\u03cd\u03ba\u03bf\u03bb\u03b1 \u03c0\u03ac\u03bd\u03c9 \u03c3\u03c4\u03b9\u03c2 \u03b2\u03ac\u03c3\u03b5\u03b9\u03c2 \u03b4\u03b5\u03b4\u03bf\u03bc\u03ad\u03bd\u03c9\u03bd, \u03c3\u03c4\u03b7\u03bd SQL, \u03c3\u03c4\u03bf Business Intelligence \u03ba\u03b1\u03b9 \u03c3\u03c4\u03b1 \u03b4\u03b5\u03b4\u03bf\u03bc\u03ad\u03bd\u03b1 \u03b3\u03b5\u03bd\u03b9\u03ba\u03cc\u03c4\u03b5\u03c1\u03b1.\",\"publisher\":{\"@id\":\"https:\\\/\\\/www.dataplatform.gr\\\/#organization\"},\"potentialAction\":[{\"@type\":\"SearchAction\",\"target\":{\"@type\":\"EntryPoint\",\"urlTemplate\":\"https:\\\/\\\/www.dataplatform.gr\\\/?s={search_term_string}\"},\"query-input\":{\"@type\":\"PropertyValueSpecification\",\"valueRequired\":true,\"valueName\":\"search_term_string\"}}],\"inLanguage\":\"en-US\"},{\"@type\":\"Organization\",\"@id\":\"https:\\\/\\\/www.dataplatform.gr\\\/#organization\",\"name\":\"dataplatform.gr\",\"url\":\"https:\\\/\\\/www.dataplatform.gr\\\/\",\"logo\":{\"@type\":\"ImageObject\",\"inLanguage\":\"en-US\",\"@id\":\"https:\\\/\\\/www.dataplatform.gr\\\/#\\\/schema\\\/logo\\\/image\\\/\",\"url\":\"https:\\\/\\\/www.dataplatform.gr\\\/wp-content\\\/uploads\\\/2020\\\/06\\\/dp_logo_wbacki.png\",\"contentUrl\":\"https:\\\/\\\/www.dataplatform.gr\\\/wp-content\\\/uploads\\\/2020\\\/06\\\/dp_logo_wbacki.png\",\"width\":322,\"height\":139,\"caption\":\"dataplatform.gr\"},\"image\":{\"@id\":\"https:\\\/\\\/www.dataplatform.gr\\\/#\\\/schema\\\/logo\\\/image\\\/\"},\"sameAs\":[\"https:\\\/\\\/www.facebook.com\\\/dataplatform.gr\\\/\",\"https:\\\/\\\/www.linkedin.com\\\/company\\\/dataplatform-gr\\\/\"]},{\"@type\":\"Person\",\"@id\":\"https:\\\/\\\/www.dataplatform.gr\\\/#\\\/schema\\\/person\\\/e87bf4fd02b65cb6aa0942f87245bbaf\",\"name\":\"Stratos Matzouranis\",\"image\":{\"@type\":\"ImageObject\",\"inLanguage\":\"en-US\",\"@id\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/ab973bc4bd1673c43d45de5633a624d9ad13c06902dfdd5a6e3fd9885903865e?s=96&d=mm&r=g\",\"url\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/ab973bc4bd1673c43d45de5633a624d9ad13c06902dfdd5a6e3fd9885903865e?s=96&d=mm&r=g\",\"contentUrl\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/ab973bc4bd1673c43d45de5633a624d9ad13c06902dfdd5a6e3fd9885903865e?s=96&d=mm&r=g\",\"caption\":\"Stratos Matzouranis\"},\"sameAs\":[\"https:\\\/\\\/www.dataplatform.gr\"],\"url\":\"https:\\\/\\\/www.dataplatform.gr\\\/en\\\/author\\\/stratos-matzouranis\\\/\"}]}<\/script>\n<!-- \/ Yoast SEO plugin. -->","yoast_head_json":{"title":"\u03a7\u03c1\u03ae\u03c3\u03b9\u03bc\u03b5\u03c2 VBA \u03c1\u03bf\u03c5\u03c4\u03af\u03bd\u03b5\u03c2 \u03c3\u03c4\u03bf Microsoft Excel (Part 1) - DataPlatform.gr","robots":{"index":"index","follow":"follow","max-snippet":"max-snippet:-1","max-image-preview":"max-image-preview:large","max-video-preview":"max-video-preview:-1"},"canonical":"https:\/\/www.dataplatform.gr\/en\/chrisimes-vba-roytines-sto-microsoft-excel-part-1\/","og_locale":"en_US","og_type":"article","og_title":"\u03a7\u03c1\u03ae\u03c3\u03b9\u03bc\u03b5\u03c2 VBA \u03c1\u03bf\u03c5\u03c4\u03af\u03bd\u03b5\u03c2 \u03c3\u03c4\u03bf Microsoft Excel (Part 1) - DataPlatform.gr","og_description":"\u0388\u03c7\u03bf\u03c5\u03bc\u03b5 \u03bc\u03b9\u03bb\u03ae\u03c3\u03b5\u03b9 \u03c3\u03b5 \u03c0\u03c1\u03bf\u03b7\u03b3\u03bf\u03cd\u03bc\u03b5\u03bd\u03bf \u03ac\u03c1\u03b8\u03c1\u03bf \u03c4\u03b9 \u03b5\u03af\u03bd\u03b1\u03b9 \u03b7 VBA (Visual Basic for Applications) \u03ba\u03b1\u03b9 \u03c4\u03b9 \u03b4\u03c5\u03bd\u03b1\u03c4\u03cc\u03c4\u03b7\u03c4\u03b5\u03c2 \u03ad\u03c7\u03b5\u03b9 \u03bc\u03ad\u03c3\u03b1 \u03c3\u03c4\u03bf Microsoft Excel. \u03a3\u03b5 \u03b1\u03c5\u03c4\u03cc \u03c4\u03bf \u03ac\u03c1\u03b8\u03c1\u03bf \u03b8\u03b1 \u03b4\u03bf\u03cd\u03bc\u03b5 \u03bc\u03b5\u03c1\u03b9\u03ba\u03ad\u03c2 \u03c1\u03bf\u03c5\u03c4\u03af\u03bd\u03b5\u03c2 \u03c0\u03bf\u03c5 \u03ad\u03c7\u03c9 \u03b3\u03c1\u03ac\u03c8\u03b5\u03b9 \u03bf\u03b9 \u03bf\u03c0\u03bf\u03af\u03b5\u03c2 \u03bc\u03c0\u03bf\u03c1\u03bf\u03cd\u03bd \u03bd\u03b1 \u03b5\u03ba\u03c4\u03b5\u03bb\u03b5\u03c3\u03c4\u03bf\u03cd\u03bd \u03ba\u03b1\u03bb\u03ce\u03bd\u03c4\u03b1\u03c2 \u03c4\u03b5\u03c2 \u03c3\u03b5 \u03ba\u03ac\u03c0\u03bf\u03b9\u03bf \u03ba\u03bf\u03c5\u03bc\u03c0\u03af \u03ae \u03bc\u03b5\u03c4\u03ac \u03b1\u03c0\u03cc \u03ba\u03ac\u03c0\u03bf\u03b9\u03bf \u03b3\u03b5\u03b3\u03bf\u03bd\u03cc\u03c2 \u03cc\u03c0\u03c9\u03c2 \u03ba\u03b1\u03c4\u03ac \u03c4\u03bf \u03ac\u03bd\u03bf\u03b9\u03b3\u03bc\u03b1 \u03c4\u03bf\u03c5 \u03b1\u03c1\u03c7\u03b5\u03af\u03bf\u03c5. \u0391\u03c0\u03bf\u03b8\u03ae\u03ba\u03b5\u03c5\u03c3\u03b7 \u03c3\u03b5 […]","og_url":"https:\/\/www.dataplatform.gr\/en\/chrisimes-vba-roytines-sto-microsoft-excel-part-1\/","og_site_name":"DataPlatform.gr","article_publisher":"https:\/\/www.facebook.com\/dataplatform.gr\/","article_published_time":"2020-08-31T04:00:00+00:00","article_modified_time":"2025-04-30T10:29:30+00:00","og_image":[{"width":1280,"height":720,"url":"https:\/\/www.dataplatform.gr\/wp-content\/uploads\/2020\/06\/dp_excel.png","type":"image\/png"}],"author":"Stratos Matzouranis","twitter_card":"summary_large_image","twitter_misc":{"Written by":"Stratos Matzouranis","Est. reading time":"4 minutes"},"schema":{"@context":"https:\/\/schema.org","@graph":[{"@type":"Article","@id":"https:\/\/www.dataplatform.gr\/chrisimes-vba-roytines-sto-microsoft-excel-part-1\/#article","isPartOf":{"@id":"https:\/\/www.dataplatform.gr\/chrisimes-vba-roytines-sto-microsoft-excel-part-1\/"},"author":{"name":"Stratos Matzouranis","@id":"https:\/\/www.dataplatform.gr\/#\/schema\/person\/e87bf4fd02b65cb6aa0942f87245bbaf"},"headline":"\u03a7\u03c1\u03ae\u03c3\u03b9\u03bc\u03b5\u03c2 VBA \u03c1\u03bf\u03c5\u03c4\u03af\u03bd\u03b5\u03c2 \u03c3\u03c4\u03bf Microsoft Excel (Part 1)","datePublished":"2020-08-31T04:00:00+00:00","dateModified":"2025-04-30T10:29:30+00:00","mainEntityOfPage":{"@id":"https:\/\/www.dataplatform.gr\/chrisimes-vba-roytines-sto-microsoft-excel-part-1\/"},"wordCount":62,"commentCount":0,"publisher":{"@id":"https:\/\/www.dataplatform.gr\/#organization"},"image":{"@id":"https:\/\/www.dataplatform.gr\/chrisimes-vba-roytines-sto-microsoft-excel-part-1\/#primaryimage"},"thumbnailUrl":"https:\/\/www.dataplatform.gr\/wp-content\/uploads\/2020\/06\/dp_excel.png","keywords":["Microsoft","Office 365","VBA"],"articleSection":["Business Intelligence","Microsoft Excel"],"inLanguage":"en-US","potentialAction":[{"@type":"CommentAction","name":"Comment","target":["https:\/\/www.dataplatform.gr\/chrisimes-vba-roytines-sto-microsoft-excel-part-1\/#respond"]}]},{"@type":"WebPage","@id":"https:\/\/www.dataplatform.gr\/chrisimes-vba-roytines-sto-microsoft-excel-part-1\/","url":"https:\/\/www.dataplatform.gr\/chrisimes-vba-roytines-sto-microsoft-excel-part-1\/","name":"\u03a7\u03c1\u03ae\u03c3\u03b9\u03bc\u03b5\u03c2 VBA \u03c1\u03bf\u03c5\u03c4\u03af\u03bd\u03b5\u03c2 \u03c3\u03c4\u03bf Microsoft Excel (Part 1) - DataPlatform.gr","isPartOf":{"@id":"https:\/\/www.dataplatform.gr\/#website"},"primaryImageOfPage":{"@id":"https:\/\/www.dataplatform.gr\/chrisimes-vba-roytines-sto-microsoft-excel-part-1\/#primaryimage"},"image":{"@id":"https:\/\/www.dataplatform.gr\/chrisimes-vba-roytines-sto-microsoft-excel-part-1\/#primaryimage"},"thumbnailUrl":"https:\/\/www.dataplatform.gr\/wp-content\/uploads\/2020\/06\/dp_excel.png","datePublished":"2020-08-31T04:00:00+00:00","dateModified":"2025-04-30T10:29:30+00:00","breadcrumb":{"@id":"https:\/\/www.dataplatform.gr\/chrisimes-vba-roytines-sto-microsoft-excel-part-1\/#breadcrumb"},"inLanguage":"en-US","potentialAction":[{"@type":"ReadAction","target":["https:\/\/www.dataplatform.gr\/chrisimes-vba-roytines-sto-microsoft-excel-part-1\/"]}]},{"@type":"ImageObject","inLanguage":"en-US","@id":"https:\/\/www.dataplatform.gr\/chrisimes-vba-roytines-sto-microsoft-excel-part-1\/#primaryimage","url":"https:\/\/www.dataplatform.gr\/wp-content\/uploads\/2020\/06\/dp_excel.png","contentUrl":"https:\/\/www.dataplatform.gr\/wp-content\/uploads\/2020\/06\/dp_excel.png","width":1280,"height":720},{"@type":"BreadcrumbList","@id":"https:\/\/www.dataplatform.gr\/chrisimes-vba-roytines-sto-microsoft-excel-part-1\/#breadcrumb","itemListElement":[{"@type":"ListItem","position":1,"name":"\u0391\u03c1\u03c7\u03b9\u03ba\u03ae","item":"https:\/\/www.dataplatform.gr\/"},{"@type":"ListItem","position":2,"name":"Business Intelligence","item":"https:\/\/www.dataplatform.gr\/category\/business-intelligence\/"},{"@type":"ListItem","position":3,"name":"Microsoft Excel","item":"https:\/\/www.dataplatform.gr\/category\/business-intelligence\/ms-excel\/"},{"@type":"ListItem","position":4,"name":"\u03a7\u03c1\u03ae\u03c3\u03b9\u03bc\u03b5\u03c2 VBA \u03c1\u03bf\u03c5\u03c4\u03af\u03bd\u03b5\u03c2 \u03c3\u03c4\u03bf Microsoft Excel (Part 1)"}]},{"@type":"WebSite","@id":"https:\/\/www.dataplatform.gr\/#website","url":"https:\/\/www.dataplatform.gr\/","name":"dataplatform.gr - Sky is not the limit!","description":"\u0398\u03b5\u03c9\u03c1\u03af\u03b1, \u03bf\u03b4\u03b7\u03b3\u03bf\u03af \u03ba\u03b1\u03b9 \u03c3\u03ba\u03ad\u03c8\u03b5\u03b9\u03c2 \u03b3\u03b9\u03b1 \u03bd\u03b1 \u03ba\u03ac\u03bd\u03b5\u03c4\u03b5 \u03c4\u03b7 \u03b4\u03bf\u03c5\u03bb\u03b5\u03b9\u03ac \u03c3\u03b1\u03c2 \u03c0\u03b9\u03bf \u03c0\u03b1\u03c1\u03b1\u03b3\u03c9\u03b3\u03b9\u03ba\u03ac \u03ba\u03b1\u03b9 \u03c0\u03b9\u03bf \u03b5\u03cd\u03ba\u03bf\u03bb\u03b1 \u03c0\u03ac\u03bd\u03c9 \u03c3\u03c4\u03b9\u03c2 \u03b2\u03ac\u03c3\u03b5\u03b9\u03c2 \u03b4\u03b5\u03b4\u03bf\u03bc\u03ad\u03bd\u03c9\u03bd, \u03c3\u03c4\u03b7\u03bd SQL, \u03c3\u03c4\u03bf Business Intelligence \u03ba\u03b1\u03b9 \u03c3\u03c4\u03b1 \u03b4\u03b5\u03b4\u03bf\u03bc\u03ad\u03bd\u03b1 \u03b3\u03b5\u03bd\u03b9\u03ba\u03cc\u03c4\u03b5\u03c1\u03b1.","publisher":{"@id":"https:\/\/www.dataplatform.gr\/#organization"},"potentialAction":[{"@type":"SearchAction","target":{"@type":"EntryPoint","urlTemplate":"https:\/\/www.dataplatform.gr\/?s={search_term_string}"},"query-input":{"@type":"PropertyValueSpecification","valueRequired":true,"valueName":"search_term_string"}}],"inLanguage":"en-US"},{"@type":"Organization","@id":"https:\/\/www.dataplatform.gr\/#organization","name":"dataplatform.gr","url":"https:\/\/www.dataplatform.gr\/","logo":{"@type":"ImageObject","inLanguage":"en-US","@id":"https:\/\/www.dataplatform.gr\/#\/schema\/logo\/image\/","url":"https:\/\/www.dataplatform.gr\/wp-content\/uploads\/2020\/06\/dp_logo_wbacki.png","contentUrl":"https:\/\/www.dataplatform.gr\/wp-content\/uploads\/2020\/06\/dp_logo_wbacki.png","width":322,"height":139,"caption":"dataplatform.gr"},"image":{"@id":"https:\/\/www.dataplatform.gr\/#\/schema\/logo\/image\/"},"sameAs":["https:\/\/www.facebook.com\/dataplatform.gr\/","https:\/\/www.linkedin.com\/company\/dataplatform-gr\/"]},{"@type":"Person","@id":"https:\/\/www.dataplatform.gr\/#\/schema\/person\/e87bf4fd02b65cb6aa0942f87245bbaf","name":"Stratos Matzouranis","image":{"@type":"ImageObject","inLanguage":"en-US","@id":"https:\/\/secure.gravatar.com\/avatar\/ab973bc4bd1673c43d45de5633a624d9ad13c06902dfdd5a6e3fd9885903865e?s=96&d=mm&r=g","url":"https:\/\/secure.gravatar.com\/avatar\/ab973bc4bd1673c43d45de5633a624d9ad13c06902dfdd5a6e3fd9885903865e?s=96&d=mm&r=g","contentUrl":"https:\/\/secure.gravatar.com\/avatar\/ab973bc4bd1673c43d45de5633a624d9ad13c06902dfdd5a6e3fd9885903865e?s=96&d=mm&r=g","caption":"Stratos Matzouranis"},"sameAs":["https:\/\/www.dataplatform.gr"],"url":"https:\/\/www.dataplatform.gr\/en\/author\/stratos-matzouranis\/"}]}},"_links":{"self":[{"href":"https:\/\/www.dataplatform.gr\/en\/wp-json\/wp\/v2\/posts\/1781","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.dataplatform.gr\/en\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.dataplatform.gr\/en\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.dataplatform.gr\/en\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.dataplatform.gr\/en\/wp-json\/wp\/v2\/comments?post=1781"}],"version-history":[{"count":3,"href":"https:\/\/www.dataplatform.gr\/en\/wp-json\/wp\/v2\/posts\/1781\/revisions"}],"predecessor-version":[{"id":5897,"href":"https:\/\/www.dataplatform.gr\/en\/wp-json\/wp\/v2\/posts\/1781\/revisions\/5897"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/www.dataplatform.gr\/en\/wp-json\/wp\/v2\/media\/693"}],"wp:attachment":[{"href":"https:\/\/www.dataplatform.gr\/en\/wp-json\/wp\/v2\/media?parent=1781"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.dataplatform.gr\/en\/wp-json\/wp\/v2\/categories?post=1781"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.dataplatform.gr\/en\/wp-json\/wp\/v2\/tags?post=1781"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}