VBA code to transfer from Main sheet multipal Sheets

[kumar lama]

Hello,

I have one main form in excel, In form i have A2="Name" B2="AAA", A3="Position" B3="Manager", A4="Grade" B4="A" A5="Sheet Name" B5=Sheet1

Now when i run macro , i want move Data From Form to according to B5 Sheet Name Last Blank Row.

I have sheet1 A:A=Name, B:B Position C:C=Grade.......


Thank in Advance.

 

[jbeaucaire]

Something like this:

Sub TransferInfo()
Dim NR As Long

With ThisWorkbook.Sheets(Range("B5").Value)
    NR = .Range("A" & .Rows.Count).End(xlUp).Row + 1
    .Range("A" & NR).Value = Range("B2").Value      'name
    .Range("B" & NR).Value = Range("B3").Value      'position
    .Range("C" & NR).Value = Range("B4").Value      'grade
End With

End Sub

 

[kumar lama]

Something like this:

Sub TransferInfo()
Dim NR As Long

With ThisWorkbook.Sheets(Range("B5").Value)
    NR = .Range("A" & .Rows.Count).End(xlUp).Row + 1
    .Range("A" & NR).Value = Range("B2").Value      'name
    .Range("B" & NR).Value = Range("B3").Value      'position
    .Range("C" & NR).Value = Range("B4").Value      'grade
End With

End Sub

Thank alot