4.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...

Hello,, i use the following code to pull the month from the date, i now need to pull the year also , for example September 18. can this be done within this code, or do i need to start again? If IsDate(db.Cells(w, 4).Value) Then db.Cells(w, 16).Value = MonthName(Month(db.Cells(w...

Hi, I have a very simple userform which I made to transfer data from form to the sheet. I managed to set up and have everything working apart from the radio buttons. Their functionality is not working. I want to achieve the purpose of the userform but radio buttons are doing my head in, to be...

I am receiving the end if without block if compile error in the below chunk of code. The initial IF clause is definitely not missing, so I'm guessing the nested IF is "separated" from the End If that is returning the error. What part of the code between the outer IF-End If is preventing the...

Hello, This is my first time trying to tackle things in excel using VBA, so some of the items were shamelessly stolen off of various message boards and youtube tutorials and modified to fit my needs. However, this seems to be unreliable and very slow. It takes about 20 seconds to update and...

Hello I am trying below VB code to execute PMT formula to calculate EMI but getting error "Unable to get pmt property of the worksheetFunction class" Sub EMI() Dim Loan_Amount As Double Dim EMI As Double Dim Rate As Double Dim Payment_Per_Year As Double Dim Tenure As Double monthly_rate =...

HI i have below code and it gives "" Run Time error '-2147221080(800401a8), Method 'Cells' of object'_Workdsheet' Failed "" . please guide Private Sub CommandButton1_Click() Dim xlBook As Workbook Dim xlNewBook As Workbook Dim xlSheet As Worksheet Dim LastRow, myrow, lastColumn, rowPointer...

Is there an easier way of highlighting cells that contain a special character (!~`@#$%^&*()_+-={}|:"<>?[]\;',./) instead of listing everyone separate like below? There can be letters and numbers along with the special characters. If ActiveCell.Offset(0, 4).Value Like "*.*" Then...

I have a bunch of IP Addresses in Column C that are in consecutive order containing duplicates. In Column D I have a text value that could be 1 of 4 items (Critical, High, Medium, Low). I need to delete the Duplicate IPs and Sum the occurrences of the criteria in another Worksheet to the same...

I want to use "concatenate" here...but dont understand how to use.. With Worksheets("Sheet1") For i = 3 To RowCnt1 If .Cells(i, 3) = "" Then Else .Cells(i, "B").Value = WorksheetFunction.Combin(.Cells(i, 3).Value, " ", .Cells(i, 4).Value) Next i End With

Hello, the current code below copies files from the source folder to the destination folder based on cell value and file extension. The files may or may not be used all the time, if the file is not in the source folder I am getting an error. I would like to add code that will skip to the next...

Hey there, I'm currently stuck on how to do this. Below is an example of what the worksheet looks like. I have provided what userform1 does and performs the way i want it to. First row that contains data begins at "4". Rows 1 through 3 have merged cells, not sure if thought would effect the...

I am in the middle of a rather Large Build. I was tasked with adding another pull to the tool. For each Data pull, I have 147 networks that are being pulled. The macro I have right now, will pull the data once, place it in a sheet, use a combination of 26 formulas to grab the Data needed from...

Can someone help me , I am getting error with this 2nd line of code If Sheets(1).Cells(x, 2).Value = Sheets(2).Name Then Sheets(1).Cells(x, 4).Value = Application.WorksheetFunction.VLookup(Sheets(1).Cells(x, 4), Sheets(2).Range("E6:F30"), 2, False) Else Sheets(1).Cells(x, 4).Value...