|
sheet1にある各セルのTextをsheet("DATA")に上から順番に記録させたいのですが、
例)
("sheet1")シート
セル k5が1000
D7が500 といったように沢山Textデーターがあるのですが、それを
↓
("DATA")シート
のA3のシートから順番に
A3 は 1000
B3 は 500
で、しかも次にこのマクロを使うときは最終行を取得して
("DATA")シート
A4 は 1000
B4 は 500
の様に記録して行きたいのですが、どうしたら良いでしょうか?
------
以前この掲示版でユーザーフォーム形式で教えて頂いたときは下記のような
プログラムを教えて頂いたのですが、今回のパターンはどうすればよいのでしょうか?
Option Explicit
Private wksList As Worksheet
Private vntPos As Variant
Private lngRow As Long
Private Sub UserForm_Initialize()
vntPos = Array("K5", "D7", "F7", "F4", "H4", "F5",・・・・・・)
Set wksList = Workbooks("club ARK.xls").Worksheets("DATA")
With wksList
'伝票一覧の最終行を取得
lngRow = .Range("A65536").End(xlUp).Row
'最終行が3未満なら
If lngRow < 3 Then
lngRow = 3
'最終行が3以上なら+1
Else
lngRow = lngRow + 1
End If
End With
End Sub
Private Sub UserForm_Terminate()
Set wksList = Nothing
End Sub
Sub OkBtn()
Dim i As Long
With Sheet1
'データ位置全てに就いて繰り返し
For i = 0 To UBound(vntPos)
'データ位置のデータを順番に転記
wksList.Cells(lngRow, i + 1).Value = .Range(vntPos(i)).Value
Next i
End With
'書き込み行を更新
lngRow = lngRow + 1
Workbooks("club ARK.xls").Save
End Sub
-------------
大変お手数をお掛けしますが、どなたか親切な方助けて下さい。宜しくお願い致します。
|
|