macro's with if function included

[Josh]

I am trying to write a macro that takes a set of data, pastes special the
data depending on what month the column displays with some sort of if
function. Is it possible to do this and how do i do it.

E.g.
Input:
Jan Jan Feb Mar April
13 x
23 x
28 x

As above when the data is placed in Jan i would like it to paste special the
data in the Jan column (displayed with X). However if the name aboe the
input data was changed to Feb i would like it to place the data in Feb.

Thanks in advance for anyone's help...

 

[Don Guillett]

Right click sheet tab>view code>insert this. Be advised that it will copy
the whole column to col A.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
mc = Rows(1).Find(What:=Target, After:=Cells(1, 1), LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Column
Columns(mc).Copy Columns(1)
End Sub

 

[Gary''s Student]

Try this small macro:

Sub marine()
v = Range("A1").Value
n = Cells(Rows.Count, "A").End(xlUp).Row
Set cpr = Range("A2:A" & n)
For i = 2 To Columns.Count
If v = Cells(1, i).Value Then
Exit For
End If
Next
cpr.Copy
Cells(2, i).PasteSpecial Paste:=xlPasteValues
End Sub

 

[Don Guillett]

If?? you want to copy col A data to the column indicated in a1 then just
reverse it to this

Columns(1).Copy Columns(mc)