[حل شده] هشدار خالی بودن سلول در هنگام کپی

[ahmada1983]

سلام
می خوام از طریق دگمه ای که در شیت a قرار داره محدوه شیت b که سلول هاش حاوی فرمول هم هستن به شیت c کپی بشه (نکته اینجاست که اگه سلولی خالی بود توی محدوده شیت b هشدار بده و کپی متوقف بشه)
اگه امکانش هست و سریع پاسخ بدین عالیه
ممنون از همه دوستان

[amir_ts]

با سلام
این کد را ببینید.

[LEFT]Sub test()
If WorksheetFunction.CountIf(Worksheets("b").Range("b3:h3"), 0) = 0 Then
Worksheets("b").Range("b3:h3").Copy Destination:=Worksheets("c").Range("b3")
Else: MsgBox "no data"
End If
End Sub[/LEFT]

[ahmada1983]

ممنون امیر عزیز ولی یه مشکل هست و اینکه سلول های شیت B فرمول دارن و وقتی ازاعداد از طریق فرمول وارد می شن دیگه عمل کپی به شیت c انجام نمی شه و فقط اگه بطور مستقیم اعداد توی محدوده شیت b وارد بشن کپی انجام می شه

[amir_ts]

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

[ahmada1983]

دوست عزیز بعد از اینکه سلول ها از نظر خالی بودن چک شدن و کپی انجام شد دقیقا هرچی که توی سلول های شیت b هست رو کپی می کنه یعنی فرمول ها رو کپی می کنه و اعدد رو کپی نمیکنه

[amir_ts]

امتحان کنید.

[LEFT]

Sub test()
If WorksheetFunction.CountIf(Worksheets("b").Range("b3:h3"), 0) = 0 Then
                    Worksheets("b").Range("b3:h3").Copy
                    Worksheets("c").Select
                    Range("b3").Select


           Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                  :=False, Transpose:=False
Else: MsgBox "no data"


End If


Worksheets("A").Select
End Sub[/LEFT]

[ahmada1983]

بسیار عال و ممنون از شما