Posts by nilem

    Hi Mar070503,
    try this

    Code
    [COLOR=#FF0000]ActiveWorkbook[/COLOR].ExportAsFixedFormat Type:=xlTypePDF, Filename:=...


    instead of

    Code
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=...


    Oh, no, I misunderstood the question

    Hi Rakesh,
    try this

    Hi
    maybe so

    Code
    Sub ttt()
    Dim r As Range
    For Each r In Range("A1", Cells(Rows.Count, 1).End(xlUp))
        Cells(r.Row, Columns.Count).End(xlToLeft)(1, 2).Value = r(1, 2).Value
    Next r
    End Sub

    Try this (in sheet module)

    Of course, you are on a free forum. But you demand an answer, as if you are on a paid resource. That was my answer in a PM.
    You should just wait until someone answers your question (I will no longer answer your questions).
    PS nilem 'he', not 'she' )

    Hi agog1,
    try this

    try this

    Hi,
    maybe so

    Hi Alex,
    maybe something like this

    Code
    Sub ttt()
    Dim x, i&
    x = Range("Stock_List").Value
    For i = 1 To UBound(x)
        Range("Q1").Value = x(i, 1)
        MsgBox x(i, 1)
    Next i
    End Sub

    Hi jeanbot,
    maybe so

    Hi Pvman,
    maybe so

    Hi HowHow,
    try this

    Hi
    try this