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]

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

No reply yet

 

[Skyybot]

Judging by the information provided, you could just copy and paste.

 

[alliswell]

Judging by the information provided, you could just copy and paste.

Means everytime shud paste ?

 

[Skyybot]

Means everytime shud paste ?

What do you mean "every time"? I feel like there is information you are leaving out. Does the data in the two rows change? If so, how?

 

[alliswell]

What do you mean "every time"? I feel like there is information you are leaving out. Does the data in the two rows change? If so, how?

Every entry i have to put to database sheet for backup. Lots of entry for longer and shorter bar atleast 400 to 500 forms to feed at at a time so copy paste every record will be mess. Only 2 rows in working. Everytime figures will change. Thats it.

 

[Skyybot]

I don't know if this is what you need because I still feel like there is more information not being provided.

Sub Copy2Rows2Database()
Dim wb As Workbook, sht1 As Worksheet, sht2 As Worksheet, rng As Range, lRow As Integer
Set wb = ThisWorkbook: Set sht1 = wb.Sheets("Sheet1"): Set sht2 = wb.Sheets("DATABASE")
Set rng = sht1.Range("A1:B23")
lRow = sht2.Columns("A").Rows(sht2.Rows.Count).End(xlUp).Row + 1
rng.Copy sht2.Range("A" & lRow)
Application.CutCopyMode = False
End Sub

 

[alliswell]

I don't know if this is what you need because I still feel like there is more information not being provided.

Sub Copy2Rows2Database()
Dim wb As Workbook, sht1 As Worksheet, sht2 As Worksheet, rng As Range, lRow As Integer
Set wb = ThisWorkbook: Set sht1 = wb.Sheets("Sheet1"): Set sht2 = wb.Sheets("DATABASE")
Set rng = sht1.Range("A1:B23")
lRow = sht2.Columns("A").Rows(sht2.Rows.Count).End(xlUp).Row + 1
rng.Copy sht2.Range("A" & lRow)
Application.CutCopyMode = False
End Sub

Thanks a lot. I will check and let you know

 

[alliswell]

I don't know if this is what you need because I still feel like there is more information not being provided.

Sub Copy2Rows2Database()
Dim wb As Workbook, sht1 As Worksheet, sht2 As Worksheet, rng As Range, lRow As Integer
Set wb = ThisWorkbook: Set sht1 = wb.Sheets("Sheet1"): Set sht2 = wb.Sheets("DATABASE")
Set rng = sht1.Range("A1:B23")
lRow = sht2.Columns("A").Rows(sht2.Rows.Count).End(xlUp).Row + 1
rng.Copy sht2.Range("A" & lRow)
Application.CutCopyMode = False
End Sub

yes you were right. sorry my mistake. i didnt mention the range of database sheet to paste
so its range is A7:U7

thanks

 

[Skyybot]

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