1.value

  1. S

    VBA HELP: Problem entering data to Excel table with Form

    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...
  2. M

    vba If condition help..

    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
  3. JackDanIce

    Excel 365 Macros running slow

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

    Rotate a list

    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...
  5. most

    Issue with Find in my script

    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...
  6. A

    find and update

    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" &...
  7. A

    instr to get exact match

    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
  8. D

    Procedure after "exit sub" not running

    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...
  9. D

    Complex loop is not working for 3 worksheets

    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()...
  10. R

    VBA code - saving of data in different excel file.

    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...
  11. M

    Unsure on how to loop SearchRange

    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...
  12. C

    Data from userform to cells

    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" &...
  13. H

    Put text in Drawing Textbox without selecting it.

    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...
  14. B

    macro to copy/paste data - edit required

    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...
  15. L

    cells.formula

    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.
  16. B

    VBA: For Each Match Return Adjacent Cell

    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...
  17. G

    Left function for entire column

    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...
  18. L

    VBA - date comparison is not working

    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")...
  19. I

    merge/ combine two row based on two separate value

    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...
  20. S

    my codes to filter is giving me inaccurate results. pls help to check

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

Some videos you may like

This Week's Hot Topics

  • help please
    SORRY NOT ANY GOOD AT EXCEL SO HELP WOULD BE MUCH APPRECIATED this formula is in a sheet called ignore...
  • two formulas needed
    Hello, I'll try my best to explain this: First formula needed in Sheet1 cell A2: If Sheet1 cell B2 = Sheet2 cell B2 then return a 1. If not then...
  • Dynamic Counts
    Good afternoon, we are tidying up some data & the data seems to be growing quicker than we are tidying it up! What we confirm (by reviewing it...
  • Help Excel formula eliminate duplicate values and keep only 2 identical rows.
    as picture below column A has a duplicate value. but the values are not the same as the rule. sometimes 4 rows, sometimes 10 rows or 7 or 9...
  • Macro Compile Error Sub or Function not defined
    Hello, I am trying to run macros from a validation list, all macros have been created and run perfectly on there own but I'm getting a compile...
  • Last row combined with Current Region VBA
    I'm generally happy finding the last row of data through something like Lastrow = Cells(Rows.Count, "D").End(xlUp) but I don't always receive data...
Top