Enter data in Excel sheet by textbox through VB coding

[socialmx]

Hi dear friends.
Can anyone help me?
I created a VB form in Excel and a textbox and one command button. When I click the command button the text entered in the textbox will store in the empty cell range.
Of course it will show do.
But I like when I entered in the text in the textbox which already entered in the Excel sheet msgbox should show that the text already entered you cannot reenter and it should not enter the text again in sheet.
I hope that you can help me?

[kadghar]

Im not quite sure i understood you, but i think this might be useful:

sub commandbutton1_click()
 
with worksheets(1).cells(1,1)
    if .value<> "" then
        .value = textbox1.text
    else
        msgbox("You cannot fill that cell twice")
    end if
end with
 
end sub

Hope that helps

[QVeen72]

Im not quite sure i understood you, but i think this might be useful:

sub commandbutton1_click()
 
with worksheets(1).cells(1,1)
    if .value<> "" then
        .value = textbox1.text
    else
        msgbox("You cannot fill that cell twice")
    end if
end with
 
end sub

Hope that helps

Hi Kadghar,

If condition should be Reversed:

sub commandbutton1_click()
 
with worksheets(1).cells(1,1)
    if Trim(.value) =  "" then
        .value = textbox1.text
    else
        msgbox("You cannot fill that cell twice")
    end if
end with
end sub
 

REgards
Veena