|
とまとさま
実際にデータを検索するのはC列だったので、
Private Sub CommandButton1_Click()
Dim c '←これって何も宣言しなくてもいいんですか?
Set c = Columns("C").Find(TextBox1.Value, , xlValues, xlWhole, , xlPrevious)
If Not c Is Nothing Then
c.Offset(1).EntireRow.Insert shift:=xlShiftDown
c.Offset(1).Value = c.Value 'この後にセルA,Bへの代入のコードが欲しいのです。
Me.Hide
Else
MsgBox "ないよ!"
End If
End Sub
このように使わせて頂きました。同データの次の行に無事挿入されました。
挿入された行のセルCにはデータがコピーされましたが、セルAとセルB
niha,
textbox2、textbox3のデータを入れたい時、セルA、Bを指定できません。
セルCを基準にして指定するのでしょうか。
すみません、見習の身分で色々試してみましたが、だめでした。
よろしくお願い致します。
|
|