Excel Database

[alliswell]

Hi every body

I have only 2 rows data A1:B23 to be transfered from sheet1 to DATABASE sheet one after other.
I have created TRANSFER command button in Sheet1. What i want is whenever i press TRANSFER button, that 2 rows A1:B23 must get transferred to DATABASE sheet one after other.

Thanks, love & regards yo everyone on mr excel

 

[alliswell]

Yeah, so you're going to have to give me a visual example of what you have and what you expect.

Now in sheet1 wherever i select cell, that active cell that is row 8 so that 8th row that is B8:U8 shud get pasted in DATABASE sheet B8:U8
Now in sheet1 my cell active in row 9, then my row 9 data must get pasted in DATABASE sheet B9:U9 and only values as there are formulas
so this way it shud get copied and pasted one after other in database sheet

thanks

 

[alliswell]

Yeah, so you're going to have to give me a visual example of what you have and what you expect.

Now in sheet1 wherever i select cell, that active cell that is row 8 so that 8th row that is B8:U8 shud get pasted in DATABASE sheet B8:U8
Now in sheet1 my cell active in row 9, then my row 9 data must get pasted in DATABASE sheet B9:U9 and only values as there are formulas
so this way it shud get copied and pasted one after other in database sheet

thanks

 

[Skyybot]

Sub Copy2Rows2Database()
Dim wb As Workbook, sht1 As Worksheet, sht2 As Worksheet, rng1 As Range, lRow As Integer, rng2 As Range
Set wb = ThisWorkbook: Set sht1 = wb.Sheets("Sheet1"): Set sht2 = wb.Sheets("DATABASE")
lRow = Selection.Row
Set rng1 = sht1.Range("B" & lRow & ":U" & lRow)
Set rng2 = sht2.Range("B" & lRow & ":U" & lRow)
rng1.Copy: rng2.PasteSpecial (xlPasteValues)
Application.CutCopyMode = False
End Sub

 

[alliswell]

Sub Copy2Rows2Database()
Dim wb As Workbook, sht1 As Worksheet, sht2 As Worksheet, rng1 As Range, lRow As Integer, rng2 As Range
Set wb = ThisWorkbook: Set sht1 = wb.Sheets("Sheet1"): Set sht2 = wb.Sheets("DATABASE")
lRow = Selection.Row
Set rng1 = sht1.Range("B" & lRow & ":U" & lRow)
Set rng2 = sht2.Range("B" & lRow & ":U" & lRow)
rng1.Copy: rng2.PasteSpecial (xlPasteValues)
Application.CutCopyMode = False
End Sub

not working

what key shall i press to make this code work

i placed this code in command button but not working

 

[Skyybot]

Private Sub CommandButton1_Click()
Copy2Rows2Database
End Sub

Sub Copy2Rows2Database()
Dim wb As Workbook, sht1 As Worksheet, sht2 As Worksheet, rng1 As Range, lRow As Integer, rng2 As Range
Set wb = ThisWorkbook: Set sht1 = wb.Sheets("Sheet1"): Set sht2 = wb.Sheets("DATABASE")
lRow = Selection.Row
Set rng1 = sht1.Range("B" & lRow & ":U" & lRow)
Set rng2 = sht2.Range("B" & lRow & ":U" & lRow)
rng1.Copy: rng2.PasteSpecial (xlPasteValues)
Application.CutCopyMode = False
End Sub