|
下記のようなコードでD4セルにリストボックスから
データを入力しているのですが同時にE6・E7・E8・G6・G7・G8に
データを転記したいのですがコードの修正方法がわかりません。
よろしくお願いします。
データ範囲はAG列からAN列に記入済み
リストボックスからD4選択と同時に
E6に2番目のデータ[AH列]
E7に3番目のデータ[AI列]
E8に4番目のデータ[AJ列]
G6に5番目のデータ[AK列]
G7に6番目のデータ[AL列]
G8に7番目のデータ[AM列]
のデータをそれぞれ転記したいと考えています。
Option Explicit
Private Sub UserForm_Initialize()
ListBox1.RowSource = Sheets("sheet1"). _
Range(Range("AG2"), Range("AG2").End(xlDown)).Address
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub CommandButton1_Click()
ActiveCell.Value = ListBox1.Value
Unload Me
End Sub
Private Sub ListBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyReturn Then
ListBox1.Enabled = False
ListBox1.Enabled = True
KeyCode = 0
End If
End Sub
|
|