مشكل در زير هم انداختن ركوردها

[4017]

با سلام
طبق فايل پيوست چطوري ميشه بعد از زدن دكمه ركوردها زير هم بيان و يكي در ميون نشن؟

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[Ali Parsaei]

سلام،
اين فايل اصليتون است؟ يا نمونه است؟
ميشه درستش کرد، ولي بايد ديد فايل اصليتون چه جوري است و چند رديف دارد و ....
ممکن است من يک کدي اضافه کنم که رديف ها را حذف کند ولي فقط به درد همين چند سطر بخورد!

[4017]

سلام،
اين فايل اصليتون است؟ يا نمونه است؟
ميشه درستش کرد، ولي بايد ديد فايل اصليتون چه جوري است و چند رديف دارد و ....
ممکن است من يک کدي اضافه کنم که رديف ها را حذف کند ولي فقط به درد همين چند سطر بخورد!

با تشكر از پاسخ شما
فايل اصلي نيست. اما با اصلي فرقي نداره. شما در اين مورد راهنمايي بفرماييد ممنون ميشم

[Amir Ghasemiyan]

با سلام
طبق فايل پيوست چطوري ميشه بعد از زدن دكمه ركوردها زير هم بيان و يكي در ميون نشن؟

سلام دوست عزيز
ببينين اين كد كارتون رو راه ميندازه؟

Sub cc()Dim i
j = 0
For i = 1 To 6
Sheet2.Cells(1, i) = Sheet1.Cells(1, i)
    If Val(Sheet1.Cells(i, 1)) > 1300 Then
        Sheet2.Cells(j, 1) = Sheet1.Cells(i, 1)
        Sheet2.Cells(j, 2) = Sheet1.Cells(i, 2)
        Sheet2.Cells(j, 3) = Sheet1.Cells(i, 3)
        Sheet2.Cells(j, 4) = Sheet1.Cells(i, 4)
        j = j + 1
    End If
Next i
End Sub