Help in updating 2nd work sheet form user form

[mmikem]

Hello All
I have a user form that I use to update memberships But what I need to do is update the member date on a 2nd work sheet
it would have to find the members name from the cboMem and use the dtpMdate the second sheet is called MemNum and has a name range called listMemberNum

Here is what I use to write to the first sheet I am new to VBA any suggestions Thanks

Private Sub cmdEnter_Click()
    mMem = Me.cboMem
    mOrha = Me.txtOrha
    mNrha = Me.txtNrha
    mOef = Me.txtOef
    mAddress = txtaddress
    mProv = cboProv
    mPost = txtPost
    mhome = txtHome
    mPCell = txtPCell
    mEmail = txtEmail
    mMg = cboMg
    mMt = cboMt
    mLyy = txtLyy
    mDollars = txtDollars
    mPtype = cboPtype
    mChecknum = txtChecknum
On Error Resume Next
Set mCell = ActiveCell
    With mCell
        .Value = mMem
        .Offset(0, 1) = dtpMDate
        .Offset(0, 22) = NewMem
        .Offset(0, 2) = mOrha
        .Offset(0, 3) = mNrha
        .Offset(0, 4) = mOef
        .Offset(0, 5) = mAddress
        .Offset(0, 6) = mProv
        .Offset(0, 7) = mPost
        .Offset(0, 9) = mhome
        .Offset(0, 10) = mPCell
        .Offset(0, 12) = mEmail
        .Offset(0, 13) = mMg
        .Offset(0, 14) = mMt
        .Offset(0, 15) = mLyy
        .Offset(0, 23) = mDollars
        .Offset(0, 26) = mPtype
        .Offset(0, 27) = mChecknum
        .Offset(0, 51) = CheckBox1
        .Offset(0, 52) = CheckBox2
        .Offset(0, 53) = CheckBox3
        .Offset(0, 54) = CheckBox4
        .Offset(0, 55) = CheckBox5
        .Offset(0, 56) = CheckBox6
        .Offset(0, 57) = CheckBox7
      
     End With
   
            Unload Me
    
End Sub

 

[Roderick_E]

Looks like you need to figure out the address of mCell which I assume mean "matched cell"
Something like this perhaps.

if iserror(application.match(mMem,cbMem,0))=false then
mCell = cells(application.match(mMem,cboMem,0), "static column letter of cboMem?").address
endif

 

[mmikem]

No the code I listed works fine and writes all the info to sheet 1

What I want to do is add to that code If the name in cboMem is found on sheet 2 the date from dptMdate is written to sheet 2 in the column beside the name

 

[Roderick_E]

Which column on sheet 2 contains the names? And I suppose they are unique?
If so my code is almost correct.

if iserror(application.match(cboMem, column-range-on-sheet2,0))=false then
hitrow = application.match(cboMem, column-range-on-sheet2,0)
sheet2.cells(hitrow, date-column-range-on-sheet2) = dptMdate
endif

 

[mmikem]

On Sheet 2 Names are in Columns B,G,L,Q,V

the dptMdate would be Columns C,H,M,R,W

 

[mmikem]

Also not sure where to put your code in mine