{"id":1786,"date":"2020-11-24T07:00:00","date_gmt":"2020-11-24T04:00:00","guid":{"rendered":"https:\/\/www.dataplatform.gr\/?p=1786"},"modified":"2024-07-01T17:53:04","modified_gmt":"2024-07-01T14:53:04","slug":"chrisimes-vba-roytines-sto-microsoft-excel-part-2","status":"publish","type":"post","link":"https:\/\/www.dataplatform.gr\/en\/chrisimes-vba-roytines-sto-microsoft-excel-part-2\/","title":{"rendered":"Useful VBA routines in Microsoft Excel (Part 2)"},"content":{"rendered":"

Following the previous article<\/a> we'll see some more routines VBA (Visual Basic for Applications)<\/strong> which we have the ability to use at Microsoft Excel<\/strong>. <\/p>\n\n\n\n

These routines can be executed by calling them on a button or after an event such as when the file is opened.<\/p>\n\n\n\n

Delete all rows that have a blank cell<\/h4>\n\n\n\n

With the following routine we can delete as many lines as the cell in a particular column has a blank space. E.g. Column \u201cA\u201d in sheet \u201csheet1\u201d:<\/p>\n\n\n\n

Sub DeleteERowsOther()\n\n    Sheets(\"sheet1\").Select\n    Range(\"A3:A1000\").Select\n    Selection.SpecialCells(xlCellTypeBlanks).EntireRow.Delete\n\nEnd Sub\n<\/pre>\n\n\n\n
Run cmd (command prompt) \/ Putty commands through Excel<\/h4>\n\n\n\n
With the following routine we have the possibility to execute a file with commands or to run commands directly. In the example we call plink.cmd(Putty) and then call to save a Google ping to a folder. With the \/k parameter after execution the window will remain open:<\/p>\n\n\n\n
Sub callcmd()\n\nApplication.DisplayAlerts = False\nDim FileName As String\n\nFileName = ActiveWorkbook.Path & \"\\plink.cmd \/c \"  'gia ektelesi etoimou arxeiou\nShell FileName\n\nShell \"cmd.exe \/c ping google.com\" & \" && cd\\Users\\Username\\Desktop\" & \" &&mkdir tester\"   'gia apeutheias cmd commands\n'me \/k  to parathiro cmd den tha kleisei\n\n Application.DisplayAlerts = True\nEnd Sub\n<\/pre>\n\n\n\n
Direct execution of cmd file (command prompt) through Excel<\/h4>\n\n\n\n
A simpler approach to the previous routine to directly execute a ready-made cmd file. The file should just be in the same path as Excel and all we need to parameterize is the name in the parameter shellCommand<\/strong>:<\/p>\n\n\n\n
Sub runbat()\n\nApplication.DisplayAlerts = False\nDim folderPath As String\nDim shellCommand As String\n\nfolderPath = Application.ActiveWorkbook.Path\n\nshellCommand = \"\"\"\" & folderPath & \"\\\" & \"Arxeio.bat\" & \"\"\"\"\n\nCall Shell(shellCommand, vbNormalFocus)\nEnd Sub<\/pre>\n\n\n\n
Import text file into Excel cells<\/h4>\n\n\n\n
With the following routine we can insert a txt file into an Excel sheet.<\/p>\n\n\n\n
The parameters:<\/p>\n\n\n\n
    \n
  • Filename:=<\/strong>\u00a0we define the name of the file.<\/li>\n\n\n\n
  • Set wsI = wbI.Sheets(\u201c\u2026\u201d)<\/strong>\u00a0the name of the sheet where the data will be placed.<\/li>\n\n\n\n
  • Set wbO = Workbooks.Open(FileName, Format:=3)<\/strong>\u00a0what delimiter will we use with 3 being space and 4 being semicolon.<\/li>\n<\/ul>\n\n\n\n
    <\/p>\n\n\n\n
    Sub importtxt()\n\n   Dim wbI As Workbook, wbO As Workbook\n    Dim wsI As Worksheet\n    Dim FileName As String\n    FileName = ActiveWorkbook.Path & \"\\apotelesmata.txt\"\n    Set wbI = ThisWorkbook\n    Set wsI = wbI.Sheets(\"apotelesmata\") '<~~ To fyllo p tha topothetithoun\n    wsI.Range(\"A1:AT1000\").Clear\n        '3 = space 4 = semicolon\n    Set wbO = Workbooks.Open(FileName, Format:=3)\n    wbO.Sheets(1).Cells.Copy wsI.Cells\nwbO.Close SaveChanges:=False\n\nEnd Sub<\/pre>\n\n\n\n
    Freeze execution of the following routines for x time<\/h2>\n\n\n\n
    With the following routine we can freeze the execution of the following routines for x time. We may want a reasonable amount of time for the previous one to be completed. E.g. as in the example 30 seconds:<\/p>\n\n\n\n
    Sub WaitTimer()\n\n Application.DisplayAlerts = False\n\nApplication.Wait (Now + TimeValue(\"0:00:30\"))\n\nApplication.DisplayAlerts = True\nEnd Sub\n<\/pre>\n\n\n\n
    Delete rows that have an empty value in some column<\/h4>\n\n\n\n
    We have seen a similar routine that works when in a column we have a specific value. The following routine is made for the case that the value is empty<\/p>\n\n\n\n
    The parameters:<\/p>\n\n\n\n
      \n
    • Sheets(\u201c\u2026\u201d).Select<\/strong>\u00a0we define the friend that concerns us.<\/li>\n\n\n\n
    • Set InputRng = Range(\u2026.)<\/strong>\u00a0we define where the value we want to check will be located.<\/li>\n\n\n\n
    • DeleteStr\u00a0<\/strong>we define the price we are looking for.<\/li>\n<\/ul>\n\n\n\n
      <\/p>\n\n\n\n
      Sub deleteifcolumnisEmpty()\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(\"g1\", \"g10000\")\n\nFor Each rng In InputRng\n    If Len(rng.Value) = 0 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\n\nDeleteRng.EntireRow.Delete\nApplication.DisplayAlerts = True\nEnd Sub<\/pre>\n\n\n\n
      Copy data from one sheet to another<\/h4>\n\n\n\n
      With the following routine we can copy the data from one sheet to another and then delete the original sheet:<\/p>\n\n\n\n
      Sub copyToanotherSheet()\n\nApplication.DisplayAlerts = False\nWorksheets(\"TEMP_sheet\").Range(\"A1:AA10000\").Copy Destination:=Worksheets(\"sheet\").Range(\"A5:AA10005\")\nWorksheets(\"TEMP_sheet\").Delete\n\nApplication.DisplayAlerts = True\nEnd Sub<\/pre>\n\n\n\n
      Compare two values and display a pop-up window<\/h4>\n\n\n\n
      We can compare prices and if it does not meet the conditions a pop-up window will appear with a message.<\/p>\n\n\n\n
      The parameters:<\/p>\n\n\n\n
        \n
      • Set Rng1 = Range(\u201c\u2026\u201d)<\/strong>\u00a0we call the value of the cell.<\/li>\n\n\n\n
      • Value<\/strong> we set the value that we check if it is valid.<\/li>\n\n\n\n
      • Prompt\u00a0<\/strong>we set the text in the window.<\/li>\n\n\n\n
      • Title <\/strong>we set the title of the window.<\/li>\n<\/ul>\n\n\n\n
        <\/p>\n\n\n\n
        Sub Worksheet_Calculate()\n\nDim Rng1            As Range\nDim Value           As String\nDim Prompt          As String\nDim Title           As String\n\n    Set Rng1 = Range(\"B1\")\n    Value = \"Swsto\"\n    Prompt = \"Lathos Katametrisi\"\n    Title = \"Error\"\n\n    If Rng1.Value = Value Then\n        MsgBox Prompt, vbInformation, Title\n        End\n    End If\n\nEnd Sub\n<\/pre>\n\n\n\n
        How are they performed?<\/h3>\n\n\n\n
        As we mentioned in the first part, when we will have the code passed to Excel, 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>","protected":false},"excerpt":{"rendered":"
        In continuation of the previous article we will see some more VBA (Visual Basic for Applications) routines that we can use in Microsoft Excel. These routines can be executed by calling them on a button or after an event such as when the file is opened. Delete all rows that have a blank cell With [...]<\/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":[43,23,38,41],"class_list":["post-1786","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-business-intelligence","category-ms-excel","tag-microsoft-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 2) - 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-2\/\" \/>\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 2) - DataPlatform.gr\" \/>\n<meta property=\"og:description\" content=\"\u03a3\u03b5 \u03c3\u03c5\u03bd\u03ad\u03c7\u03b5\u03b9\u03b1 \u03c4\u03bf\u03c5 \u03c0\u03c1\u03bf\u03b7\u03b3\u03bf\u03cd\u03bc\u03b5\u03bd\u03bf\u03c5 \u03ac\u03c1\u03b8\u03c1\u03bf\u03c5 \u03b8\u03b1 \u03b4\u03bf\u03cd\u03bc\u03b5 \u03bc\u03b5\u03c1\u03b9\u03ba\u03ad\u03c2 \u03b1\u03ba\u03cc\u03bc\u03b1 \u03c1\u03bf\u03c5\u03c4\u03af\u03bd\u03b5\u03c2 VBA (Visual Basic for Applications) \u03c0\u03bf\u03c5 \u03ad\u03c7\u03bf\u03c5\u03bc\u03b5 \u03c4\u03b7 \u03b4\u03c5\u03bd\u03b1\u03c4\u03cc\u03c4\u03b7\u03c4\u03b1 \u03bd\u03b1 \u03c7\u03c1\u03b7\u03c3\u03b9\u03bc\u03bf\u03c0\u03bf\u03b9\u03ae\u03c3\u03bf\u03c5\u03bc\u03b5 \u03c3\u03c4\u03bf Microsoft Excel. \u039f\u03b9 \u03c1\u03bf\u03c5\u03c4\u03af\u03bd\u03b5\u03c2 \u03b1\u03c5\u03c4\u03ad\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. \u0394\u03b9\u03b1\u03b3\u03c1\u03b1\u03c6\u03ae \u03cc\u03c3\u03c9\u03bd \u03b3\u03c1\u03b1\u03bc\u03bc\u03ce\u03bd \u03ad\u03c7\u03bf\u03c5\u03bd \u03ba\u03b5\u03bd\u03cc \u03ad\u03bd\u03b1 \u03ba\u03b5\u03bb\u03af \u039c\u03b5 \u03c4\u03b7 […]\" \/>\n<meta property=\"og:url\" content=\"https:\/\/www.dataplatform.gr\/en\/chrisimes-vba-roytines-sto-microsoft-excel-part-2\/\" \/>\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-11-24T04:00:00+00:00\" \/>\n<meta property=\"article:modified_time\" content=\"2024-07-01T14:53:04+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=\"5 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-2\\\/#article\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/www.dataplatform.gr\\\/chrisimes-vba-roytines-sto-microsoft-excel-part-2\\\/\"},\"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 2)\",\"datePublished\":\"2020-11-24T04:00:00+00:00\",\"dateModified\":\"2024-07-01T14:53:04+00:00\",\"mainEntityOfPage\":{\"@id\":\"https:\\\/\\\/www.dataplatform.gr\\\/chrisimes-vba-roytines-sto-microsoft-excel-part-2\\\/\"},\"wordCount\":65,\"commentCount\":0,\"publisher\":{\"@id\":\"https:\\\/\\\/www.dataplatform.gr\\\/#organization\"},\"image\":{\"@id\":\"https:\\\/\\\/www.dataplatform.gr\\\/chrisimes-vba-roytines-sto-microsoft-excel-part-2\\\/#primaryimage\"},\"thumbnailUrl\":\"https:\\\/\\\/www.dataplatform.gr\\\/wp-content\\\/uploads\\\/2020\\\/06\\\/dp_excel.png\",\"keywords\":[\"Excel\",\"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-2\\\/#respond\"]}]},{\"@type\":\"WebPage\",\"@id\":\"https:\\\/\\\/www.dataplatform.gr\\\/chrisimes-vba-roytines-sto-microsoft-excel-part-2\\\/\",\"url\":\"https:\\\/\\\/www.dataplatform.gr\\\/chrisimes-vba-roytines-sto-microsoft-excel-part-2\\\/\",\"name\":\"\u03a7\u03c1\u03ae\u03c3\u03b9\u03bc\u03b5\u03c2 VBA \u03c1\u03bf\u03c5\u03c4\u03af\u03bd\u03b5\u03c2 \u03c3\u03c4\u03bf Microsoft Excel (Part 2) - DataPlatform.gr\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/www.dataplatform.gr\\\/#website\"},\"primaryImageOfPage\":{\"@id\":\"https:\\\/\\\/www.dataplatform.gr\\\/chrisimes-vba-roytines-sto-microsoft-excel-part-2\\\/#primaryimage\"},\"image\":{\"@id\":\"https:\\\/\\\/www.dataplatform.gr\\\/chrisimes-vba-roytines-sto-microsoft-excel-part-2\\\/#primaryimage\"},\"thumbnailUrl\":\"https:\\\/\\\/www.dataplatform.gr\\\/wp-content\\\/uploads\\\/2020\\\/06\\\/dp_excel.png\",\"datePublished\":\"2020-11-24T04:00:00+00:00\",\"dateModified\":\"2024-07-01T14:53:04+00:00\",\"breadcrumb\":{\"@id\":\"https:\\\/\\\/www.dataplatform.gr\\\/chrisimes-vba-roytines-sto-microsoft-excel-part-2\\\/#breadcrumb\"},\"inLanguage\":\"en-US\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"https:\\\/\\\/www.dataplatform.gr\\\/chrisimes-vba-roytines-sto-microsoft-excel-part-2\\\/\"]}]},{\"@type\":\"ImageObject\",\"inLanguage\":\"en-US\",\"@id\":\"https:\\\/\\\/www.dataplatform.gr\\\/chrisimes-vba-roytines-sto-microsoft-excel-part-2\\\/#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-2\\\/#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 2)\"}]},{\"@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 2) - 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-2\/","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 2) - DataPlatform.gr","og_description":"\u03a3\u03b5 \u03c3\u03c5\u03bd\u03ad\u03c7\u03b5\u03b9\u03b1 \u03c4\u03bf\u03c5 \u03c0\u03c1\u03bf\u03b7\u03b3\u03bf\u03cd\u03bc\u03b5\u03bd\u03bf\u03c5 \u03ac\u03c1\u03b8\u03c1\u03bf\u03c5 \u03b8\u03b1 \u03b4\u03bf\u03cd\u03bc\u03b5 \u03bc\u03b5\u03c1\u03b9\u03ba\u03ad\u03c2 \u03b1\u03ba\u03cc\u03bc\u03b1 \u03c1\u03bf\u03c5\u03c4\u03af\u03bd\u03b5\u03c2 VBA (Visual Basic for Applications) \u03c0\u03bf\u03c5 \u03ad\u03c7\u03bf\u03c5\u03bc\u03b5 \u03c4\u03b7 \u03b4\u03c5\u03bd\u03b1\u03c4\u03cc\u03c4\u03b7\u03c4\u03b1 \u03bd\u03b1 \u03c7\u03c1\u03b7\u03c3\u03b9\u03bc\u03bf\u03c0\u03bf\u03b9\u03ae\u03c3\u03bf\u03c5\u03bc\u03b5 \u03c3\u03c4\u03bf Microsoft Excel. \u039f\u03b9 \u03c1\u03bf\u03c5\u03c4\u03af\u03bd\u03b5\u03c2 \u03b1\u03c5\u03c4\u03ad\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. \u0394\u03b9\u03b1\u03b3\u03c1\u03b1\u03c6\u03ae \u03cc\u03c3\u03c9\u03bd \u03b3\u03c1\u03b1\u03bc\u03bc\u03ce\u03bd \u03ad\u03c7\u03bf\u03c5\u03bd \u03ba\u03b5\u03bd\u03cc \u03ad\u03bd\u03b1 \u03ba\u03b5\u03bb\u03af \u039c\u03b5 \u03c4\u03b7 […]","og_url":"https:\/\/www.dataplatform.gr\/en\/chrisimes-vba-roytines-sto-microsoft-excel-part-2\/","og_site_name":"DataPlatform.gr","article_publisher":"https:\/\/www.facebook.com\/dataplatform.gr\/","article_published_time":"2020-11-24T04:00:00+00:00","article_modified_time":"2024-07-01T14:53:04+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":"5 minutes"},"schema":{"@context":"https:\/\/schema.org","@graph":[{"@type":"Article","@id":"https:\/\/www.dataplatform.gr\/chrisimes-vba-roytines-sto-microsoft-excel-part-2\/#article","isPartOf":{"@id":"https:\/\/www.dataplatform.gr\/chrisimes-vba-roytines-sto-microsoft-excel-part-2\/"},"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 2)","datePublished":"2020-11-24T04:00:00+00:00","dateModified":"2024-07-01T14:53:04+00:00","mainEntityOfPage":{"@id":"https:\/\/www.dataplatform.gr\/chrisimes-vba-roytines-sto-microsoft-excel-part-2\/"},"wordCount":65,"commentCount":0,"publisher":{"@id":"https:\/\/www.dataplatform.gr\/#organization"},"image":{"@id":"https:\/\/www.dataplatform.gr\/chrisimes-vba-roytines-sto-microsoft-excel-part-2\/#primaryimage"},"thumbnailUrl":"https:\/\/www.dataplatform.gr\/wp-content\/uploads\/2020\/06\/dp_excel.png","keywords":["Excel","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-2\/#respond"]}]},{"@type":"WebPage","@id":"https:\/\/www.dataplatform.gr\/chrisimes-vba-roytines-sto-microsoft-excel-part-2\/","url":"https:\/\/www.dataplatform.gr\/chrisimes-vba-roytines-sto-microsoft-excel-part-2\/","name":"\u03a7\u03c1\u03ae\u03c3\u03b9\u03bc\u03b5\u03c2 VBA \u03c1\u03bf\u03c5\u03c4\u03af\u03bd\u03b5\u03c2 \u03c3\u03c4\u03bf Microsoft Excel (Part 2) - DataPlatform.gr","isPartOf":{"@id":"https:\/\/www.dataplatform.gr\/#website"},"primaryImageOfPage":{"@id":"https:\/\/www.dataplatform.gr\/chrisimes-vba-roytines-sto-microsoft-excel-part-2\/#primaryimage"},"image":{"@id":"https:\/\/www.dataplatform.gr\/chrisimes-vba-roytines-sto-microsoft-excel-part-2\/#primaryimage"},"thumbnailUrl":"https:\/\/www.dataplatform.gr\/wp-content\/uploads\/2020\/06\/dp_excel.png","datePublished":"2020-11-24T04:00:00+00:00","dateModified":"2024-07-01T14:53:04+00:00","breadcrumb":{"@id":"https:\/\/www.dataplatform.gr\/chrisimes-vba-roytines-sto-microsoft-excel-part-2\/#breadcrumb"},"inLanguage":"en-US","potentialAction":[{"@type":"ReadAction","target":["https:\/\/www.dataplatform.gr\/chrisimes-vba-roytines-sto-microsoft-excel-part-2\/"]}]},{"@type":"ImageObject","inLanguage":"en-US","@id":"https:\/\/www.dataplatform.gr\/chrisimes-vba-roytines-sto-microsoft-excel-part-2\/#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-2\/#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 2)"}]},{"@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\/1786","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=1786"}],"version-history":[{"count":1,"href":"https:\/\/www.dataplatform.gr\/en\/wp-json\/wp\/v2\/posts\/1786\/revisions"}],"predecessor-version":[{"id":5790,"href":"https:\/\/www.dataplatform.gr\/en\/wp-json\/wp\/v2\/posts\/1786\/revisions\/5790"}],"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=1786"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.dataplatform.gr\/en\/wp-json\/wp\/v2\/categories?post=1786"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.dataplatform.gr\/en\/wp-json\/wp\/v2\/tags?post=1786"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}