help please

[madmat252]

i have 3 blocks of data each consisting of 4 colums f,g,h,i and rows down on sheet 3 and a list of short codes in a drop down box on sheet 1 what i need to happen is when i select fs1 from the drop dowm list and push a comand button then data from the first block is inputed into a different block of cells a have tried this code but i cant get it to work.

Sub Macro4()
'
' Macro4 Macro
'
'

If Range("A46" = FS1) Then
Sheets("Configuration Data").Select
Range("F3:I9").Select
Selection.Copy
Range("A20").Select
ActiveSheet.Paste
Sheets("Input Data (2)").Select
End If

End Sub

 

[Weaver]

try

If Range("A46" = "FS1") Then
    Sheets("Configuration Data").Range("F3:I9").Copy Range("A20")
End If

I think it just needed the "" around "FS1", but there's no need for all that 'select' malarky.

If you go this way, you may need to explicitly state the destination sheet for range("A20") as in

Sheets("Configuration Data").Range("F3:I9").Copy sheets("destination").Range("A20")

 

[madmat252]

that didnt work probably something really simple but i have sat here for hours trying to get it to work now.

 

[Weaver]

Hmm, not sure which sheets your data is coming from or going to for a start. One thing I do know is that "FS1" should have quotes around it.