IF logic_test=true, "how do I input text from the same table into another cell?"

**harmes** · 10-09-2006, 09:38 AM

OK, I've got a table with a column entitled 'Email Update' (from K2: K49). If an email update is needed, I input 1. If any of the cells in the column =1, I want to take the name and email address (cells B and L in the same row as the '1') and insert this text into 2 other cells in another tab within the same workbook.

Is this possible? If so, please tell me. I'm going insane.

Thanks

**protonLeah** · 10-10-2006, 12:51 AM

Yes,

copy the code below to the code module for the worksheet with the main table on it.
Replace *name1 with the name of the main worksheet (with the table)
Replace **name2 with the name of the worksheet you want the report to appear on
Insert a command button from the forms toolbar on the main sheet and assign the macro to it.

PHP Code:


Sub Update_Reporter() 
          Dim iNdx As Integer, iStartRow As Integer, iLastRow As Integer, iCopyPointer As Integer 
 
          iStartRow = 2 
          iLastRow = 49 
          iCopyPointer = 1 
 
          Sheets(*name1).Select 
          For iNdx = iStartRow To iLastRow 
                    If Cells(iNdx, "K").Value = 1 Then 
                              Sheets(**name2).Cells(iCopyPointer, 1) = ActiveCell.Offset(0, -9).Value 
                              Sheets(**name2).Cells(iCopyPointer, 2) = ActiveCell.Offset(0, 1).Value 
                              iCopyPointer = iCopyPointer + 1 
                    End If 
          Next iNdx 
End Sub

IF logic_test=true, "how do I input text from the same table into another cell?"

LinkBack

Thread Tools

Rate This Thread

Display

IF logic_test=true, "how do I input text from the same table into another cell?"

Thread Information

Users Browsing this Thread

Bookmarks

Bookmarks

Posting Permissions