|
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
宣言の仕方が間違っているのでしょうか・
コードそのものがダメですか。
|
|