activecell.value

Hi, hope someone can help. I'm trying to run this code but when the cell value is "#N/A# I get an error 'type mismatch', note that the cell value is text not the formula =NA(). If ActiveCell.Value = "#N/A" Then ActiveCell.ClearContents ElseIf ActiveCell.Value = "Error" Then...

Hi, Not sure if I should post this on the excel or access forum butthought I would try here first. I have used the below code in the past to upload data to MSaccess 2010 from Excel 2010 , but I am now using MS 2013 and the code is nolonger working. I am receiving the error unrecognised...

I must be driving some of you crazy. I put in multipage userform with radio buttons to put value in a cell. I click a tab and a radio button and it puts the value in....but if I decide i needed the other tab page option, i click the tab and it doesnt replace value But it will replace value if on...

I am unsure how to correct this code in VBA. Sub Macro4() ' ' Macro4 Macro ' ' For i = 2 To 13 Dim Speed As Double Speed = Cells(i, 9).Value Range("C2").Select ActiveCell.FormulaR1C1 = _...

Hello, I have the existing code, and it basically copies and pastes values from a data table and then keeps all the columns I need by header name. I have duplicates removed based on Column 3, but sometimes the original data is not sorted the same. Is there a code where it searches by column...

So I am trying to create a spreadsheet to track employee holidays. I have got an idea of how I want it to work when it is finished however, I am having trouble with getting certain aspects to work so this might be quite a long post, and I apologies for that in advance. So firstly, I have set...

I have this code I created that loops through lines of accounting data and moves offsetting lines to another sheet in the workbook called "Cleared." It works for the most part but after about 180 lines it starts to slow down and then almost comes to a complete stop. I created an absolute value...

I have written VBA code to use 4 different dropdown list, then the user of the form selects multiple items. Based upon the selections a match function obtains a code. Everything works except the multiselect depression input section of code. The code continues to elicit the "unable to get match...

Hi all, I am completely new here. I have looked over the forum and I have found posts, that related to what I am looking for assistance with. However I cannot get the solutions to work for me. Question: I have the below VBA code and it works a charm - It could probably be simpler, but it works...

Hi can anyone tell me if it is possible to set a pivot table filter in vba using a comma separated list? I have the following code which populates specified cells on a worksheet with listbox selections. I then need to take those selections and apply them as filters to the base data - I assumed...

Column A has listed items that are Accepted. Column B has listed items that are not Accepted. Column B is fixed set of items, but 1 or 2 new items from time to time may be added or deleted. Column A though is a new updated daily list of items un-checked. My current macro is a Do Until ""...

Hello All, I was wondering if anyone could help me with this. I've been trying to figure it out for days now, but just can't. below I have a code which allows me to change the value in a cell with a double click. I can do this in any cell in the worksheet. the problem is, I only want to be...

Hi Guys, I have written the below code.... I am trying to delete all column between B1 and M1 where the value is not equal to that in R1. (to get the column headings/cell references i need to delete first 13 rows) With ActiveSheet ActiveSheet.Rows("1:13").Delete End With With ActiveSheet...

Ok, soo... i am having trouble passing the values from combobox and textbox from userform1 to userform3 i have made Cust, PrtNmb and WrkNmb private objects Sub CommandButton1_Click() Range("a1").Select With ActiveSheet .Range("A1").End(xlDown).Activate 'moves to end of data...

Option Explicit Sub addata() ActiveSheet.Unprotect Dim Quot_No As String Dim Attn_Name As String Dim Co_Name As String Dim Quot_Date As String Dim Total_Price As String Dim Auth_Name As String Dim Des_CellB20 As String Dim Des_CellH20 As String Dim Des_CellI20 As String Dim Des_CellB21 As...

I tested this script and it walks through all 27000 cells (D3 - AZ500), changing each that is not blank to a red background: Dim MyVar As String Dim i As Integer Range("D3").Select For i = 1 To 27000 If ActiveCell.Value = "" Then ActiveCell.Offset(1, 0).Select Range("D" &...

Hello, How do I write code to move on to another question if the information doesn't exist on my spreadsheet? My code is: 'Select Start of range Range("B1").Select While ActiveCell.Value <> "" 'This writes 'Cash' in column A against cash transactions. If ActiveCell.Value <> "" Then...

I have a user form with three options. I need to be able to select 1 of the options, two of them, or all three. i have the following code but if the first if statement is not true it does not work at all. how do i get it to allow for any selection combination at any time to work? Private Sub...

Code isn't working if I use. Why so? Option Explicit Sub AddNewFilm() Dim NewFilmName As String, NewFilmDate As Date, NewFilmLength As Integer NewFilmName = InputBox("Type a new film name") NewFilmDate = InputBox("Type the date") NewFilmLength = InputBox("Type length in numbers")...

I am creating a tool which takes data from worksheets which are stored on a server and pastes them into a single sheet together so that I can work with the data. The issue I am having is a result of the fact that each worksheet comes from a different store and there is no identifier within the...