Results 1 to 5 of 5
  1. #1
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts

    Re: copy and add line ... (2000 sr 1)

    I don't see a difference between the TITOLI and TITOLI_FINAL sheets.

  2. #2
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts

    Re: copy and add line ... (2000 sr 1)

    Here you go:

    Sub TransformTitoli()
    Dim wsh As Worksheet
    Dim lngMaxRow As Long
    Dim lngMaxCol As Long
    Dim lngRow As Long
    Dim lngCol As Long

    Application.ScreenUpdating = False
    Set wsh = Worksheets("TITOLI")
    lngMaxRow = wsh.Range("A65536").End(xlUp).Row
    For lngRow = lngMaxRow To 2 Step -1
    lngMaxCol = wsh.Range("IV" & lngRow).End(xlToLeft).Column
    For lngCol = lngMaxCol To 7 Step -1
    wsh.Range("A" & (lngRow + 1)).EntireRow.Insert
    wsh.Range("A" & lngRow & ":E" & lngRow).Copy _
    Destination:=wsh.Range("A" & (lngRow + 1))
    wsh.Cells(lngRow, lngCol).Copy _
    Destination:=wsh.Range("F" & (lngRow + 1))
    wsh.Cells(lngRow, lngCol).ClearContents
    Next lngCol
    Next lngRow
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
    End Sub

  3. #3
    Gold Lounger
    Join Date
    Jan 2004
    Location
    Italy
    Posts
    3,245
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: copy and add line ... (2000 sr 1)

    no dubt...Wizard.
    Tks from your "friend".
    Sal.

  4. #4
    Gold Lounger
    Join Date
    Jan 2004
    Location
    Italy
    Posts
    3,245
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: copy and add line ... (2000 sr 1)

    ...sorry

  5. #5
    Gold Lounger
    Join Date
    Jan 2004
    Location
    Italy
    Posts
    3,245
    Thanks
    0
    Thanked 0 Times in 0 Posts

    copy and add line ... (2000 sr 1)

    This wbook contain a list of many value. each line for one NOMINATIVO.
    my problem is:
    If the NOMINATIVO have more value into various columns RAPP, copy up the first line and repeat range A:E and recopy each value from RAPP in column F...
    Into FINAL sheet is that i would want...

Posting Permissions

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