xcell

Hi All, I am trying to find a particular value in the list with SUM function. Example: 100, 120, 150, 180, 120, 100, 140 And the result I need should be 450, whereas if you add the 150, 180 & 120 from the list, we will get that particular value (450). I looked on internet and I found the...

Can someone explain what this code is doing? thanks in advance. Private Sub Worksheet_Change(ByVal Target As Range) 'Updateby Extendoffice 20160725 Dim xCell As Range If Target.Address <> Range("C54").Address Then Exit Sub Application.ScreenUpdating = False For Each xCell In...

Hello Everyone, I have the below code that works great - I wanted to know what changes can be made to the code so the misspelled word is highlighted... Any thoughts??? Private Sub CommandButton16_Click() Dim xCell As Range On Error Resume Next With ActiveSheet Set xCell...

I have some code below and it works fine for most of the data sets that I have. The problem is that I have data that is put into a cell using Ctrl+ Enter or Char(10). i need to update the code to handle Chr(10). Can Someone please assist me. Thanks in Advance. The table below does not show the...

Hi All, In the below example, I want to add each days splitted amount in Amt 3 and reconcile with Amt 1 & Amt 2, say for example, For Monday, if we add first 4 rows in Amt 3, we get 2000 which is in Amt 2 and if we add next 3 rows of Monday , we get 1000 which is in Amt 1. Anyone's help with...

Hi the code below does not work. Complaining about xsheet.Tab.ColorIndex = i I did similar idea with cells and everything was fine. Please see the second code. Thank you so much. Sub mysheets() Dim xsheet As Worksheet Dim i As Integer i = 0 For Each xsheet In Worksheets...

Hi I wrote the code below to fill cells with random char. It does not work. I also have another question. Why Char() is not part of Application.Worksheetfunction? I thought all excel functions that you can find in Fx, you can find then under Worksheetfunction. But that is not the case. I found...

Hi I wrote the code below to change the color of each cell in a selection. Do you think it is good and efficient code? How you would do it yourself. Thank you so much. Sub myselection() Dim xcell As Range Dim i As Integer i = 1 For Each xcell In Selection...

Hi I see these code like below and I wonder what is the rule? or how people came with this? or what is the syntax. For example dim ws as worksheet for each ws in sheets or dim xcell as cells for each xcell in range Thank you.

Hi Everyone, I have the following code that, after a series of calculations, changes the numberformat of a cell to match the original precision and coverts the cell to text in order to preserve the trailing zero. The code works up until the code changes the cell to text: [xCell.Value =...

Hello, I'm not familiar at all with using VBA so please bear with me. I am trying to get the below code to work on all the sheets. It works on Sheet 1, but not the rest within the same workbook. I've read another thread w/ similar question, but the codes are so different I don't even know...

Hi All, I'm currently trying to come up with a VBA module that aims at grouping all columns whose date are past (against today's date). Date to check against are located in row 2 of Sheet1. I would like the macro to execute upon the workbook opening only. This is what I did so far but VBA...

Is there a way to find ALL possible combinations that equal a specific sum? I used the code below, but it only gives me one combination and I need to know all possibilities. Any suggestions? <code class="vb keyword" style="white-space: nowrap; font-size: 1em !important; background: none...

Hi all, newbie here. I'm trying to copy a row of cells from one sheet (Sheet1) to the first empty cell in column 2 on another sheet (Sheet2) using a checkbox. Here is my code: If CheckBox2.Value = True Then Dim xCell As Range Worksheets("Sheet1").Range("A9:K9").Copy ' On Error Resume...

Hi Guys, I have the below code. How do i loop through both loops at the same time? Example B2 & C2 B3 & C3 B4 & C4 At the moment it will loop through one at a time. Any help is greatly appreciated. Thanks Set xRg1 = Sheets("Sheet1").Range("B2:B6") Set xRg =...