Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


3010 / 13644 ツリー ←次へ | 前へ→

【64624】コピーして貼り付け 2 taka 10/2/26(金) 12:58 質問[未読]
【64626】Re:コピーして貼り付け 2 Jaka 10/2/26(金) 15:46 発言[未読]
【64627】Re:コピーして貼り付け 2 taka 10/2/26(金) 16:21 質問[未読]
【64628】Re:コピーして貼り付け 2 Jaka 10/2/26(金) 16:41 発言[未読]
【64629】Re:コピーして貼り付け 2 taka 10/2/26(金) 17:02 質問[未読]
【64631】誰かお願いします Jaka 10/2/26(金) 17:37 発言[未読]
【64632】Re:誰かお願いします kei 10/2/26(金) 19:34 回答[未読]
【64634】Re:誰かお願いします taka 10/2/27(土) 0:37 質問[未読]
【64635】Re:誰かお願いします よろずや 10/2/27(土) 6:53 回答[未読]
【64636】Re:コピーして貼り付け 2 Yuki 10/2/27(土) 10:01 発言[未読]
【64637】Re:コピーして貼り付け 2 taka 10/2/27(土) 12:40 お礼[未読]
【64804】フォローありがとうございました。 Jaka 10/3/15(月) 9:34 発言[未読]

【64624】コピーして貼り付け 2
質問  taka  - 10/2/26(金) 12:58 -

引用なし
パスワード
   こんにちは
Yukiさんに以下にコードを教えてもらいました。

>任意位置の行のB列の最終列を検索し
>任意位置のA列から最終列Gまでを
>Sheets("見本").Range("A2")に貼り付ける

Sub TESTb()
  With ActiveSheet
    .Range("A" & Selection.Row & ":G" & _
    .Range("B" & .Rows.Count).End(xlUp).Row).Copy _
    Worksheets("Sheet1").Range("A2")
  End With
End Sub

もう1つ質問したいのですが、同じ条件で貼り付け先がActiveSheetで
任意位置のA列から100行下のAに貼り付けようと
以下のようにして見たのですが
With ActiveCell以外すべて赤文字になります。
ご指導のほどよろしくお願いします。

With ActiveCell
    .Range("A" & Selection.Row & ":G" & _
    .Range("B" & .Rows.Count).End(xlDown).Row).Copy _
    .EntireRow.Cells(100, 1)
  End With

【64626】Re:コピーして貼り付け 2
発言  Jaka  - 10/2/26(金) 15:46 -

引用なし
パスワード
   これでいいんじゃない?

  Range("A" & ActiveCell.Row & ":G" & _
  Range("B" & Rows.Count).End(xlDown).Row).Copy _
  ActiveCell.EntireRow.Cells(100, 1)

【64627】Re:コピーして貼り付け 2
質問  taka  - 10/2/26(金) 16:21 -

引用なし
パスワード
   Jakaさん 有り難うございます。

実行エラー出て、いずれの操作を2つやって見ましたが
同じエラーが出ます。
「コピー領域と貼り付け領域の形が違うため」の
領域の形とは、何でしょうか?
すべて同じ大きさのCellなのですが。
宜しくお願い致します。

実行エラー1004
コピー領域と貼り付け領域の形が違うため
情報を貼り付けることが出来ません。
情報を貼り付けるには、次のいずれの操作を行ってください。

?1つのCellをクリックし貼り付けて見てください。
?貼り付け先の形を確かめ、適切な範囲を選択した後、貼り付けて見てください。

【64628】Re:コピーして貼り付け 2
発言  Jaka  - 10/2/26(金) 16:41 -

引用なし
パスワード
   え〜と、こちら側からそちらのデータレイアウトがどうなっているのか、
わかりませんし、
どのような状態に置きにマクロを実行するのかもわかりません。
新規ブックにて、マクロの実行結果が、これで良いのか確認等をしてみることを進めます。

