[حل شده] مشکل در یافتن مقدار درست

[javaddear]

سلام دوستان من یخ ماکرو نوشتم وقتی در یک جدولی که داده هاش در بازه زمانی مشخصی تغییر میکنه سلول هایی که از یه مقدار خاص بیشتر هستن رو کپی کنه به شیت دوم ولی درست کار نمیکنه کمک کنید ممنون میشم

Sub jj()a = 301
For i = 2 To a
If Worksheets("info").Cells(i, 25).Value > "5000" Then
Worksheets("info").Cells(i, 25).Copy
Worksheets("sheet1").Activate
b = Cells(i, Columns.Count).End(xlToLeft).Column
Worksheets("sheet1").Cells(i, b + 1).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _        :=False, Transpose:=False
End If
Next i
Application.CutCopyMode = flase


End Sub 

[Amir Ghasemiyan]

سلام دوست عزیز
مشکل اینه که شما ۵۰۰۰ رو داخل کوتیشن گذاشتید. از کوتیشن در بیارید حل میشه

[majid_mx4]

با سلام
لطفا کد زیر را چک کنید .
اگر دلخواه شما نبود لطفا کمی توضیح دهیدکه میخواهید به چه نتیجه ای برسید ، هر چند همینکه خودتان سعی در نوشتن کد کرده اید بسیار ایده آل است.

 Sub jj()
 a = 301
        For i = 2 To a
        If Worksheets("info").Cells(i, 25).Value > "5000" Then
        b = Cells(i, Columns.Count).End(xlToLeft).Column
               Worksheets("info").Cells(i, 25).Copy Worksheets("sheet1").Cells(i, b + 1)
       ' Worksheets("sheet1").Activate
 
        
       ' Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        End If
        Next i
        Application.CutCopyMode = flase


        End Sub

موفق باشید میر