[حل شده] روش کپی کردن کامل یک ردیف از یک شیت به شیت دیگر اگر شرط درست بود [بایگانی]

expo_tlb

2015/10/27, 22:03

سلام دوستان
بنده می خوام اگه سلولی از یک شیت دارای مقدار خاص بود، کل ردیف متناظر با اون سلول را به شیت دیگر منتقل کنه
لطفا کمکم کنید.

خیلی ممنون از لطفتون

iranweld

2015/10/27, 23:10

با سلام

در فایل پیوست اگر در شیت یک و در ستون A مقدار عدد بالاتر از 100 وارد شود، کل آن سطر به انتهای ردیفهای موجود در شیت دوم منتقل میگردد
با استفاده از قابلیت رویدادها ٍEvent در اکسل ، در صورت هرگونه تغییر در ستون A شیت اول ماکروی TEST فراخوانی میگردد

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Target, Me.Range("A:A")) Is Nothing Then

Application.EnableEvents = False

TEST

Application.EnableEvents = True

End If

End Sub

9041
و سپس سایر مراحل انتقال محتویات انجام میشود

Sub TEST()

Z = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row
K = Sheet2.Cells(Sheet2.Rows.Count, "A").End(xlUp).Row + 1

For I = 1 To Z

If IsNumeric(Sheet1.Range("A" & I).Value) And Sheet1.Range("A" & I).Value >= 100 Then

Sheet1.Range(I & ":" & I).Select
Selection.Cut
Sheets("Sheet2").Select

Rows(K & ":" & K).Select
ActiveSheet.Paste
Range("A" & K).Select

Sheets("Sheet1").Select
Range("A" & I).Select

End If
Next

End Sub