Snasui Excel Forum

Code: Select all

Dim Lrow  As Integer
 Lrow = Sheets(5).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
 

Code: Select all

Sub Get_Information()
Dim Lrow  As Integer
    Lrow = Sheets(5).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
    Name = Sheets(1).Cells(5, 4).Value
    LastName = Sheets(1).Cells(5, 5).Value
    Blood = Sheets(1).Cells(6, 4).Value
    Position = Sheets(1).Cells(7, 4).Value
    Gender = Sheets(1).Cells(8, 4).Value
    Division = Sheets(1).Cells(9, 4).Value
     Sheets(5).Cells(Lrow, 1).Value = Name
     Sheets(5).Cells(Lrow, 2).Value = LastName
     Sheets(5).Cells(Lrow, 3).Value = Blood
     Sheets(5).Cells(Lrow, 4).Value = Position
     Sheets(5).Cells(Lrow, 5).Value = Gender
     Sheets(5).Cells(Lrow, 6).Value = Division
End Sub

Code: Select all

Sub Get_Information()
    Name = Sheets(1).Cells(5, 4).Value
    LastName = Sheets(1).Cells(5, 5).Value
    Blood = Sheets(1).Cells(6, 4).Value
    Position = Sheets(1).Cells(7, 4).Value
    Gender = Sheets(1).Cells(8, 4).Value
    Division = Sheets(1).Cells(9, 4).Value
     Sheets(5).Cells(1, 1).Value = Name
     Sheets(5).Cells(1, 2).Value = LastName
     Sheets(5).Cells(1, 3).Value = Blood
     Sheets(5).Cells(1, 4).Value = Position
     Sheets(5).Cells(1, 5).Value = Gender
     Sheets(5).Cells(1, 6).Value = Division 
End Sub