Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations SkipVought on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Search results for query: *

  1. jakecam

    Need aMacro to perform lookup

    Sub lookForRecords() Application.ScreenUpdating = False Dim i As Integer, j As Integer Dime sourceSheet As String, lookUpSheet As String sourceSheet = "Sheet1" 'change Sheet1 accordingly lookUpSheet = "Sheet2" 'change sheet2 accordingly accountCol = "A"...
  2. jakecam

    Need a Macro To Add Rows in Excel

    Correction: Sub insertRows() Dim i As Integer, j As Integer, rowsToInsert As Integer rowsToInsert = 0 colLetter = "A" 'change this to the column letter you are using, i.e. "R" records = Application.CountA(ActiveSheet.Range(colLetter & ":" & colLetter)) 'sum all rows to add For i = 1 To...
  3. jakecam

    Need a Macro To Add Rows in Excel

    The following code should do it. Sub insertRows() Dim i As Integer, j As Integer, rowsToInsert As Integer colLetter = "A" 'change this to the column letter you are using, i.e. "R" records = Application.CountA(ActiveSheet.Range(colLetter & ":" & colLetter)) 'sum all rows to add For i = 1...
  4. jakecam

    Excel - Conditional Concatenate

    with the following code, you avoid of having to manually change the range in your code as rows of records decreases or increases. records = Application.CountA(ActiveSheet.Range("A:A")) dim i as integer For i = 2 to records strCellValue = Range("B" & i) & Range("C" & i) If...
  5. jakecam

    VB for applications Grab data from another worksheet in Excel

    Write the following command first within your sub: application.screenupdating = False

Part and Inventory Search

Back
Top