کپی کردن اطلاعات یک شیت در شیت دیگری

[ACHORAM]

سلام دوستان
چطور میتونم اطلاعات یکی از سلول های sheet2 رو با کد نویسی وارد یکی از سلول های sheet1 کنم
با تشکر
ممنون میشم کمکم کنید

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

[امين اسماعيلي]

با درود

مثلا بنویس واسه A1 میخوام بنویسم
sheet1.range("A1").value=sheet2.range("A1").value
اینو واسه یه button یا تو هر ایونتی خواسی بنویس. بگردی تو همین قسمت راحت میتونی فایل های نمونه پیدا کنی

[arash66_2m]

این کجاش اشتباهه ؟
Sub code1()
Sheet4.Range("U3").Value = Sheet5.Range("C19").Value


End Sub

[Ali Parsaei]

این کجاش اشتباهه ؟
Sub code1()
Sheet4.Range("U3").Value = Sheet5.Range("C19").Value


End Sub

اشتباه نيست! چطور مگه؟

[arash66_2m]

اشتباه نيست! چطور مگه؟

چون جواب نمیده
اینم فایل ! فقط اینجا sheet ها 1 و 2 هستش !
http://uplod.ir/x60bykmf6ra6/Book1.xlsx.htm

[Ali Parsaei]

چون جواب نمیده
اینم فایل ! فقط اینجا sheet ها 1 و 2 هستش !
http://uplod.ir/x60bykmf6ra6/Book1.xlsx.htm

اين فايل که اصلا" کد نويسي نشده که بخواهد جواب بدهد يا نه!

[arash66_2m]

دوستان من این کد رو نوشتنم
یه بار که انجام میدم جواب میده
بار دوم یا سوم که میخوام انجام بدم دیگه کار نمی کنه
مشکل از چیه ؟
Private Sub CommandButton1_Click()
Dim CustomerName As String, CustomerProblem As Integer
Worksheets("sheet1").Select
CustomerName = Range("C4")
CustomerProblem = Range("C5")
Worksheets("sheet2").Select
Worksheets("sheet2").Range("b4").Select
If Worksheets("sheet2").Range("b4").Offset(1, 0) <> "" Then
Worksheets("sheet2").Range("b4").End(x1down).Selec t
End If
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = CustomerName
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = CustomerProblem
Worksheet("sheet1").Select
Worksheets("sheet1").Range("c4").Select






End Sub

[arash66_2m]

سلام درست شد!
فقط یه سوال دیگه اونم این که در این کد
Sub Copy_Data()
Application.ScreenUpdating = False
Worksheets("Sheet6").Range("B21:k37").Value = Worksheets("Sheet6").Range("B2:k18").Value
Application.ScreenUpdating = True


End Sub

من میهوام یه دستور شرطی بذارم اونم اینکه اگه مثلا a1 بود c1 سپس همون دستور بالایی و اگر مثلا c2 بود باز همون دستور بالایی ( تنها ناحیه ها عوض میشه موقعی که c1 به c2 تغییر پیدا میکنه و الا آخر .... )

[~M*E*H*D*I~]

باید به شکل زیر نوشته بشه

IF range("a1").value = range("c2.").value then

...................

elseif  range("a1").value = range("c1").value then

........................

end if