hawtokaru

Dim JiraService As New MSXML2.XMLHTTP60 Public Sub GetDataFromJira() sUsername = Worksheets("Summary").Cells(13, 11).Value sPassword = Worksheets("Summary").Cells(14, 11).Value sProject = Worksheets("Summary").Cells(12, 11).Value sEncbase64Auth = EncodeBase64(sUsername & ":" & sPassword) ThisWorkbook.Activate ThisWorkbook.Worksheets("Defects").Select Set sht = ActiveWorkbook.Worksheets("Defects") lastRow = sht.Cells(sht.Rows.Count, "A").End(xlUp).Row If lastRow <= 2 Then lastRow = 2 End If Dim strrange As String strrange = "A2:AE" & lastRow & "" Range(strrange).Select Selection.ClearContents Dim Createddt As Date Dim ResolutionDt As Date Dim intCount As Integer Dim StrComponent As String StrComponent = "" Dim StrAssignee As String StrAssignee = "" Dim lastRw As Integer Dim startPoint As Integer startPoint = 0 lastRw = 0                     Call FillExceldat...