HI ALL

Here is a macro which delete a ,,specific
range,, in every Row in the same workbook,
if the value from BD91 to BD 65536 <=32 ;
here is the macro :


Sub Clear_Ranges()
' Macro recorded 3/5/2008 by Tim

Dim cell As Range, rng As Range
Set rng = Range(Cells(91, "BD"), Cells(Rows.Count,
"BD").End(xlUp))
For Each cell In rng
If cell.Value <= 32 Then
Cells(cell.Row, "C").Select
Selection.Resize(1, 52).Select
Selection.ClearContents
End If
Next
End Sub


It works perfect , but it take {in my database of 231 workbooks}
a looong ... time !!



IF this macro find in the same range {BD91 to
BD65536} the Value >=33 , and then Copy the EntireRow in another Wo
rkbook ,the time shall become dramatically shorter !!

I TRIED THIS :

Sub Clear_Ranges()
' Macro recorded 3/5/2008 by Tim

Dim cell As Range, rng As Range
Set rng = Range(Cells(91, "BD"), Cells(Rows.Count,
"BD").End(xlUp))
For Each cell In rng
If cell.Value >= 33 Then '...... {here maybe must be
EntireRow .Select???}
Cells(cell.Row, "C").Select
Selection.Resize(1, 52).Select
Selection.Copy
Windows("R1.xls").Activate
ActiveCell.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Windows("YTA1.xls").Activate
End If
Next
End Sub


.......but it didn't work ;{particular informations : both
workbooks named YTA1 and R1 are open ;R1 is the
basic workbook which get the results I need from
the others workbooks;in this case I want to select
and copy in wb R1 the EntireRow !!!!!!! of the YTA1 wb
if the value in this Rows in Column BD is >=33 } ;

FOR CONCLUSIONS :

,,IF VALUE IN WB,,YTA1,,>=33 THEN COPY EN-
TIRE ROW IN ANOTHER WB ,,R1,, "

Please help,

Respectfully

Perhaps the Selection is slowing you down. replace:
Cells(cell.Row, "C").Select
Selection.Resize(1, 52).Select
Selection.ClearContents

with:

Cells(cell.Row, "C").Resize(1, 52).ClearContents

This may improve the speed.

--
Gary''s Student - gsnu2007e


"ytayta555" wrote:

> HI ALL
>
> Here is a macro which delete a ,,specific
> range,, in every Row in the same workbook,
> if the value from BD91 to BD 65536 <=32 ;
> here is the macro :
>
>
> Sub Clear_Ranges()
> ' Macro recorded 3/5/2008 by Tim
>
> Dim cell As Range, rng As Range
> Set rng = Range(Cells(91, "BD"), Cells(Rows.Count,
> "BD").End(xlUp))
> For Each cell In rng
> If cell.Value <= 32 Then
> Cells(cell.Row, "C").Select
> Selection.Resize(1, 52).Select
> Selection.ClearContents
> End If
> Next
> End Sub
>
>
> It works perfect , but it take {in my database of 231 workbooks}
> a looong ... time !!
>
>
>
> IF this macro find in the same range {BD91 to
> BD65536} the Value >=33 , and then Copy the EntireRow in another Wo
> rkbook ,the time shall become dramatically shorter !!
>
> I TRIED THIS :
>
> Sub Clear_Ranges()
> ' Macro recorded 3/5/2008 by Tim
>
> Dim cell As Range, rng As Range
> Set rng = Range(Cells(91, "BD"), Cells(Rows.Count,
> "BD").End(xlUp))
> For Each cell In rng
> If cell.Value >= 33 Then '...... {here maybe must be
> EntireRow .Select???}
> Cells(cell.Row, "C").Select
> Selection.Resize(1, 52).Select
> Selection.Copy
> Windows("R1.xls").Activate
> ActiveCell.Offset(1, 0).Select
> Selection.PasteSpecial Paste:=xlPasteValues
> Application.CutCopyMode = False
> Windows("YTA1.xls").Activate
> End If
> Next
> End Sub
>
>
> .......but it didn't work ;{particular informations : both
> workbooks named YTA1 and R1 are open ;R1 is the
> basic workbook which get the results I need from
> the others workbooks;in this case I want to select
> and copy in wb R1 the EntireRow !!!!!!! of the YTA1 wb
> if the value in this Rows in Column BD is >=33 } ;
>
> FOR CONCLUSIONS :
>
> ,,IF VALUE IN WB,,YTA1,,>=33 THEN COPY EN-
> TIRE ROW IN ANOTHER WB ,,R1,, "
>
> Please help,
>
> Respectfully
>
>
>
>
>

thank very much Gary , you help me
very much with topic ,,Perfect Macro
Combinations ,, .

I think I do not make meself clear what I
need now !
I want to find the value >=33 and
copy entire row in the other work-book ;
the macro work very well for loop and search
the value BD>=33 in ,,YTA1.xls,, !! BUT I don,t know
how to modify the macro to activate the ,,R1.xls,,
and then copy there entire row(x) of ,,YTA1.xls,, 's
column BD(x) >=33

Respectfully to you

have somebody any sugestion here ?