2016-05-20 27 views
1

あるワークシートから別のワークシートにダイナミックレンジ(B12:Lxx)をコピーしようとしています。最初の空の行で停止するように範囲をコピーする必要があります(コピーしたくないシートの下にさらにデータがあります)。Excel:あるワークシートから別のワークシートへダイナミックレンジをコピー

私は非常に基本的なVBAユーザーです。あなたの指示を明示的に設定することができれば便利です。

  • ソース:ダイナミックレンジを持つワークシート「MyKPIs」B12:LXX
  • ターゲット(列Lは、行番号は可変であるが、最初の空行で終了しなければならない設定されている):ワークシート「月テンプレート」 、セルB5
  • トリガーは、私は他の記事をトロールしているが、私は使用することができます何かを見つけるために失敗したコマンドボタン

だろう。

おかげで、あなたの "MyKPIs" シート上フォームツールバーから ヘイリー

答えて

0

場所command button

次に、このコードを追加:列Bのすべてのセルを考慮

Sub Button1_Click() 

    Dim myrange 

    Set myrange = Sheets("MyKPIs").Range("B12:L12") 
    myrange.Select 
    Range(Selection, Selection.End(xlDown)).Select 
    Selection.Copy Worksheets("Month Template").Range("B5") 

End Sub 

はデータを持って、この範囲内のすべてのセルをコピーします。列Bの最初の空のセルで停止します。これは開始に役立ちます。

+0

しかし、私はレンジ( "B5")でエラーを取得しています、IB11 @ありがとう –

+0

1004を選択します。Rangeクラスの選択メッセージがIB11 –

+0

OK @失敗した、してみてください更新されたコード – ib11

1

これは動作します。ワークシートにコマンドボタンを挿入します。ボタンをダブルクリックします。サブコードとエンドサブコードの間にこのコードを貼り付けます。

Worksheets("MyKPIs").Range("b12").CurrentRegion.Copy Worksheets("Month Template").Range("b5") 

あなたが通っているときは、次のようになります。開発者用タブのワークシートに移動してデザインモードを切り替え、ボタンをクリックします。 currentregionと経験の浅い人のため

Private Sub CommandButton1_Click() 

Worksheets("MyKPIs").Range("b12").CurrentRegion.Copy Worksheets("Month Template").Range("b5") 

End Sub 

空白のセルを持っている以下の2つのサンプルを見てみたが領域が選択されていて、簡単に範囲で開始と終了点を見ることができますし、どのように全体の空白の行または列の形ください。範囲。

currentregion sample1

currentregion sample2

関連する問題