so im ripping my. hair out here..
i have data which is in column format (data in cell, space, data in cell, space) and trying to copy that into another worksheet in row format using a macro to transfer the data across
ive read and studied and searched all over and just cant get my code to work. (allways the yellow line highlighting the sub or the copy code)
please if someone can spare their time (will to pay for it as im headbutting a wall)
just have some work done and think i swallowed a pill to big.
i know im close but 2 days now and need someone that can help..
soo... whats the code??
sub database_transfer ()
Dim Form As Worksheet
dim database as worksheet
Set Form = ThisWorkbook.range ("e7, e9, e11, e15")
'moving col down row c until next empty row on database.
icurrentrow = form.range ("C").rows.count
'trans form data to database
.Cells(iCurrentRow, 1) = iCurrentRow - 2
.Cells(iCurrentRow, 2) = shForm.Range("H7")
.Cells(iCurrentRow, 3) = shForm.Range("H9")
.Cells(iCurrentRow, 4) = shForm.Range("H11")
.Cells(iCurrentRow, 5) = shForm.Range("H15")
(THEN THE CODE I HAVE TO CLEAR THE FORM AND MESSAGE BOX COME UP FUNNY ENOUGH WORKS)
end sub
i have data which is in column format (data in cell, space, data in cell, space) and trying to copy that into another worksheet in row format using a macro to transfer the data across
ive read and studied and searched all over and just cant get my code to work. (allways the yellow line highlighting the sub or the copy code)
please if someone can spare their time (will to pay for it as im headbutting a wall)
just have some work done and think i swallowed a pill to big.
i know im close but 2 days now and need someone that can help..
soo... whats the code??
sub database_transfer ()
Dim Form As Worksheet
dim database as worksheet
Set Form = ThisWorkbook.range ("e7, e9, e11, e15")
'moving col down row c until next empty row on database.
icurrentrow = form.range ("C").rows.count
'trans form data to database
.Cells(iCurrentRow, 1) = iCurrentRow - 2
.Cells(iCurrentRow, 2) = shForm.Range("H7")
.Cells(iCurrentRow, 3) = shForm.Range("H9")
.Cells(iCurrentRow, 4) = shForm.Range("H11")
.Cells(iCurrentRow, 5) = shForm.Range("H15")
(THEN THE CODE I HAVE TO CLEAR THE FORM AND MESSAGE BOX COME UP FUNNY ENOUGH WORKS)
end sub