i have excel file which i required comment or suggestion button(VBA).(i have attached file for reference)

[shiva786]

Please download my reference sheet and give some VBA codes according to that.
my requirement is "i have one sheet which i have protected by my password, if i send to my freind that file, he can only read the content , suppose if he has any sugestion he will right in the box which i pasted in excel file, so plz anyone put some VBA code for that or u can answer in this forum, plz..

https://www.dropbox.com/s/6fe0g8evnii4cjq/reference sheet.xlsm

 

[erik.van.geit]

Hi,

I saw the workbook, but this thread would be worthless without good information here.

I think your question is:

How can we put the contents of two textboxes in two columns (on another sheet) in the next available row?

Is it?

kind regards,
Erik

 

[shiva786]

yes correct,, if someone has some sugestion they will enetr their sugestion on first page, once they will submit it will go to 2nd sheet(No matter how man coulmns/rows it will consume

 

[erik.van.geit]

Hi

This code works for me.
You can put it within the sheetmodule (sheet where controls are located)

Private Sub CommandButton1_Click()
Dim NextRow As Long
Dim TB1 As msforms.TextBox
Dim TB2 As msforms.TextBox

    With ActiveSheet
    Set TB1 = .TextBox1
    Set TB2 = .TextBox2
    End With
    
    If TB1.Text = "" Or TB2.Text = "" Then
    MsgBox "Please fill in both textboxes", vbExclamation, "Empty textbox"
    Exit Sub
    End If
    
    With Sheets("Coment Storage location")
    NextRow = .Range("A" & Rows.Count).End(xlUp).Row + 1
    .Range("A" & NextRow) = TB1: TB1.Text = ""
    .Range("B" & NextRow) = TB2: TB2.Text = ""
    .Range("C" & NextRow) = Now
    End With
   
    MsgBox "Your comments are stored on next sheet", vbInformation, "COMMENTS"
    
End Sub

Note that your textboxes are not numbered in the correct order.
You could change the code, but I would strongly advise to switch the textboxes or their names; this will avoid confusion.

best regards,
Erik

 

[shiva786]

Hi

This code works for me.
You can put it within the sheetmodule (sheet where controls are located)

Private Sub CommandButton1_Click()
Dim NextRow As Long
Dim TB1 As msforms.TextBox
Dim TB2 As msforms.TextBox

    With ActiveSheet
    Set TB1 = .TextBox1
    Set TB2 = .TextBox2
    End With
    
    If TB1.Text = "" Or TB2.Text = "" Then
    MsgBox "Please fill in both textboxes", vbExclamation, "Empty textbox"
    Exit Sub
    End If
    
    With Sheets("Coment Storage location")
    NextRow = .Range("A" & Rows.Count).End(xlUp).Row + 1
    .Range("A" & NextRow) = TB1: TB1.Text = ""
    .Range("B" & NextRow) = TB2: TB2.Text = ""
    .Range("C" & NextRow) = Now
    End With
   
    MsgBox "Your comments are stored on next sheet", vbInformation, "COMMENTS"
    
End Sub

Note that your textboxes are not numbered in the correct order.
You could change the code, but I would strongly advise to switch the textboxes or their names; this will avoid confusion.

best regards,
Erik

 

[erik.van.geit]

You're WELCOME
Sorry I was not able to get bigger fontsize