Excel vba
I am trying to move rows containing "Click to chat" from an Excel sheet to a new sheet and delete the blank rows. The code below is giving me an error to debug, and the line below in bold is highlighted. I don't know what to do. Can you assist? Sub MoveClickToChatRows() Dim wsSource As Worksheet Dim wsTarget As Worksheet Dim lastRow As Long Dim i As Long Dim targetRow As Long Set wsSource = ActiveSheet Set wsTarget = Sheets.Add wsTarget.Name = "Click_to_Chat" lastRow = wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row targetRow = 1 ' Copy header wsSource.Rows(1).Copy wsTarget.Rows(1) targetRow = 2 For i = lastRow To 2 Step -1 If InStr(1, wsSource.Rows(i).Text, "Click to chat", vbTextCompare) > 0 Then wsSource.Rows(i).Copy wsTarget.Rows(targetRow) wsSource.Rows(i).Delete targetRow = targetRow + 1 End If Next i End Subcreating a separate tab for a common table
My question from a few days ago disappeared and I cannot locate it. I have created an Excel financial spreadsheet for myself that amasses all monthly data from my checking, investments, and credit cards. There are about 20 tabs including each month, each major account and others. Each monthly and account spreadsheets are identical. I created a table that has 3 column of data: Payee, account, and category which, in theory, auto update each spreadsheet. The downside to what I currently have is that every sheet needs an updated table which doesn't always work out to be complete. What I'd prefer is to have a separate tab in the spreadsheet that every tab could reference. I saw this once and know it can be done but, of course, I cannot find it. So, the question is, how can I get each month to find the separate tab (call it Ref or anything else) and input the appropriate data into the sheets? The current formula I am using for assigning the info is: =XLOOKUP(H14,Q:Q,S:S). The column reference are currently being used are because that's where they fit on each monthly spreadsheet. The data example is in the last row of the spreadsheet. All help is appreciated. Steve Backman
