0

最初に、列 (C) の最大値を見つけてから、その値をコピーして、別の (マスター) ワークブックの「行 3」の次の空のセルに貼り付けようとしています。実行中のマクロは、マスター ブックにあります。貼り付けられたセルを正しい場所に配置すると思われるこのコードを見つけましたが、データブックの列 C で最大のセルを見つけ、その値をコピーして貼り付ける方法について、コードで支援を使用できます。

Private Sub CommandButton1_Click()
Dim wsMaster As Worksheet, wbDATA As Workbook
Dim NextColumn As Long, LastRow As Long

Set wsMaster = ThisWorkbook.Sheets("Contract Metrics")
NextColumn = wsMaster.Range("C", 3).End(xlUp).Column + 1

Set wbDATA = Workbooks.Open("C:\Documents and Settings\Michael Palkovitz\My Documents\Test\Contracts Metrics.xlsx")

wbDATA.Close False
End Sub
4

1 に答える 1