{"action":"created","issue":{"url":"https://api.github.com/repos/farzinmonsef/interesting/issues/2","repository_url":"https://api.github.com/repos/farzinmonsef/interesting","labels_url":"https://api.github.com/repos/farzinmonsef/interesting/issues/2/labels{/name}","comments_url":"https://api.github.com/repos/farzinmonsef/interesting/issues/2/comments","events_url":"https://api.github.com/repos/farzinmonsef/interesting/issues/2/events","html_url":"https://github.com/farzinmonsef/interesting/issues/2","id":190349472,"number":2,"title":"ExcelProg","user":{"login":"farzinmonsef","id":21162013,"avatar_url":"https://avatars.githubusercontent.com/u/21162013?v=3","gravatar_id":"","url":"https://api.github.com/users/farzinmonsef","html_url":"https://github.com/farzinmonsef","followers_url":"https://api.github.com/users/farzinmonsef/followers","following_url":"https://api.github.com/users/farzinmonsef/following{/other_user}","gists_url":"https://api.github.com/users/farzinmonsef/gists{/gist_id}","starred_url":"https://api.github.com/users/farzinmonsef/starred{/owner}{/repo}","subscriptions_url":"https://api.github.com/users/farzinmonsef/subscriptions","organizations_url":"https://api.github.com/users/farzinmonsef/orgs","repos_url":"https://api.github.com/users/farzinmonsef/repos","events_url":"https://api.github.com/users/farzinmonsef/events{/privacy}","received_events_url":"https://api.github.com/users/farzinmonsef/received_events","type":"User","site_admin":false},"labels":[],"state":"open","locked":false,"assignee":null,"assignees":[],"milestone":null,"comments":2,"created_at":"2016-11-18T15:40:20Z","updated_at":"2016-11-28T21:36:36Z","closed_at":null,"body":"ExcelProgram"},"comment":{"url":"https://api.github.com/repos/farzinmonsef/interesting/issues/comments/263401935","html_url":"https://github.com/farzinmonsef/interesting/issues/2#issuecomment-263401935","issue_url":"https://api.github.com/repos/farzinmonsef/interesting/issues/2","id":263401935,"user":{"login":"farzinmonsef","id":21162013,"avatar_url":"https://avatars.githubusercontent.com/u/21162013?v=3","gravatar_id":"","url":"https://api.github.com/users/farzinmonsef","html_url":"https://github.com/farzinmonsef","followers_url":"https://api.github.com/users/farzinmonsef/followers","following_url":"https://api.github.com/users/farzinmonsef/following{/other_user}","gists_url":"https://api.github.com/users/farzinmonsef/gists{/gist_id}","starred_url":"https://api.github.com/users/farzinmonsef/starred{/owner}{/repo}","subscriptions_url":"https://api.github.com/users/farzinmonsef/subscriptions","organizations_url":"https://api.github.com/users/farzinmonsef/orgs","repos_url":"https://api.github.com/users/farzinmonsef/repos","events_url":"https://api.github.com/users/farzinmonsef/events{/privacy}","received_events_url":"https://api.github.com/users/farzinmonsef/received_events","type":"User","site_admin":false},"created_at":"2016-11-28T21:36:36Z","updated_at":"2016-11-28T21:36:36Z","body":"'\r\n'---------------------\r\n'| a1 | b1 | c1 | d1 |\r\n'---------------------\r\n'|    |    |    |    |\r\n'---------------------\r\n'| a2 | b2 | c2 | d2 |\r\n'---------------------\r\n'\r\n' delete blank lines in SELECTION\r\n'---------------------\r\n'| a1 | b1 | c1 | d1 |\r\n'---------------------\r\n'| a2 | b2 | c2 | d2 |\r\n'---------------------\r\n'\r\n'========================================================= Farzin Monsef\r\n'========================================================= July 2015\r\nSub DeleteBlankRows()\r\n    \r\n    Dim i As Long\r\n    Dim j As Long\r\n    Dim k As Long\r\n    Dim buf As String\r\n    buf = \"\"\r\n    Dim lastBlankRow As Integer\r\n    Dim swBlankLineFound As Boolean\r\n    Dim swLookAhead As Boolean\r\n    Dim DeletedRows\r\n    DeletedRows = 0\r\n    lastBlankRow = -1\r\n\r\n    If (Selection.Rows.Count >= 65536) And (Selection.Columns.Count >= 256) Then\r\n        MsgBox \"Error: Select something first !\", , \"Farzin Monsef - Merrill Lynch     \"\r\n    Else\r\n        \r\n        Dim maxNoRows: maxNoRows = Selection.Rows.Count\r\n        For i = Selection.Rows(1).Row To maxNoRows + Selection.Rows(1).Row - 1\r\n            swBlankLineFound = True\r\n            For k = 1 To Selection.Columns.Count\r\n                If Trim(CStr(Cells(i, Selection.Columns(k).Column).Value)) <> \"\" Then\r\n                    swBlankLineFound = False\r\n                    Exit For\r\n                End If\r\n            Next k\r\n            \r\n            If swBlankLineFound Then\r\n                swLookAhead = False\r\n                For j = i + 1 To maxNoRows + Selection.Rows(1).Row - 1\r\n                    For k = 1 To Selection.Columns.Count\r\n                        If Trim(CStr(Cells(j, Selection.Columns(k).Column).Value)) <> \"\" Then\r\n                            swLookAhead = True\r\n                            GoTo DeleteRow\r\n                        End If\r\n                    Next k\r\n                Next j\r\nDeleteRow:\r\n                If swLookAhead Then\r\n                    Rows(i).Delete\r\n                    maxNoRows = maxNoRows - 1\r\n                    i = i - 1\r\n                Else\r\n                    Exit For\r\n                End If\r\n            End If\r\nContinueLoop:\r\n        Next i\r\n        Range(Cells(Selection.Rows(1).Row, Selection.Columns(1).Column), Cells(Selection.Rows(1).Row + maxNoRows - 1, Selection.Columns(Selection.Columns.Count).Column)).Select\r\n        MsgBox \"Remove Blank Lines is Done\", , \"Farzin Monsef - Merrill Lynch     \"\r\n    End If\r\n End Sub"}}
{"actor":{"display_login":"farzinmonsef"}}