data base
 

hy, i hope someone can halp me..
i have 4 sheets...A,B,C,and FRONT..and i want to select in "FRONT" from a
drop down box "A,B or C"...and the data that i put in the row, to appear in
the corespondent worksheet(ex A)

ex:
sheet FRONT
A 23 14 55 22 (A is a dropdown box)
if i select from the dropdown box "B"...the data to automatically be
transfered to B sheet


sheet A
a b c d

1 1 0 18 29

2 20 20 0 0

3 23 14 55 22 (this is the last numbers that i put in
the "FRONT"sheet's row

thanks alot...i hope that my english in k..:) thanks again

data base
 

Hi,

Please can you confirm whther you wish to add this new data into a new row on
your corresponding sheet or whether it will replace data already there.

Thanks,

Simon

puiuluipui wrote:
hy, i hope someone can halp me..
i have 4 sheets...A,B,C,and FRONT..and i want to select in "FRONT" from a
drop down box "A,B or C"...and the data that i put in the row, to appear in
the corespondent worksheet(ex A)

ex:
sheet FRONT
A 23 14 55 22 (A is a dropdown box)
if i select from the dropdown box "B"...the data to automatically be
transfered to B sheet

sheet A
a b c d

1 1 0 18 29

2 20 20 0 0

3 23 14 55 22 (this is the last numbers that i put in
the "FRONT"sheet's row

thanks alot...i hope that my english in k..:) thanks again

--
--------------------
Simon - UK

Email at simon22mports [ a t ] hot mail [ d ot ]com

Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...excel/200611/1

data base
 

hy, i want to add a new data in a new row on the corresponding sheet. thanks
alot.

"smw226 via OfficeKB.com" wrote:

Hi,

Please can you confirm whther you wish to add this new data into a new row on
your corresponding sheet or whether it will replace data already there.

Thanks,

Simon

puiuluipui wrote:
hy, i hope someone can halp me..
i have 4 sheets...A,B,C,and FRONT..and i want to select in "FRONT" from a
drop down box "A,B or C"...and the data that i put in the row, to appear in
the corespondent worksheet(ex A)

ex:
sheet FRONT
A 23 14 55 22 (A is a dropdown box)
if i select from the dropdown box "B"...the data to automatically be
transfered to B sheet

sheet A
a b c d

1 1 0 18 29

2 20 20 0 0

3 23 14 55 22 (this is the last numbers that i put in
the "FRONT"sheet's row

thanks alot...i hope that my english in k..:) thanks again

--
--------------------
Simon - UK

Email at simon22mports [ a t ] hot mail [ d ot ]com

Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...excel/200611/1

data base
 

Hi,

Paste this into a new module:


Sub sheetmove()
Dim sheet_name As String
sheet_name = Range("A1").Value 'This is the cell which contains your sheet
letter
Range("A4:D4").Select 'This is the range which you want to copy
Selection.Copy
Sheets(sheet_name).Select
Range("A1").Select
Selection.End(xlDown).Select
If ActiveCell.Row = 65536 Then 'This checks whether there is any data in the
sheet yet
Range("A2").Select
Else
ActiveCell.Offset(1, 0).Select
End If
ActiveCell.PasteSpecial xlPasteAll, xlPasteSpecialOperationNone, False, False
Sheets("Front").Select
Application.CutCopyMode = False
End Sub


HTH

Simon

puiuluipui wrote:
hy, i want to add a new data in a new row on the corresponding sheet. thanks
alot.

Hi,

[quoted text clipped - 27 lines]

thanks alot...i hope that my english in k..:) thanks again

--
--------------------
Simon - UK

Email at simon22mports [ a t ] hot mail [ d ot ]com

Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...excel/200611/1

data base
 

Sorry....this is a macro so will be activated by running it (or assigning it
to a button)

I

smw226 wrote:
Hi,

Paste this into a new module:

Sub sheetmove()
Dim sheet_name As String
sheet_name = Range("A1").Value 'This is the cell which contains your sheet
letter
Range("A4:D4").Select 'This is the range which you want to copy
Selection.Copy
Sheets(sheet_name).Select
Range("A1").Select
Selection.End(xlDown).Select
If ActiveCell.Row = 65536 Then 'This checks whether there is any data in the
sheet yet
Range("A2").Select
Else
ActiveCell.Offset(1, 0).Select
End If
ActiveCell.PasteSpecial xlPasteAll, xlPasteSpecialOperationNone, False, False
Sheets("Front").Select
Application.CutCopyMode = False
End Sub

HTH

Simon

hy, i want to add a new data in a new row on the corresponding sheet. thanks
alot.
[quoted text clipped - 4 lines]

thanks alot...i hope that my english in k..:) thanks again


--
--------------------
Simon - UK

Email at simon22mports [ a t ] hot mail [ d ot ]com

Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...excel/200611/1