1.value

Hi, I am trying to enter data through a form to an Excel table. But the the data is not going to the table but it starts just below the table and the data entered doesn't belong to the table. All data entry procedures works fine. Just it doesn't enter into the table. Here is the code I used for...

Hi Team, Is there a way to shorten this code used in if condition. If Sheet1.Cells(i, 1).Value = "Green" Or Sheet1.Cells(i, 1).Value = "Red" Or Sheet1.Cells(i, 1).Value = "Blue" Then like If Sheet1.Cells(i, 1).Value = Array("Green", "Red", "Blue") Then Thanks in advance Regards, mg

Hi, Since yesterday, I've noticed a number of macros running slower than before. I was using Excel 2013 and about a month ago upgraded to Office.365 I have a range A1:AK39 where A1 = Table name A2:A39 Months of the year, starting Mar 2019, ending Mar 2022 A2:AK2 Months of the year, starting...

Hello, Using the code: Sub Rotate_Rota() ' cn = cell number ' fc = first cell ' lc = last cell Dim cn As Integer, fc As Integer, lc As Integer cn = 1 Do cn = cn + 1 If Cells(cn, 1).Value = "fc" Then Do cn = cn + 1 If Cells(cn, 1).Value <> "lc" Then...

This works fine, but I rather not use .Select Range("F13:F22").Select For Each c In Range("F25:F33").Cells If Not IsEmpty(c.Value) Then Set FoundCell = Selection.Find(What:=c.Value, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) If...

this code to search with in range and update the information. I have only 1 item in the range and it says there is nothing? Can someone assist to correct this problem. Thank you SearchString = ListBox1.Column(1, ListBox1.ListIndex) Set SearchRange = Range("T18:T" &...

I have this line of code, but I thought it was to get exact match. How can I get the exact match? If InStr(1, Cells(RowNum, 1).Value, "BA", vbTextCompare) > 0 Then

Trying to create a parking lot database that is editable through a multipage user form. Since 1 parking spot can have up to 3 different vehicles parked in it, I'm trying to figure out how to be able to search multiple columns at once. This is the original layout. i.e. I need to be able to...

Help, please I have code that I am trying to workout that will pull a match from two worksheets, then confirm in one of these that a value is found and then add data to a third sheet in the same workbook. It is not working and the latest attempt is below. Any ideas? DThib Sub DataRun()...

Dears, I would like to kindly ask you for your help regards VBA code. Issue: I'm having very simple data entry form (kind of attendance list / evidence). I need to upgrade this code - currently data inserted to form are stored in different sheet of same excel file. I need to also save entered...

The code below works fine and does exactly what i want it to do, however what is the best way to loop it Sheet "New" has approx 3000 lines of data, the code below finds the first instance of SC which in this argument is 999, after its copied those values to "Database" how can i get it to...

below is the code i have so far. It works to bring the data from the userform to the sheet i want but it starts it in row 2. I want it to start in row 17. Private Sub CommandButton1_Click() Dim sh As Worksheet Set sh = ThisWorkbook.Sheets("OUC_Vistana") Dim n As Long n = sh.Range("A" &...

Please help. This kind of problem really frustrates me. I'm trying to replace the commented out recorded code with a line that avoids selecting the textbox. But all my attempts at finding the correct syntax have failed with Error 438 "Object doesn't support this property or method". What is...

hi guys....can someone assist with the following macro essentially, i want the macro to copy/paste where there is a value > 0 or <>"" in column Y from the "data" tab. the current macro is copy/pasting everything ...thx you in advance! Sub _Merge() Dim rngCopy As Range, LR As Long...

Hi Why I need cells.formula when I can do it without cells.formula as following: Sub cell_formula() Workbooks(1).Worksheets(1).Cells(1, 1).Value = "=sum(c1+c2)" End Sub Thank you so much.

Hi Here's what I have so far; For Each c In Worksheets("Rota").Range("A3:A31") If Not IsError(Application.Match(c, Worksheets("Key").Range("A16:A41"), 0)) Then Worksheets("Rota").c.Offset(0, 1).Value = Worksheets("Key").Match.c.Offset(0, 1).Value End If Next...

Hi Everyone , Here i am trying to find the left-function of a particular column i,e 'A', and i did it for destination column, but i need that at last column were i would not be knowing the last column. Sub Leftfunc() Dim Sourcecolumn As Range Dim Destinationcolumn As Range Dim i...

Hi, I have written the following VBA code but it seems that it doesn't work because the code keeps creating the new row even the date is today. I would like to seek advice if anything wrong in my code. Thanks so much! Sub createDate() Dim lRow As Long z = Format(Now, "dd/mm/yyyy")...

Hello! I want to be able to loop through a sheet and do the following: if cell value in row 1, column A and B match the cells value of row 2, column A and B AND the cell value in row 1, column O = "REGULAR DELIVERY" and the cell value in row 2, column O = "RETURN", I want to combine/merge the...

background: i have a code that will filter my table based on start and end date keyed in by me. the table consist of company names and the date of surveys that they have completed. the code is supposed to filter out all the survey 2 dates that are within the start and end date, then filter...