Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

3012 / 13646 ﾂﾘｰ

←次へ　｜　前へ→

▼

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

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

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

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

【64629】Re:コピーして貼り付け２ 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:コピーして貼り付け２ Yuki 10/2/27(土) 10:01

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

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


	【64624】コピーして貼り付け２

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:コピーして貼り付け２

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:コピーして貼り付け２

taka - 10/2/26(金) 16:21 -


	引用なし

	パスワード

Jakaさん　有り難うございます。

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

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

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


	【64628】Re:コピーして貼り付け２

Jaka - 10/2/26(金) 16:41 -


	引用なし

	パスワード

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

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

　　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:コピーして貼り付け２

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:コピーして貼り付け２

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:コピーして貼り付け２

taka - 10/2/27(土) 12:40 -


	引用なし

	パスワード

Yukiさん
今回も助けて頂き有り難うございました。
無事に動きました。

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


	【64804】フォローありがとうございました。

Jaka - 10/3/15(月) 9:34 -


	引用なし

	パスワード

今頃思い出しました。
月曜に続いて、火曜は体調崩して（風邪？）休んでいたら、
回答していたことをコロッと忘れてました。
（ヘルプ出しておいて。）

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

ごめんなさい。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

3012 / 13646 ﾂﾘｰ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free