Posts by jolivanes

  • Method 'range' of object '_worksheet' failed

    Like royUK mentioned. Pictures don't do it.

    I just took a stab at it from what I gathered what is in the pics.


  • Problem with Paste method

    royUK

    Yes, I was. The way it was worded gave me that impression.

    JimmyB was asked twice, in Post $3 and Post #4, to explain what he wants to achieve but never did.

    The code that was supplied in Post #6 needed the asked for explanation IMHO

  • Search range based on input from a cell and then contents of list cell immediately to the left in an array

    As "Mumps" mentioned, don't be shy by giving us needed information in a concise manner.

    You have to remember that you have the workbook in question in front of you while we're just taking a stab at what we think it looks like.


    For lack of pertinent info, either of these or a combination maybe.

    Code
    1. Sub Maybe_A()
    2. Dim txtArr, i As Long
    3. txtArr = Array("Text1", "Text2", "Text3") '<---- List of values. Expand as required
    4. For i = LBound(txtArr) To UBound(txtArr)
    5. MsgBox Columns(5).Find(txtArr(i), , , 1).Offset(, -2).Value
    6. Next i
    7. End Sub


    Code
    1. Sub Maybe_B()
    2. Dim c As Range
    3. For Each c In Range("H2:H" & Cells(Rows.Count, 8).End(xlUp).Row) '<---- List of values to be found
    4. Columns(5).Find(c, , , 1).Offset(, 2).Value = Columns(5).Find(c, , , 1).Offset(, -2).Value
    5. Next c
    6. End Sub

  • Macro to merge, copy, move, and delete based on text in column A cells

    Same first 2 sentences in Post #2 should be looked at.

    Have not tried it but I am sure you will and let us know if it works.

  • Macro to merge, copy, move, and delete based on text in column A cells

    Try on a copy of your original and thoroughly check result.

    It's slow but still faster than manually


    End Sub

  • delete shapes in specific column

    Code
    1. Sub Maybe()
    2. Dim ws As Worksheet, shp As Shape
    3. Set ws = ActiveSheet '<---- Change to proper sheet name if so desired
    4. For Each shp In ws.Shapes
    5. If Not Intersect(shp.TopLeftCell, Range("A2:C100")) Is Nothing Then shp.Delete
    6. Next shp
    7. End Sub

  • Copy/Paste Loop for every other column

    If you prefer to have 30 Buttons rather than 1, this should do that.

    Link all Buttons to this macro and you should be good to go.

    Put this code in a regular module (i.e. Module1)

  • Copy row header value based on different column values

    I cleared "Products" sheet.

    I copied columns A to I data from "Label" sheet into "Products" sheet.

    I cleared the data (Columns A to I) in "Label" sheet. "Label" sheet is now totally empty.



  • Copy row header value based on different column values

    Re: contains lots of company sensitive information

    That's the advantage of having a keyboard with a computer. That can be changed to non sensitive text.


    Your attachment has in the one sheet 10 headers and in the next sheet 9 headers.

    In Post #4 you say 3 columns = sizes(5) = 8 + total = 9

    So is it safe to assume that the 2nd sheet (label) is the setup to go by?

  • Copy row header value based on different column values

    Re: Hi, No in the actual file only the required columns for the labels are copied across. There are many cols that are irrelevant. Cheers

    Tells us totally nothing.

    If you don't attach an exact copy of your workbook explaining in detail what needs to be included and what needs to be excluded, you'll end up with

    a multitude of posts that needs to change to get your desired result.

    A proper explanation should only need one or two answers that give you the desired result.