ws.cellsirow

Good Day I have this userform with multiple TextBoxes. TextBox17 has a numeric value in it. When I edit record the rewrite the updated information to theExcel Sheet, I am getting #value ! error on the value column which points to TextBox17. The code for updating record is as follows...

Good Day I have 11 checkboxes on a userform. When I select a checkbox and write the data to excel sheet, the unselected checkboxes return a False Value and the checked is blank in the Sheet whereas it should return True Value which does not. Thanks Code is as follows: Private Sub...

So that Users do not have to capitalize the entries made into UserForm TextBoxes, I’ve incorporated these lines of code. ws.Cells(iRow, 1) = StrConv(TextBox1.Text, vbProperCase) ws.Cells(iRow, 2) = StrConv(TextBox2.Text, vbProperCase) ws.Cells(iRow, 3) = StrConv(TextBox2.Text, vbProperCase) & "...

My code adds data to worksheet (“Members”) without selecting the worksheet. In order to sort the worksheet I have to select the ws and then select the range. Otherwise, the code sorts the active worksheet. How can I modify my code to sort worksheet ("Members”) without selecting it? Additionally...

Hi. I got a MultiPage with several pages, and a userform to input data on the next line on spesific sheets, but i got a issue. I've had 4 pages for a long time, no issues what so ever, but then i added more pages, and copied the same code as i used for the 4 others, and just modified the names...

We have a file for managing our projects and their milestones... a number of months ago i created a UserForm to assist salesman to "upload" a new project into this file. Essentially, it had 24 text or combo boxes, and upon clicking the submit button, it: 1- Verified that each text/combobox...

Suggestions on how to add code to require Option? UserForm1 includes 2 OptionButtons If neither OptionButton is True Then MsgBox "Option Required" Private Sub CommandButton1_Click() With Sheet11 Sheet11.Unprotect Set ws = Sheet11 PName = UF1.ComboBox1.Value Set CLoc =...

I use this code to find existing Names in my data worksheet. Private Sub ComboBox1_AfterUpdate() Dim iRow As Long Dim ws As Worksheet Dim Name As String Dim CLoc As Range Set ws = Worksheets("Members") Name = Me.ComboBox1.Value Set CLoc =...

I’m attempting to assemble a ws with several columns of data. Macro1 works just fine. Except for the column & iRow cell references, Macro2 appears to me to be the same code. However, it replaces the existing data. Any ideas on how can this be resolved? SubMacro1() Dim FullName As String Dim...

Guys - I'm using this to copy values to another workbook only if the cell in column A and D are not blank; For Each Cell In Sheet1.Range("A2:A95")If Cell.Value <> "" Then If Cell.Offset(0, 3).Value <> "" ThenSet ws = DestFile.Sheets("Data") iRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1...

So this is a followup to another post i recently posting regarding unprotecting and reprotecting a sheet when entering data based on a userform. Thanks for the assistance on that.... The WS Im working on is our Project Log and has 350+ projects listed on it, each row is a specific project and...

Hey everyone, I have a userform with 3 entry boxes. 1 for a date (ComboBox1) and 2 Text Boxes to update values (dollar values). When I use the code below on my CommandButton to update it is only adding the date, but not adding the other 2 values. What am I missing? I am trying to update columns...

Hey everyone, New to this forum! Trying to look for a way to use one userform to enter several values in the same row by changing values in a list box. The userform asks for name, sex, a listbox with options for clothes (jacket, shirt, pants), a text box to specify how many items, a text box...

I'm using this to record an event; Sub ErrorAUDIT(Evnt As String) Application.ScreenUpdating = False Set ws = Worksheets("Audit") iRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row ws.Cells(iRow, 1).Value = Now ws.Cells(iRow, 2).Value = Evnt ws.Cells(iRow, 3).Value = evnt2 ws.Cells(iRow...

I just learned that my shared workbook for work may have not been the best idea. I am super bummed that I didn't research this more before I spent the last month building the quote sheet for 6 people to use. My question is I need this workbook to update on all machines when a person saves a...

This is going to be quick and easy for you all. On my Userform I have sequential numbers moving over to my spreadsheet But I want the number in A4 to start at 1000. I have tried putting 1000 in every spot I could to get it to work but to no avail. If I put 1000 in Cell A4 then it works and goes...

Private Sub cbAge_Click() Me.cboAge.Enabled = Me.cbAge End Sub Private Sub cbGender_Click() Me.cboGender.Enabled = Me.cbGender End Sub Private Sub cbMode_Click() Me.cboMode.Enabled = Me.cbMode End Sub Private Sub cbName_Click() Me.textbox_name.Enabled = Me.cbName End Sub Private Sub...

Hello. I am attempting to create table as below: I've created userform to input new data for PI_Case to Opening_Date cells. However I can't make it work properly, as userform is looking for empty rows to insert new entries. Please note the code below: <code>Sub CommandButton_Submit_Click()...

Hi all, I have found the below mentioned code for outlook 15.0 Can someone help me to make changes in the code for outlook 10.0 which can be used in a button in excel user form to extract data in "extract raw" sheet this code is giving me "2147221233 (8004010f)" error Below is the code '...

I hate to just jump in with a hard question (at least for me) I am looking to simply have a userform that will enter data onto a excel sheet. Drop downs work fine Prepopulating the date works fine But when I hit submit (Ok) I get an runtime error 1004 This is the line that is highlighted...