x.value

Hi, It has been a few years since I have really wrote any substantial amount of macros. This one is a few years old and I am trying to identify the issue and feel like it should be coming to me easier. I am hoping someone else with a little better knowledge base might be able to identify it...

So i'm trying to check if a key from one dictionary exists in another, and if it does to write the value/keys to sheets depending on some if statements Loop through all the keys from dicLIVE if that key exists in dicQTY, the key contains "^4", and and the dicQTY value is greater than 8 then...

i have a userform to record my employee info, but i found something error sometimes when i enter a new employee. for instance, i save Leon Wong as the latest in row 6, but column C and so on will interrupt into another row like row 3. here is my code and where am i stuck with? thanks Dim...

I have been working on a project with thousands of rows of multiple choice questions. I was basically creating an answer key by identifying which choice was in red font/text. However when I ran a macro to work through all of the rows outputting the font color values into some temporary columns...

I have an error in my code but I don't know where... The thing is that I never know which name will be in the cells and I want it to be linked to the name of the sheet. I always have an error on line 6 but I don't know why. This is a part of my code: For x = 0 To 10...

Good Afternoon, I am a bit stuck whatever I try is not working out as well as I hoped. Here is what I am trying to do. - I have a Data Validation List in Column C a Yes No N/A and another list in Column D with a scale from 1-5. - What I need is to clear any value in Column D if my first list...

Hi all. What is wrong with this code? It might be an expression issue. My code isn't running. Sub Test() Dim x As Long 'test range For x = 134 To 140 'instead of range, should I be using .cell("F" & x).Value? If ActiveSheet.Range("F" & x).Value <> ActiveSheet.Range("E" & x).Value...

HI i need to delete all rows after copying in new sheet. I am using below code last = Sheets(sht).Cells(Rows.Count, "A").End(xlUp).RowSet rng = Sheets(sht).Range("A1:F" & last) Set rng1 = Worksheets("Need to be removed 0").Range("B2:B4") 'Sheets(sht).Range("F1:F" & last).AdvancedFilter...

Hi to all and I'm glad to be here. I use Excel but I am no expert and much I do is trial and eroor at times. I trying to make a program to keep track o production. I have a main page where I have my command buttons that open forms to edit data. The form opens and I recall a listbox for the...

i want to add IF condition in my macro.This condition need to merge in my code if E5= Random Value E6=Data List Validation (INPUT 1,INPUT 2,INPUT 3,INPUT 4) if E6=INPUT 1 ElseIf E6=INPUT 2 ElseIf E6=INPUT 3 ElseIf E6=INPUT 4 (CODE IS SAME ONLY FORMULAS ARE CHANGING IF INPUT 1 THEN THIS...

With Sheets("Model") For X = 5 To .Cells(5, Columns.Count).End(xlToLeft).Column If Len(.Cells(5, X).Value) > 0 Then On Error Resume Next Set wks = Sheets(CStr(.Cells(5, X).Value)) On Error GoTo 0 If wks Is...

Hi I want to fill the whole worksheet with "hello" or with a number like 1 I wrote the code below. It is only working if x.Value = "" (clearing the sheet) but when I type x.Value = "hello" or x.Value= 1 I got error message. Any idea how to fix that. Thank +++++++++++++++ Private Sub...

Just wondering if there might be a better way for this to be written. I copied bits of code and did a record macro and put it all together to make it work for what i want but it takes a while for it to run. Any help would be appreciated. Sub AllPlayersList() Dim folderPath As String...