Sub jabjab()
Range("A1:B25").Value = 5
Range("A22").Select
MsgBox "データがこんなだとして、アクティブセルがA22の場合。"

  Range("A" & ActiveCell.Row & ":G" & _
  Range("B" & Rows.Count).End(xlDown).Row).Select
  Selection.Interior.ColorIndex = 7
  MsgBox "色をつけて、確認用メッセージで進行を止める。" & vbLf & _
      "この部分をコピーして"
  
  ActiveCell.EntireRow.Cells(100, 1).Select
  MsgBox "ここに張り付け。"
End Sub

【64629】Re:コピーして貼り付け 2
質問  taka  - 10/2/26(金) 17:02 -

引用なし
パスワード
   Jakaさん

新規ブックで検証してみました。
  
  ActiveCell.EntireRow.Cells(121, 1)が、選択され
  MsgBox "ここに張り付け。"で、上手く行きました。

後は、どのようにすれば良いでしょうか?
宜しくお願い致します。

【64631】誰かお願いします
発言  Jaka  - 10/2/26(金) 17:37 -

引用なし
パスワード
   もう帰るので、誰か後お願いします。
また来週の月曜、用事があって休みます。

【64632】Re:誰かお願いします
回答  kei  - 10/2/26(金) 19:34 -

引用なし
パスワード
   ▼Jaka さん:
>もう帰るので、誰か後お願いします。
>また来週の月曜、用事があって休みます。

  Range("A" & ActiveCell.Row & ":G" & _
  Range("B" & Rows.Count).End(xlUp).Row).Copy _
  ActiveCell.EntireRow.Cells(100, 1)
でやってみて。。

【64634】Re:誰かお願いします
質問  taka  - 10/2/27(土) 0:37 -

引用なし
パスワード
   Jakaさん keiさん 有り難うございます。

新規ブックの標準モージュールでやって見たのですが
やはり同じエラーが出ます。
何度も申し訳有りませんが、宜しくお願い致します。

Option Explicit
Sub Test()
  Range("A" & ActiveCell.Row & ":G" & _
  Range("B" & Rows.Count).End(xlDown).Row).Copy _
  ActiveCell.EntireRow.Cells(100, 1)
End Sub

【64635】Re:誰かお願いします
回答  よろずや  - 10/2/27(土) 6:53 -

引用なし
パスワード
   > Range("B" & Rows.Count).End(xlDown).Row).Copy _
          ↓
 Range("B" & Rows.Count).End(xlUp).Row).Copy _

【64636】Re:コピーして貼り付け 2
発言  Yuki  - 10/2/27(土) 10:01 -

引用なし
パスワード
   ▼taka さん:
>Sub TESTb()
>  With ActiveSheet
>    .Range("A" & Selection.Row & ":G" & _
>    .Range("B" & .Rows.Count).End(xlUp).Row).Copy _
>    Worksheets("Sheet1").Range("A2")
>  End With
>End Sub
>
>もう1つ質問したいのですが、同じ条件で貼り付け先がActiveSheetで
>任意位置のA列から100行下のAに貼り付けようと

Sub TESTc()
  With ActiveSheet
    .Range("A" & Selection.Row & ":G" & _
    .Range("B" & .Rows.Count).End(xlUp).Row).Copy _
    ActiveSheet.Range("A" & ActiveCell.Offset(100).Row)
  End With
End Sub

【64637】Re:コピーして貼り付け 2
お礼  taka  - 10/2/27(土) 12:40 -

引用なし
パスワード
   Yukiさん
今回も助けて頂き有り難うございました。
無事に動きました。

Jakaさんはじめ皆様、本当にお世話になりました。
有り難うございました。

【64804】フォローありがとうございました。
発言  Jaka  - 10/3/15(月) 9:34 -

引用なし
パスワード
   今頃思い出しました。
月曜に続いて、火曜は体調崩して(風邪?)休んでいたら、
回答していたことをコロッと忘れてました。
(ヘルプ出しておいて。)

最近回答してないので、回答してないことが普通になってきた。
下のほうに見えるのに。
全く見えてない。
怠慢だ。

ごめんなさい。

3010 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free