| |
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
宣言の仕方が間違っているのでしょうか・
コードそのものがダメですか。
|
|
allex
- 05/11/6(日) 13:05 -
