Results 1 to 5 of 5

Thread: help wirh Excel formula

  1. #1

    help wirh Excel formula

    Register for a FREE account, and/
    or Log in to avoid these ads!

    I have similar tables in sheet1 and sheet2. I want Rows and data, with new names, to be added/deleted automatically to table in sheet2 if I manually add/delte them to sheet1.
    A B C D G H J K
    1 Name Hours Rate Total 5 Name Hours Rate Total
    2 jhon 35 10 350 6 jhon 35 10 350
    3 David 20 11 220 7 David 20 11 220
    4 Mark 50 12 600 8 Mark 50 12 600
    5 Hellen 40 11 440 9 Hellen 40 11 440
    6 Iren 40 13 520 10 Iren 40 13 520
    7 Nicole 39 14 546 11 Nicole 39 14 546
    Thank you
    Last edited by abdulkharij; 2015-03-06 at 09:40 PM.

  2. #2
    Perhaps something like this, im make formula cover the data until 500 rows and using array formula

    see u
    Attached Files Attached Files

  3. #3
    Thank very very and very much. you are the best

  4. #4
    I did drug the whole table in sheet1 to move Cell contents, and that affected the fomula and didnt work properly. is there any way to avoid this when I dug table in sheet1?

    druging table in sheet2 didn't affect the fomula wich is good

  5. #5
    I was giving this code, and it work very good, but the only problem with it is that when you add row in the of the table-shate1 it goes to the last row in table-sheet2. Could you help me fix it, so when I insert a row in sheet1 should go to the same spot in sheet2

    Option Explicit
    Private Sub Worksheet_Change(ByVal Target As Range)
    Dim cell As Range
    If TypeName(Target) = "Range" Then
    If LenB(Target.Cells(1, 1).Value) > 0 Then
    If Not Intersect(Target, Range("A:A")) Is Nothing Then
    If Target.SpecialCells(xlCellTypeLastCell).Row = UsedRange.Rows.Count Then
    If UsedRange.Rows.Count > Sheet2.UsedRange.Rows.Count Then
    For Each cell In Target.Cells
    If Not Intersect(cell, Range("A:A")) Is Nothing Then Sheet2.Cells(Sheet2.UsedRange.Rows.Count + 1, 1).Value = cell.Value
    End If
    End If
    End If
    End If
    End If
    Set cell = Nothing
    End Sub

    Thank you

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts