VBAコマンドボタン - 列名が一致する列をコピーして貼り付け

Question

ここではVBAを完全に新しくしました。もしこれが他のどこかで答えられたならば、謝罪したり、ひどく簡単に思えるかもしれません - 私は見てきて、私が達成しようとしているものと一線を画している例は見つけられません。

私がクリックしたときに、私はそれがC18からデータをコピーしたいとのActiveXコマンドボタンを有する：をフォーマット値とソースを貼り付けコピーされたデータ（C17）から一致するヘッダ名を持つ対応する列にC123を。基本的には、「更新」コマンドボタンがクリックされるまでデータをコピーしたくないし、C17のデータのソース名に貼り付けるデータの位置を一致させる必要がある。同じブック内の同じシートにコピーして貼り付けることもできます。

注：私が扱っているデータは本質的に敏感であり、実際の例は提供できませんが、必要であればこの問題を例示する別のシートを作成することができます。

Answer 1

右あなたがしようとしているコードを表示し、あなたが立ち往生している場所を具体的に説明してください、ActiveXのボタンをクリックしてビューコードをクリックして、そこ

'This is the location of all the headers one of which is the header in C17 
Set lookup_rng = Range("H17:Q17") 

For Each cell In lookup_rng 
    If cell.Value = Range("C17").Value Then 
     Range("C18:C123").Copy 
     cell.Offset(1, 0).Select 
     Selection.PasteSpecial Paste:=xlPasteValues 
     Selection.PasteSpecial Paste:=xlPasteFormats 
     Application.CutCopyMode = False 
    End If 
Next cell