.cellserow

This is my first post so please be gentle with me. :cool: I am currently using Excel for Office 365. I have a user form for data entry to either of two sheets, the sheet is selected in ComboBox5. Sub EditAdd finds last row of the existing data (using column C as the reference) and puts the...

Hi, I'd like to change the following code such that only the Left three characters of the Department value are taken. Left tutorials aren't helping me much. With ws .Cells(ERow, 1).Value = Me.ptmember.Value .Cells(ERow, 2).Value = Me.StudyRole.Value .Cells(ERow, 4).Value =...

Hi, I have an AutoFilter on Worksheet("Tracker"), and I'd like to disable it while this sub runs as part of a UserForm. At the moment, it autofilters the copied range and then finds the last empty row again and inputs the information from the UserForm. What I'd like it to do is input that info...

Hi, in addition to the If statement causing error 13, I'm getting 1004 in the With statement. Thoughts? Private Sub OK_Click() Dim ERow As Long Dim ws As Worksheet Set ws = Worksheets("Tracker") 'find first empty row ERow = ws.Cells.Find(What:="*", SearchOrder:=xlRows, _...

Hi, I am getting a type mismatch for the If statement in the following code: Private Sub OK_Click() Dim ERow As Long Dim ws As Worksheet Set ws = Worksheets("Tracker") 'find first empty row ERow = ws.Cells.Find(What:="*", SearchOrder:=xlRows, _ SearchDirection:=xlPrevious...

Hi, I've created my first userform, and there's something wrong, but I'm not sure what. Please let me know if you need more info than the code that's here. Here is everything in my VBA Editor. I'd also appreciate it if someone could tell me how to put a box of code in here rather than plain...

Hi I have created a form in VB to enter data into a table in excel, part of the macro adds formulas to the relevant cells, it almost works but I cannot get the equation to pickup the row reference for that cell. Any help would be appreciated Private Sub cmdenter_Click() 'Copy input values to...