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

[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