I need help with this
It only seems to transfer 1 row where as the data I have has numerous rows can somone help with this please.
Code is below
rivate Sub CommandButton3_Click()
Dim TestName As String, StepName As String, Description As String, Expected As String, Actual As String, TestStatus As String, Comments As String
Worksheets("Test Execution Sheet").Select
TestName = Range("A2")
StepName = Range("B2")
Description = Range("C2")
Expected = Range("D2")
Actual = Range("E2")
TestStatus = Range("F2")
Comments = Range("G2")
Worksheets("data").Select
Worksheets("data").Range("a1").Select
If Worksheets("data").Range("a1").Offset(1, 0) <> "" Then
Worksheets("data").Range("a1").End(xlDown).Select
End If
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = TestName
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = StepName
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Description
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Expected
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Actual
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = TestStatus
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Comments
Worksheets("Test Execution Sheet").Select
End Sub
The data sheet has the same table where no data is present I want the data I submit from Test Execution Sheet to transfer to the data sheet howwever this only seems to transfer one row an not all rows in view within the Test Execution Sheet.
Bookmarks