こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

Excel2007 VBA 転記について

ご指導のほどお願いします。

見積書からボタン300をクリックするとFAX送付状(テンプレート).xlsに下記内容が転記するように書いたのですが、質問させてください。
("見積書").Range("c6")→("Sheet1").Range("e14")に貼り付けはうまく行きますが
本当は("見積書").Range("c6")&("見積書").Range("c8")=&"の件"を("Sheet1").Range("e14")に貼り付けしたいのです。
C6セル「○○○工場」
C8セル「○○○作業」
の件
↑をE14セルに「○○○工場 ○○○作業の件」
として貼り付けたいです。


Sub ボタン300_Click()
Workbooks.Open "\FAX送付状\FAX送付状(テンプレート).xls"

ThisWorkbook.Worksheets("見積書").Range("a4").Copy
Workbooks("FAX送付状(テンプレート).xls").Worksheets("Sheet1").Range("f6").PasteSpecial Paste:=xlPasteValues
ThisWorkbook.Worksheets("見積書").Range("i8").Copy
Workbooks("FAX送付状(テンプレート).xls").Worksheets("Sheet1").Range("AD9").PasteSpecial Paste:=xlPasteValues
ThisWorkbook.Worksheets("見積書").Range("c6").Copy
Workbooks("FAX送付状(テンプレート).xls").Worksheets("Sheet1").Range("e14").PasteSpecial Paste:=xlPasteValues 

ActiveSheet.Range("F9").Value = Date

End Sub

ご指導のほどお願いします。

投稿日時 - 2012-06-29 14:51:23

QNo.7561912

困ってます

質問者が選んだベストアンサー

こんなカンジ。

Sub ボタン300_Click()
 Workbooks.Open "\FAX送付状\FAX送付状(テンプレート).xls"
 
 Workbooks("FAX送付状(テンプレート).xls").Worksheets("Sheet1").Range("f6").value _
= ThisWorkbook.Worksheets("見積書").Range("a4").value

 Workbooks("FAX送付状(テンプレート).xls").Worksheets("Sheet1").Range("AD9").value _
= ThisWorkbook.Worksheets("見積書").Range("i8").value

 Workbooks("FAX送付状(テンプレート).xls").Worksheets("Sheet1").Range("e14").value _
= ThisWorkbook.Worksheets("見積書").Range("c6").value _
& ThisWorkbook.Worksheets("見積書").Range("c8").value _
& "の件"

 ActiveSheet.Range("F9").Value = Date

End Sub

投稿日時 - 2012-06-29 16:18:21

お礼

先に貼り付ける場所を指定しても良いんですね!
ありがとうございます。

VBA全然わかりません・・・

もっと頑張ります。

投稿日時 - 2012-06-30 16:32:05

ANo.1

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

-広告-
-広告-

回答(1)

-広告-
-広告-

あなたにオススメの質問

-広告-
-広告-