Help with using command buttons

Hello experts,

I have the following situation and trying to solve using vba.

I have few sentences in "sheet1". one in cell "B3" and other in cell "B9" and i have placed two command buttons named "Insert" and "clear" against each sentence, so that when ever "Insert" button is clicked the respective sentence will be copied in cell "D1" of sheet 2, and "clear" button to "clear" the respective sentence. When more than one sentence is inserted i am trying to have one line gap between them.

Please help with the code that is to be written in "Insert" and "Clear" buttons.

Thank You.

Assign to each command button respectively (assuming you are using form control command buttons)

Sub B3_Insert()
Dim ws1 As Worksheet:    Set ws1 = Sheets("Sheet1")
Dim ws2 As Worksheet:    Set ws2 = Sheets("Sheet2")

If ws2.Range("D1").Value = "" Then
    ws2.Range("D1").Value = ws1.Range("B3").Value
Else
    ws2.Range("D1").Value = ws2.Range("D1").Value & Chr(10) & ws1.Range("B3").Value
End If

End Sub

Sub B9_Insert()
Dim ws1 As Worksheet:    Set ws1 = Sheets("Sheet1")
Dim ws2 As Worksheet:    Set ws2 = Sheets("Sheet2")

If ws2.Range("D1").Value = "" Then
    ws2.Range("D1").Value = ws1.Range("B9").Value
Else
    ws2.Range("D1").Value = ws2.Range("D1").Value & Chr(10) & ws1.Range("B9").Value
End If

End Sub

Sub D1_Clear()

Sheets("Sheet2").Range("D1").ClearContents

End Sub

Originally Posted by stnkynts

Assign to each command button respectively (assuming you are using form control command buttons)

Sub B3_Insert()
Dim ws1 As Worksheet:    Set ws1 = Sheets("Sheet1")
Dim ws2 As Worksheet:    Set ws2 = Sheets("Sheet2")

If ws2.Range("D1").Value = "" Then
    ws2.Range("D1").Value = ws1.Range("B3").Value
Else
    ws2.Range("D1").Value = ws2.Range("D1").Value & Chr(10) & ws1.Range("B3").Value
End If

End Sub

Sub B9_Insert()
Dim ws1 As Worksheet:    Set ws1 = Sheets("Sheet1")
Dim ws2 As Worksheet:    Set ws2 = Sheets("Sheet2")

If ws2.Range("D1").Value = "" Then
    ws2.Range("D1").Value = ws1.Range("B9").Value
Else
    ws2.Range("D1").Value = ws2.Range("D1").Value & Chr(10) & ws1.Range("B9").Value
End If

End Sub

Sub D1_Clear()

Sheets("Sheet2").Range("D1").ClearContents

End Sub

Thank you very much for taking out your valuable time and helping others.

The above code is working good except that "clear" button is deleting the entire content in the cell, instead of clearing only the respective line. from cell D1

Do you mean this?

Sub B3_Insert()
Dim ws1 As Worksheet:    Set ws1 = Sheets("Sheet1")
Dim ws2 As Worksheet:    Set ws2 = Sheets("Sheet2")

If ws2.Range("D1").Value = "" Then
    ws2.Range("D1").Value = ws1.Range("B3").Value
Else
    ws2.Range("D1").Value = ws2.Range("D1").Value & Chr(10) & ws1.Range("B3").Value
End If

End Sub

Sub B9_Insert()
Dim ws1 As Worksheet:    Set ws1 = Sheets("Sheet1")
Dim ws2 As Worksheet:    Set ws2 = Sheets("Sheet2")

If ws2.Range("D1").Value = "" Then
    ws2.Range("D1").Value = ws1.Range("B9").Value
Else
    ws2.Range("D1").Value = ws2.Range("D1").Value & Chr(10) & ws1.Range("B9").Value
End If

End Sub

Sub B3_Clear()
Dim ws1 As Worksheet:    Set ws1 = Sheets("Sheet1")
Dim ws2 As Worksheet:    Set ws2 = Sheets("Sheet2")
Dim strResult As String

If Not InStr(1, ws2.Range("D1").Value, ws1.Range("B3").Value) = 0 Then
    ws2.Range("D1").Value = Replace(ws2.Range("D1").Value, ws1.Range("B3").Value, "")
End If

End Sub

Sub B9_Clear()
Dim ws1 As Worksheet:    Set ws1 = Sheets("Sheet1")
Dim ws2 As Worksheet:    Set ws2 = Sheets("Sheet2")
Dim strResult As String

If Not InStr(1, ws2.Range("D1").Value, ws1.Range("B9").Value) = 0 Then
    ws2.Range("D1").Value = Replace(ws2.Range("D1").Value, ws1.Range("B9").Value, "")
End If

End Sub