Макрос по копированию данных из другого фаила

[SAS888]

Вообще-то

C:\Мои документы\gogi.xls

это не адрес, а путь.
Т.е. Вы хотите по всему компьютеру провести их поиск? Можно. А проще никак?

[Devourer12345]

А как внутри фаила обратиться к другой страничке этого же фаила(открыть ее)?

[Devourer12345]

SSub Макрос18()
'
' Макрос18 Макрос
' Макрос записан 15.07.2008 (a.perapiolkin)
Dim iCel As Range
Dim i As Long
With ActiveSheet

Range("M8").Select
ActiveCell.FormulaR1C1 = "=IF(and(R[1]C[-8]=0,RC[-8]>0),1,0)"
Range("M8").Select
Selection.AutoFill Destination:=Range("M8:M65530"), Type:=xlFillDefault
Range("M8:M65536").Select
Range("M8").Select
For i = 8 To 65536
Set iCel = .Range("m" & i)
If iCel = 1 Then
Rows("i:i").Select
Selection.Delete Shift:=xlUp
End If
Next i
End With

End Sub

выдает ошибку Rows("i:i").Select в этой строке... и
Selection.AutoFill Destination:=Range("M8:M65530"), Type:=xlFillDefault что не правильно?

[VictorM]

можно так
Application.Goto Reference:=Worksheets("Лист1").Rang e("A1")
или просто,как в макросе
Sheets("Лист1").Activate
Range("A1") .Select

p.s. не успел

[VictorM]

выдает ошибку Rows("i:i").Select в этой строке

напишите Rows(i).Select

Selection.AutoFill Destination:=Range("M8:M65530"), Type:=xlFillDefault что не правильно?

у меня ошибки не выдает

[SAS888]

Можно несколько проще:

Sub Макрос18()

    Dim i As Long
    Application.ScreenUpdating = False
    [M8].FormulaR1C1 = "=IF(and(R[1]C[-8]=0,RC[-8]>0),1,0)"
    [M8].AutoFill Destination:=[M8:M65530]
    For i = 65530 To 8 Step -1
        If Cells(i, "M") = 1 Then Rows(i).Delete
    Next i

End Sub

Совет на будущее: без необходимости не используйте метод Select.

[SAS888]

При удалении строк с помощью цикла For...Next, чтобы не сбился счет, нужно строки перебирать "снизу вверх"

[Devourer12345]

Sub Макрос()

Dim iCel As Range
Dim i As Long

Range("M8").Select
ActiveCell.FormulaR1C1 = "=IF(and(RC5=0,R[-1]C5>0),1,0)"
Selection.AutoFill Destination:=Range("M8:M65500"), Type:=xlFillDefault
With ActiveSheet

For i = 8 To 65500
Set iCel = .Range("M" & i)
If iCel = 1 Then
Rows("i").Select
Selection.Delete Shift:=xlUp
End If
Next i

End With
End Sub


Снова ругается на то-же самое...--- Application-defined or object-defined error



Большое спасибо всем...
напоследок мою ошибочку скажите плз... и где можно скачать хорошую книжицу по VBA? Если не сложно...

[SAS888]

Снова ругается на то-же самое...--- Application-defined or object-defined error

Уберите кавычки

Rows(i).Select

[VictorM]

где можно скачать хорошую книжицу по VBA?

не скажу, как насчет "хорошую", но для начала вполне подойдет. Посмотрите ЗДЕСЬ тему