My vab code doesnot change cell value ? Please Help.

[37jwalavihar]

Option Explicit
Dim PartyRowNumber, TotalParty, SearchParty, MessageBoxReturnValue As Integer
Dim SearchPartyName, AddNewPartyOK, SaveChangesOK As String




Private Sub cmdAddNewParty_Click()

If frmPartyData.cmdAddNewParty.Caption = "Add New Party" Then
    Call cmdResetPartyEntry_Click
    frmPartyData.cmdAddNewParty.Caption = "Save New Party"

Else
    Dim NewPartyAddRow As Integer
    NewPartyAddRow = PartyDetail.Cells(Rows.Count, 1).End(xlUp).Row
        If NewPartyAddRow + 1 = TotalParty + 1 Then
       
             If frmPartyData.TextBoxPartyName = "" Or frmPartyData.TextBoxPartyAdd1 = "" Or frmPartyData.TextBoxPartyCity = "" _
             Or frmPartyData.TextBoxPartyPincode = "" Or frmPartyData.TextBoxPartyEmail = "" Or frmPartyData.TextBoxPartyMobile = "" Then
            
             MsgBox "Please Check Data - Entries are Missing", vbOKOnly, "Please Enter All Details"
            
             Else
            
                NewPartyAddRow = NewPartyAddRow + 1
                PartyDetail.Cells(NewPartyAddRow, 1) = frmPartyData.TextBoxPartyName
                 PartyDetail.Cells(NewPartyAddRow, 9) = frmPartyData.TextBoxPartyAdd1
                PartyDetail.Cells(NewPartyAddRow, 10) = frmPartyData.TextBoxPartyAdd2
                PartyDetail.Cells(NewPartyAddRow, 11) = frmPartyData.TextBoxPartyAdd3
                PartyDetail.Cells(NewPartyAddRow, 12) = frmPartyData.TextBoxPartyAdd4
                PartyDetail.Cells(NewPartyAddRow, 13) = frmPartyData.TextBoxPartyAdd5
                PartyDetail.Cells(NewPartyAddRow, 5) = frmPartyData.TextBoxPartyCity
                PartyDetail.Cells(NewPartyAddRow, 4) = frmPartyData.TextBoxPartyState
                PartyDetail.Cells(NewPartyAddRow, 3) = frmPartyData.TextBoxPartyPincode
                PartyDetail.Cells(NewPartyAddRow, 7) = frmPartyData.TextBoxPartyContactPersons
                PartyDetail.Cells(NewPartyAddRow, 6) = frmPartyData.TextBoxPartyLandLine
                PartyDetail.Cells(NewPartyAddRow, 8) = frmPartyData.TextBoxPartyMobile
                PartyDetail.Cells(NewPartyAddRow, 2) = frmPartyData.TextBoxPartyEmail
                PartyDetail.Cells(NewPartyAddRow, 14) = frmPartyData.TextBoxPartySpecialNote
                PartyDetail.Cells(2, 15) = NewPartyAddRow
                TotalParty = NewPartyAddRow
                frmPartyData.TextBoxShowPartyTotal = Trim(Str(TotalParty)) + "/" + Trim(Str(TotalParty))
                frmPartyData.ComboBoxPartySearch.RowSource = "partydetail!$A$2:$A$" & Trim(Str(TotalParty))
                frmPartyData.ComboBoxPartySearch.ListIndex = TotalParty - 2
               
                AddNewPartyOK = "OK"
               
            End If
        End If

    If AddNewPartyOK = "OK" Then
        frmPartyData.cmdAddNewParty.Caption = "Add New Party"
        AddNewPartyOK = ""
    End If

End If

End Sub

Private Sub cmdEditParty_Click()

frmPartyData.ComboBoxPartySearch.Visible = True

End Sub

Private Sub cmdResetPartyEntry_Click()

frmPartyData.cmdAddNewParty.Caption = "Add New Party"
frmPartyData.cmdEditParty.Caption = "Edit Party"
AddNewPartyOK = ""
SaveChangesOK = ""
frmPartyData.TextBoxPartyName = ""
frmPartyData.TextBoxPartyAdd1 = ""
frmPartyData.TextBoxPartyAdd2 = ""
frmPartyData.TextBoxPartyAdd3 = ""
frmPartyData.TextBoxPartyAdd4 = ""
frmPartyData.TextBoxPartyAdd5 = ""
frmPartyData.TextBoxPartyCity = ""
frmPartyData.TextBoxPartyState = ""
frmPartyData.TextBoxPartyPincode = ""
frmPartyData.TextBoxPartyContactPersons = ""
frmPartyData.TextBoxPartyLandLine = ""
frmPartyData.TextBoxPartyMobile = ""
frmPartyData.TextBoxPartyEmail = ""
frmPartyData.TextBoxPartySpecialNote = ""
frmPartyData.TextBoxShowPartyTotal = "0/" + Trim(Str(TotalParty))

End Sub

