Snasui Excel Forum

Code: Select all

Sub Save()
Dim r As Integer
Sheets("1").Select
Range("A1").Select
r = ActiveCell.CurrentRegion.Rows.Count
Sheets("1").Cells(r + 1, 1).Value = Sheets("Input").Range("D5").Value
Sheets("1").Cells(r + 1, 2).Value = Sheets("Input").Range("G5").Value
Sheets("1").Cells(r + 1, 3).Value = Sheets("Input").Range("D7").Value


Sheets("Input").Select

Sheets("Input").Range("D5").Value = ""
Sheets("Input").Range("G5").Value = ""
Sheets("Input").Range("D7").Value = ""

End Sub

Code: Select all

'Other code
Select Case Sheets("Sheet1").Range("d7").Value2
    Case 43831
        strSh = "1"
    Case 43877
        strSh = "2"
    Case 43915
        strSh = "3"
    Case 43937
        strSh = "4"
End Select
r = ActiveCell.CurrentRegion.Rows.Count
Sheets(strSh).Cells(r + 1, 1).Value = Sheets("Input").Range("D5").Value
Sheets(strSh).Cells(r + 1, 2).Value = Sheets("Input").Range("G5").Value
Sheets(strSh).Cells(r + 1, 3).Value = Sheets("Input").Range("D7").Value

'Other code