پرسش انتقال اطلاعات یک ردیف به شیت دیگر با رعایت یک شرط

[lsms]

با سلام
من میخواستم اطلاعات یک ردیف در شیت یکم به صورت کامل درشیت دو کپی بشه با شرط اینکه اگر سلول b2=1 باشه؟
ممنون میشم راهنمایی کنید

[2009tv]

سلام دوست عزیز
من در فایل پیوست دو شیط ایجاد کردم که در صورتی که در سلول B2 عدد یک که شرط ما محسوب میشود نوشته شود ستون A را در شیط 2 کپی نماید. این فرمول را در محیط VB نوشته ام.
ابتدا با استفاده از کلید ترکیبی ALT و F11 به محیط VB میتوانید دسترسی داشته باشید.
اکنون در Module1 فرمول زیر نوشته شده است:
Sub macro()
برای macro میتوانید از یه اسم دلخواه استفاده نمایید.
a = Sheet1.Range("b2")
متغیری است که شامل محدوده سلولی است که باید شرط در آن بررسی شود.
If a = 1 Then
اکنون توسط شرط if بررسی میکنیم که اگر سلول b2 برابر با یک بودفعالیت زیر را انجام دهد که در واقع ستون a را از sheet1 کپی مینماید.و در ستون a شیط 2 past میکند.
Sheet1.Range("A:A").Copy
Sheet2.Range("A:A").PasteSpecial
End If
End Sub
حال با ایجاد یه دکمه در شیط کاری و اختصاص انجام ماکرو به آن میتوان شرط و فرمول را بررسی کنیم.
امیدوارم کامل توضیح داده باشم البته من نیز همه این مطالب را از اساتید و دوستان خوبم در این انجم یادگرفته ام.

[lsms]

دست شما درد نکنه دوست عزیز

فقط یک نکته من میخ واستم اگر شرط من صدق می کرد کل ردیف 1 رو تو شیت 2 کپی کنه

[2009tv]

در این نمونه ردیف (سطر) اول کپی می گردد.
در واقع فقط بجای a:a از 1:1 برای انتخاب سطر استفاده میکنیم.
نمونه 2

[amir_ts]

با سلام
این کد رو هم امتحان کنید با هر بار اجرا اطلاعات تا آخرین ستون ردیف اول شیت 1 در شیت 2 کپی میشه.موارد بعدی هم زیر اون ردیف قرار میگیرند.

[LEFT]
Sub test()
Dim lr As Integer
lr = Sheets(2).Cells(Sheets(2).Rows.Count, "A").End(xlUp).Row + 1
      If Range("b2").Value = 1 Then
      Sheets(1).Activate
      Range("A1", Range("A1").End(xlToRight)).Copy Destination:=Sheets(2).Range("A" & lr)
      End If

End Sub
[/LEFT]

[Pbapba]

با سلام
این کد رو هم امتحان کنید با هر بار اجرا اطلاعات تا آخرین ستون ردیف اول شیت 1 در شیت 2 کپی میشه.موارد بعدی هم زیر اون ردیف قرار میگیرند.

[LEFT]
Sub test()
Dim lr As Integer
lr = Sheets(2).Cells(Sheets(2).Rows.Count, "A").End(xlUp).Row + 1
      If Range("b2").Value = 1 Then
      Sheets(1).Activate
      Range("A1", Range("A1").End(xlToRight)).Copy Destination:=Sheets(2).Range("A" & lr)
      End If

End Sub
[/LEFT]

ممنون میشم اگر راهنمایی کنید اگر بخواهیم یک محدوده خاص مثلا سطرb2تا d2در شیت دیگه کپی بشه باید چه تغییراتی را بدیم

[Pbapba]

من از این کد استفاده کردم ولی اگر سلول حاوی محاسبات عددی باشه متاسفانه صفر را بجای نتیجه نشون میده راه حل چی هست ؟

[Pbapba]

لطفا دوستان و اساتید راهنمایی کنید

[amir_ts]

ممنون میشم اگر راهنمایی کنید اگر بخواهیم یک محدوده خاص مثلا سطرb2تا d2در شیت دیگه کپی بشه باید چه تغییراتی را بدیم

با سلام

Range("b2:d2").Copy Destination:=Sheets(2).Range("A" & lr)

[hassan3756]

با سلام
من میخواستم اطلاعات یک ردیف در شیت یکم به صورت کامل درشیت دو کپی بشه با شرط اینکه اگر سلول b2=کد باشه؟ یعنی هر شماره وارد می کنم اطلاعات آن شماره منتقل بشو
ممنون میشم راهنمایی کنید

[arta47]

با سلام
یک راهنمایی از اساتید محترم
میخواستم اطلاعات در یک شیت کلی با توجه به یک شاخص که در هر ردیف مشخص شده همزمان با نوشتن به شیت با نام همون شاخص ردیف کپی بشه
ممنون

[alibagher]

سلام یه سوال مهم دارم اگه من بخوام اطلاعات یک شیت فیلتر شده را انتقال بدم باید چیکار کنم با تذکر که فر وقت فیلتر کردم اطلاعات بصورت خودکار به سطر بعدی برود نه اینکه جایگزین اطلاعات قبلی بشود

[Amk]

ببخشید اگر چند تا شرط داشتیم مثلا اگر ماه های سال باشه و جلوی ردیف روزهای ماه باشه چطوری شرط بذاریم اگر فروردین در b2 بود روزهای فروردین را بازنشانی کنه و اگر ماه های دیگر بود روزهای مربوط به آن ماه را؟

[kazamie]

با سلام
یک راهنمایی از اساتید محترم
میخواستم اطلاعات در یک شیت کلی با توجه به یک شاخص که در هر ردیف مشخص شده همزمان با نوشتن به شیت با نام همون شاخص ردیف کپی بشه
ممنون

سلام فایل نمونه بگذارید