Private Sub cmdSaveParty_Click()

If frmPartyData.TextBoxPartyName = "" Or frmPartyData.TextBoxPartyAdd1 = "" Or frmPartyData.TextBoxPartyCity = "" _
             Or frmPartyData.TextBoxPartyPincode = "" Or frmPartyData.TextBoxPartyEmail = "" Or frmPartyData.TextBoxPartyMobile = "" Then
            
             MsgBox "Please Check Data - Entries are Missing", vbOKOnly, "Please Enter All Details"
                    
Else
             SaveChangesOK = "OK"
              
End If

If SaveChangesOK = "OK" Then

                PartyDetail.Cells(SearchParty, 1) = frmPartyData.TextBoxPartyName.Text
                PartyDetail.Cells(SearchParty, 9) = frmPartyData.TextBoxPartyAdd1.Text
                PartyDetail.Cells(SearchParty, 10) = frmPartyData.TextBoxPartyAdd2.Text
                PartyDetail.Cells(SearchParty, 11) = frmPartyData.TextBoxPartyAdd3.Text
                PartyDetail.Cells(SearchParty, 12) = frmPartyData.TextBoxPartyAdd4.Text
                PartyDetail.Cells(SearchParty, 13) = frmPartyData.TextBoxPartyAdd5.Text
                PartyDetail.Cells(SearchParty, 5) = frmPartyData.TextBoxPartyCity.Text
                PartyDetail.Cells(SearchParty, 4) = frmPartyData.TextBoxPartyState.Text
                PartyDetail.Cells(SearchParty, 3) = frmPartyData.TextBoxPartyPincode.Text
                PartyDetail.Cells(SearchParty, 7) = frmPartyData.TextBoxPartyContactPersons.Text
                PartyDetail.Cells(SearchParty, 6) = frmPartyData.TextBoxPartyLandLine.Text
                PartyDetail.Cells(SearchParty, 8) = frmPartyData.TextBoxPartyMobile.Text
                PartyDetail.Cells(SearchParty, 2).Value = frmPartyData.TextBoxPartyEmail.Text
                PartyDetail.Cells(SearchParty, 14) = frmPartyData.TextBoxPartySpecialNote.Text
                frmPartyData.TextBoxShowPartyTotal = Trim(Str(SearchParty)) + "/" + Trim(Str(TotalParty))
                frmPartyData.ComboBoxPartySearch.RowSource = "partydetail!$A$2:$A$" & Trim(Str(SearchParty))
                frmPartyData.ComboBoxPartySearch.ListIndex = SearchParty - 2
                SaveChangesOK = ""
   
End If


End Sub

Private Sub ComboBoxPartySearch_Change()

SearchParty = frmPartyData.ComboBoxPartySearch.ListIndex
SearchParty = SearchParty + 2
frmPartyData.TextBoxPartyName = PartyDetail.Cells(SearchParty, 1)
frmPartyData.TextBoxPartyAdd1 = PartyDetail.Cells(SearchParty, 9)
frmPartyData.TextBoxPartyAdd2 = PartyDetail.Cells(SearchParty, 10)
frmPartyData.TextBoxPartyAdd3 = PartyDetail.Cells(SearchParty, 11)
frmPartyData.TextBoxPartyAdd4 = PartyDetail.Cells(SearchParty, 12)
frmPartyData.TextBoxPartyAdd5 = PartyDetail.Cells(SearchParty, 13)
frmPartyData.TextBoxPartyCity = PartyDetail.Cells(SearchParty, 5)
frmPartyData.TextBoxPartyState = PartyDetail.Cells(SearchParty, 4)
frmPartyData.TextBoxPartyPincode = PartyDetail.Cells(SearchParty, 3)
frmPartyData.TextBoxPartyContactPersons = PartyDetail.Cells(SearchParty, 7)
frmPartyData.TextBoxPartyLandLine = PartyDetail.Cells(SearchParty, 6)
frmPartyData.TextBoxPartyMobile = PartyDetail.Cells(SearchParty, 8)
frmPartyData.TextBoxPartyEmail = PartyDetail.Cells(SearchParty, 2)
frmPartyData.TextBoxPartySpecialNote = PartyDetail.Cells(SearchParty, 14)
frmPartyData.TextBoxShowPartyTotal = Trim(Str(SearchParty - 1)) + "/" + Trim(Str(TotalParty))
frmPartyData.ComboBoxPartySearch.Visible = False

End Sub



Private Sub CommandButton5_Click()

frmPartyData.Hide

End Sub



Private Sub UserForm_Initialize()

AddNewPartyOK = ""
SaveChangesOK = ""
frmPartyData.ComboBoxPartySearch.RowSource = "partydetail!$A$2:$a$" & Trim(Str(PartyDetail.Cells(2, 15)))
frmPartyData.ComboBoxPartySearch.Visible = False
TotalParty = PartyDetail.Cells(2, 15)
Call cmdResetPartyEntry_Click

End Sub