Excel VBA質問箱 IV

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

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


50749 / 76732 ←次へ | 前へ→

【30868】Re:飛び飛びのセルの値を別ブックのシートへ
質問  allex  - 05/11/6(日) 13:05 -

引用なし
パスワード
   ponponさん、ぽんかんさん、再度ごめんなさい。おねがいします。
下記コードで操作したいことは
denpyo001.xls の 納品請求書(シート名です。)のセルC5に入力された名前の
シート(売掛.xlsの中のシートです)を開き、納品請求書の別のセルに入力されて
いる値(例えば、品名、数量、金額、備考などが不規則なセルに入力されている値)
を 売掛.xls の開かれたシート (納品請求書のセルC5の値のシート名)の
不規則なセルにそれぞれペーストする。ということをしたいのですが
教わったコードなどをつぎはぎで作っていますがエラーになります。
どうしたらいいでしょうか?
宜しくお願いします。

ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー

Private Sub CommandButton2_Click()

Dim mysheet As String
Dim mybook As Workbook
Dim myopensheet As Worksheet
Dim mysheet1 As Worksheet

mysheet = ThisWorkbook.Sheets("納品請求書").Range("c5").Value

Set mybook = workbooks.Open(Filename:=ThisWorkbook.Path & "\売掛.xls")
mybook.Activate
For Each myopensheet In mybook.worksheets
If myopensheet.Name = mysheet Then
mybook.Sheets(mysheet).Activate

Set mysheet1 = workbooks("denpyo001.xls").worksheets("納品請求書")
Set myopensheet = workbooks("売掛.xls").worksheets("mysheet")
With myopensheet
.Range("b7").Value = mysheet1.Range("h3")
.Range("h7").Value = mysheet1.Range("h15")
.Range("e7").Value = mysheet1.Range("c15")
End With

Set mysheet1 = Nothing: Set myopensheet = Nothing

Exit Sub
End If
Next
MsgBox "指定したシートがありません。"

End Sub

宣言の仕方が間違っているのでしょうか・
コードそのものがダメですか。
5 hits

【30853】飛び飛びのセルの値を別ブックのシートへ allex 05/11/6(日) 0:01 質問
【30858】Re:飛び飛びのセルの値を別ブックのシートへ ponpon 05/11/6(日) 1:22 発言
【30860】Re:飛び飛びのセルの値を別ブックのシートへ allex 05/11/6(日) 1:58 お礼
【30865】Re:飛び飛びのセルの値を別ブックのシートへ ぽんかん 05/11/6(日) 10:03 回答
【30867】Re:飛び飛びのセルの値を別ブックのシートへ allex 05/11/6(日) 11:53 お礼
【30868】Re:飛び飛びのセルの値を別ブックのシートへ allex 05/11/6(日) 13:05 質問
【30875】Re:飛び飛びのセルの値を別ブックのシートへ Akisame 05/11/6(日) 14:11 発言
【30877】Re:飛び飛びのセルの値を別ブックのシートへ allex 05/11/6(日) 14:41 質問
【30878】Re:飛び飛びのセルの値を別ブックのシートへ とまと 05/11/6(日) 14:54 発言
【30880】Re:飛び飛びのセルの値を別ブックのシートへ allex 05/11/6(日) 15:07 質問
【30881】Re:飛び飛びのセルの値を別ブックのシートへ とまと 05/11/6(日) 15:12 回答
【30882】Re:飛び飛びのセルの値を別ブックのシートへ allex 05/11/6(日) 15:39 お礼
【30883】Re:飛び飛びのセルの値を別ブックのシートへ Akisame 05/11/6(日) 15:41 発言
【30886】Re:飛び飛びのセルの値を別ブックのシートへ allex 05/11/6(日) 17:11 お礼
【30888】Re:飛び飛びのセルの値を別ブックのシートへ ponpon 05/11/6(日) 18:59 発言
【30889】Re:飛び飛びのセルの値を別ブックのシートへ allex 05/11/6(日) 19:17 お礼

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