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

    Re: copy cell value particular... (2000 sr -1)

    This seems very strange. Columns H ... O contain different types of data (number, text, date).
    If you dump the data from these columns into column Z, you'll get a weird mixture of items. And if you have many filled rows, it'll be virtually impossible to find anything in column Z.
    Why do you need this?

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

    Re: copy cell value particular... (2000 sr -1)

    I need this because inested to sett all in column G i want to sett all value in the area H:Y...(see my last the attached sheet)

    With Worksheets(FOGLIO)
    Set RNG = .Range(.Cells(2, "G"), .Cells(2, "G").End(xlDown))
    End With

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

    Re: copy cell value particular... (2000 sr -1)

    Sorry, I don't understand. Why would you want to put all data from 18 columns into 1 column?

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

    copy cell value particular... (2000 sr -1)

    I have this sheet with value in column H to column N, how to recopy the value in this range in a column Z (start to Z2)?
    Example is in column Z of same sheet.
    Note you know:
    The max exstention of value for line max from column H to the column Y
    The max exstention of value for column do until column H is filled with value...

    in effect i want to transpose in Z all value in range H2:Y65536, naturally without blank cells.
    tks.

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

    Re: copy cell value particular... (2000 sr -1)

    wow! Sorry me Hans, i have attached wrong sheet, now is the really sheet in question!;-(

    The macro find value in column G of sheet (assigned from var FOGLIO in this case is CORPORATE) but inseted to find value in G i want find a value in range H2:Yxxxxx
    In effect scannig value in the first line H2:Yxxxx, finished the sccan in this range go to next line H3:Yxxxx
    ecc...

    do until in H cell is blank...

    code: moved to attachment by HansV

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

    Re: copy cell value particular... (2000 sr -1)

    Does this do what you want?

    Dim lngR As Long
    Dim lngC As Long
    Dim lngT As Long
    lngT = Range("Z65536").End(xlUp).Row
    For lngR = 2 To Range("D1").End(xlDown).Row
    For lngC = 8 To 25 ' H to Y
    If Cells(lngR, lngC) = "" Then
    Exit For
    End If
    lngT = lngT + 1
    Cells(lngT, 26) = Cells(lngR, lngC)
    Next lngC
    Next lngR

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

    Re: copy cell value particular... (2000 sr -1)

    Why you tell me, always "Does this do what you want?", it is really wath i want!
    But inly a modify is possible during the copy controll if already existis a dapues and not insert in columnZ..:-)

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

    Re: copy cell value particular... (2000 sr -1)

    You can do that yourself, using Find. You have many examples of that.

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

    Re: copy cell value particular... (2000 sr -1)

    Ok for Find, but i want touse the macro not with active sheet but with a sheet hided how to admit the sheet is named "FOGLIO"?

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

    Re: copy cell value particular... (2000 sr -1)

    Dim wsh As Worksheet
    Set wsh = Worksheets("FOGLIO")

    Now use wsh.Range(...) instead of just Range(...), and wsh.Cells(...) instead of just Cells(...)

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

    Re: copy cell value particular... (2000 sr -1)

    Hans, now i have chenaged part of my code but this line of code no work correct...
    Inested to set column count is possible to set only from I assigned from the cicle for next and fixed Y to the last column?
    For I = 2 To Sheets(FOGLIO).Range("H" & Rows.COUNT).End(xlUp).Row
    '''''here inested to count column i know the range is I, "Y"
    II = Sheets(FOGLIO).Cells(I, "IV").End(xlToLeft).Column

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

    Re: copy cell value particular... (2000 sr -1)

    II = Sheets(FOGLIO).Cells(I, "Z").End(xlToLeft).Column

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

    Re: copy cell value particular... (2000 sr -1)

    tks!!!!!!!!!!!!!!!!

Posting Permissions

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