Copy the result of the operation in the column of the second sheet

[Morrezagh]

Hi
How to write this command in vba?:
If cell B1 in sheet1 was greater than 50, then cell A2 copy in c1 in sheet2
If cell B1 in sheet1 was greater than 50, then cell A2 copy in c2 in sheet2
If cell B1 in sheet1 was greater than 50, then cell A2 copy in c3 in sheet2
...........................
...........................
If cell B1 in sheet1 was greater than 50, then cell A2 copy in c(i) in sheet2

 

[Joe4]

Are you sure that you have worded that correctly?

It appears that you are saying if cell B1 on Sheet1 is greater than 50, then put the value of A2 in column C on Sheet2, from row 1 down to whatever the value of "i" is.

 

[Morrezagh]

Are you sure that you have worded that correctly?

It appears that you are saying if cell B1 on Sheet1 is greater than 50, then put the value of A2 in column C on Sheet2, from row 1 down to whatever the value of "i" is.

Dim i As Long

Const N As Long = 10000'<- Test with a low number then change to whatever is required

For i = 1 To N
Range("F7").Value = i
Dim wb As Workbook, sht As Worksheet
Set wb = ThisWorkbook: Set sht = wb.Sheets("sheet1")
If sht.Range("B1") > 50 Then
cell A2 copy in c1 in sheet2 By changing i (a number between 1 and 10000), the content of cell A2 will also change, so that cell A2 is copied to column C of sheet 2.

End If


DoEvents
Next i
End Sub

 

[Joe4]

Try this:

Dim i As Long
Dim wb As Workbook, sht As Worksheet

Const N As Long = 10000 '<- Test with a low number then change to whatever is required

Set wb = ThisWorkbook: Set sht = wb.Sheets("sheet1")

For i = 1 To N
    Range("F7").Value = i
    If sht.Range("B1") > 50 Then
        Sheets("Sheet2").Range("C1").Value = sht.Range("A2").Value
    End If

    DoEvents
Next i

End Sub

Note that you should move the wb as ws variable declarations outside of your loop.
There is no need to re-declare and reset them for each loop, since they are not changing.
Just set them before you start the loop.

 

[Morrezagh]

Try this:

Dim i As Long
Dim wb As Workbook, sht As Worksheet

Const N As Long = 10000 '<- Test with a low number then change to whatever is required

Set wb = ThisWorkbook: Set sht = wb.Sheets("sheet1")

For i = 1 To N
    Range("F7").Value = i
    If sht.Range("B1") > 50 Then
        Sheets("Sheet2").Range("C1").Value = sht.Range("A2").Value
    End If

    DoEvents
Next i

End Sub

Note that you should move the wb as ws variable declarations outside of your loop.
There is no need to re-declare and reset them for each loop, since they are not changing.
Just set them before you start the loop.

Thank you for the answer
But I did not get the desired answer
Maybe I asked the wrong question
Simply put, by changing the numbers from 1 to 10,000, if B1 is greater than 50, the value of cell A2 may be, for example, the following:
Ali
Morris
Mary
......

All of the above should be placed in column C of sheet 2

 

[Joe4]

Sorry, I have been out of town all week.

Simply put, by changing the numbers from 1 to 10,000, if B1 is greater than 50, the value of cell A2 may be, for example, the following:

The following what?

Yes, your question is very unclear. If you have trouble explaining it, why not show us an example instead?
MrExcel has a tool called “XL2BB” that lets you post samples of your data that will allow us to copy/paste it to our Excel spreadsheets, so we can work with the same copy of data that you are. Instructions on using this tool can be found here: XL2BB Add-in

Note that there is also a "Test Here” forum on this board. This is a place where you can test using this tool (or any other posting techniques that you want to test) before trying to use those tools in your actual posts.