8.value

can someone help me to loop this ? Dim wks As Worksheet Dim addnew As Range Dim addup(15) As Double Set wks = Sheet9 Set addnew = wks.Range("AG3").Offset(0, 0) If ecYes.Value = True Then addnew.Offset(0, 1).Value = ecYes.Caption ElseIf ecNo.Value = True...

Hello, I am trying to clear the contents of specific cells based on whether a separate cell is TRUE or FALSE. Here is the macro I am using. Sub ClearCells() Worksheets("Project Description").Activate If Cells(2, 8).Value = "FALSE" Then Cells(24, 2).ClearContents If Cells(3, 8).Value =...

Every time I run my macro, it takes about 1 min to execute. How can I fix this? Sub Button1_Click()Dim myRange As Range Set myRange = ThisWorkbook.Worksheets("Data Entry").Range("Data") Dim lastrow As Long Dim whichsheet As String whichsheet = InputBox("In which sheet do you wish to enter...

<tbody> Order No Account No Name Stock Code Description Quantity Unit Cost Net Amount Tax Amount Gross Amount Order Date Remaining Stock 7 22 Ex1 APPLE1 Apples 500 £0.50 £12.50 £2.50 £15.00 10/07/2018 175 5 38 Ex7 PEAR1 Pears 200 £1.50 £37.50 £7.50 £45.00...

Morning, I have made a userform but need a couple of additions that im not to be about. The code in use is shown below. The addition would be that once i press Command Button 1 it should make sure that TextBox 1,2,3,4,5,6 & Option Button1,2,3 has been answered otherwise show msgbox to advise...

I have code to delete text , but need it amended so that if the text is in upper, lower or a combination of upper and lower case, the rows containing the text will be deleted your assistance in resolving this is most appreciated Sub Del_Unwanted() Sheets(1).Select...

Hello All, I am looking for some help creating sub folders in a VBA Macro. I have code the allows me to browse where to create a folder using the cell value as the name. What I would like to do is create another sub folder under the previously selected folder, named from a new cell value. 'Sub...

I have this code, but I think it's a bit slow, is there another approach to do the same thing quickly? Sub Filtrar() Application.ScreenUpdating = False For x = 2 To 201 If Cells(x, 8).Value = "" Then Cells(x, 8).EntireRow.Hidden = True Next x Application.ScreenUpdating...

I am trying to write code to insert this formula into a cell but it is coming up with an error box saying that it is expecting an ending. Can anyone help? Cells(1, 8).Value = "Letter Grade" Cells(2, 8).Activate ActiveCell.Formula =...

Good day all, I had this working fine, Then I fixed a problem where my reports page retunred a lot of 01/01/1900 date lines that were not needed. I fixed the formulas so that those cells would just be blank. And now my button doesn't work. It goes to the debugger and gives me this error...