VBA Code to working properly

[fari1]

i've a code, that cuts and paste the first used cell from the column A, this works fine when run individually, but when its the part of the loop, it stops somewhere in the middle and then dont cut and paste the first used cell, it just dont give any resullts

Sub usedsymbols()
Dim mycell As Range
Application.CutCopyMode = True
Sheets("symbols").Select
With Sheets("symbols")
With .Columns("A")
.Find(what:="*", after:=.Cells(1, 1), LookIn:=xlValues).Activate
Set mycell = ActiveCell
mycell.Cut Sheets("Log").Range("A" & Rows.Count).End(xlUp).Offset(1)
End With
End With
Application.CutCopyMode = False
End Sub

ANY HELP WOULD BE HIGHLY APPRECIATED

 

[wigi]

Then you should post the code of the loop.

 

[fari1]

Okay, just give me some time, i've already run the loop, when it'll stop, i'll post the code

 

[wigi]

Okay, just give me some time, i've already run the loop, when it'll stop, i'll post the code

Does not seem very promising with regard to the code... How long do you expect it to take? How big is the loop?

 

[fari1]

actually, the loop connects symbols via web query, and for each symbol there can even 10 or more URLs that again get connect to web query separately, so for my system resources one symbol takes min 6 min and i've run 7 symbols

 

[fari1]

this code comes right before the usedsymbole code

Sub ooData()
    Dim wsInput As Worksheet, wsOutput As Worksheet
    Dim wsInputLRw As Long, i As Long
    Dim RngSource As Range
    
    On Error GoTo Whoa
    
    Application.ScreenUpdating = False
    
    Set wsInput = Sheets("info")
    Set wsOutput = Sheets("prof")
    
    wsInputLRw = wsInput.Range("A" & Rows.Count).End(xlUp).Row
    
    For i = 6 To wsInputLRw
        Select Case UCase(wsInput.Range("A" & i).Value)
        Case "10-K", "10-Q", "10-K/A", "10-Q/A"
            If RngSource Is Nothing Then
                Set RngSource = wsInput.Range("A" & i)
            Else
                Set RngSource = Union(RngSource, wsInput.Range("A" & i))
            End If
        End Select
    Next i
    
    If Not RngSource Is Nothing Then _
    RngSource.Copy wsOutput.Range("A13")
LetsContinue:
    Application.ScreenUpdating = True
    Exit Sub
Whoa:
    MsgBox Err.Description
    Resume LetsContinue
End Sub

and this comes after it

Sub infocopy2()
Sheets("filter").Range("G1:G9").Copy
Sheets("prof").Range("B1").PasteSpecial Paste:=xlPasteValues
End Sub

 

[wigi]

- where does the code in the original question fit into these last procedures?

- I think that you misinterpret your loop. ooData should in fact just be an Advanced Filter (or Autofilter if you are on Excel 2007 and up).

 

[fari1]

i guess i sorted out, the code is deleting the cells and loop is taking those cells into account, thata y giving problems, has to think of some other way around. thanks for your help anyways wigi

 

[wigi]

i guess i sorted out, the code is deleting the cells and loop is taking those cells into account, thata y giving problems, has to think of some other way around. thanks for your help anyways wigi

That's why I suggested a filter approach, and throw out the loop.

If you DO want to loop, however, loop backwards (from "last" row to "first" row).

 

[fari1]

yes, thanks wigi
i've got another question plz help on it, its here

http://www.mrexcel.com/forum/showthread.php?p=2818191#post2818191