Consider that every time your code makes a change in column AB, that will trigger the worksheet change event again.One option is that you can (within the worksheet change event) check the column reference of the target (the cell that was changed) to see if it was in column A, and only proceed if Column A was changed. I changed the sub name to 'WorksheetChange', so the code is now: Private Sub WorksheetChange(ByVal Target As Range)' Christine's Program'Dim x As Integerx = 13With Worksheets('CoA')For Each cellX In Range('A13:A90')If Not IsEmpty(cellX) ThenRange('AB' & x).FormulaR1C1 = 'I'End Ifx = x + 1NextEnd WithEnd SubUnfortunately, whenever I make a change at this point, I get another error: 'Run-time error '28': Out of stack space'. Asadulla,Thank you very much for your reply. Here is the code I have so far: Sub AtoABColumn' Christine's Program'Sheets('CoA').Workbook.ActivateDim x As Integerx = 13For Each cellX In Range('A13:A90')If Not IsEmpty(cellX) ThenRange('ABx').SelectActiveCell.FormulaR1C1 = 'I'End Ifx = x + 1NextEnd SubWhen I click save and then Run, I get this error message:'Run-time error: '438': Object doesn't support this property or method.' Thank you very much for taking a look! Sub AtoABColumn' Christine's ProgramDim x As Integerx = 13With Worksheets('CoA')For Each cellX In Range('A13:A90')If Not IsEmpty(cellX) Then'changed below lineRange('AB' & x).FormulaR1C1 = 'I'changed above lineEnd Ifx = x + 1NextEnd WithEnd SubBest Regards,Asadulla Javed, Kolkata-Please do not forget to click “Vote as Helpful” if any post helps you and'Mark as Answer”if it solves the issue.
Both columns are on the same sheet.I have been reading some things online and trying to piece things together. For example, if something is found in cell 15 of column 'A', I would like the code to place an 'I' in column 'AB'. Should it find something, I want it to place an 'I' in the correspondingcell in the range 13-90 in the 'AB' column.
0 kommentar(er)
