نیاز به کد نویسی vb در محیط اکسل برای فراخوانی داده ها از چند جدول و لیست آنها زیر هم

[jack007]

سلام و درود

دوستان محبت کنند بفرمایند ((چگونه می توانم داده های موجود در چند جدول یکسان با رکورد متفاوت را در یک شیت اکسل انتخاب و در شیت دوم زیر هم کپی کنیم .......لطفا فایل اکسل پیوست را ببینید....بسیا سپاس گذار

[m.4.r.m]

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

[jack007]

با تشکر از توجه شما..............مهندس درست می فرمایید مشکل وقتی است که تعداد این جداول به بالای 100 عدد می رسه.......از طرفی با فراخوانی عربار داده ها در شیت یک، ردیف ها متفاوت میشه و =sheet1! جور در نمیاد......:گریه::گریه: ممنون میشم اگه بتونید راهنمایی بفرمایید

[jack007]

سلام
کد رو پیدا کردم شایذ بکار بقیه دوستان بیاد

Sub Macro1()
Application.ScreenUpdating = False
Dim aa As Range
Dim r As Long
Dim c As Long
Dim cnt As Integer
Dim lrow As Long
نام جدول,("cnt = Application.WorksheetFunction.CountIf(Sheets("sheet1").Range("A:E

Sheets("Sheet2").Range("a:e").Clear
Sheets("Sheet1").Activate
Range("a1").Select
For i = 1 To cnt
Set aa = Sheets("sheet1").Cells.Find(What:="نام جدول", After:=ActiveCell, LookIn:=xlFormulas, _

LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=True, SearchFormat:=False)
r = aa.Row
c = Range("a" & r).End(xlDown).Row


Range("a" & r & ":e" & c).Select
Selection.Copy
Sheets("Sheet2").Select
Range("a1").Value = "ÌÏÇæá ÕæÑÊÍÓÇÈ"
lrow = Cells(Rows.Count, 1).End(xlUp).Row
Range("a" & lrow + 2).Select
ActiveSheet.Paste
Sheets("Sheet1").Select
Next


MsgBox ": ÊÚÏÇÏ ÌÏÇæá ÇäÊÞÇá ÏÇÏå ÔÏå" & Chr(10) & cnt


Application.ScreenUpdating = True
End Sub