مساعدة : عند ترحيل بيانات خليه إلى شيت آخر تُحذف المعادلة من الخلية في الشيت الآول .

[aalhamodh]

تحية طيبة لكم جميعاً ..

يوجد لدي مشكلتين،

الأولى عند ترحيل بيانات خليه إلى شيت آخر تُحذف المعادلة من خلية الشيت الآول، وأنا أريد أن تبقى المعادلة لإستخدامها مره أخرى

المشكلة الثانية دالة البحث لم تنجح معي عند كتابتها .

 

اقتباس

Private Sub CommandButton1_Click()
Dim tamer As Integer
tamer = Sheet2.Range("b100000").End(xlUp).Row + 1
Sheet2.Cells(tamer, "b").Value = Sheet1.Range("d2")
Sheet2.Cells(tamer, "c").Value = Sheet1.Range("i2")
Sheet2.Cells(tamer, "d").Value = Sheet1.Range("n2")
Sheet2.Cells(tamer, "e").Value = Sheet1.Range("f7")
Sheet2.Cells(tamer, "f").Value = Sheet1.Range("i7")
Sheet2.Cells(tamer, "g").Value = Sheet1.Range("m7")
Sheet2.Cells(tamer, "h").Value = Sheet1.Range("f11")
Sheet2.Cells(tamer, "i").Value = Sheet1.Range("i11")
Sheet2.Cells(tamer, "j").Value = Sheet1.Range("m11")
Sheet2.Cells(tamer, "k").Value = Sheet1.Range("f15")
Sheet2.Cells(tamer, "l").Value = Sheet1.Range("i15")
Sheet2.Cells(tamer, "m").Value = Sheet1.Range("m15")
Sheet2.Cells(tamer, "n").Value = Sheet1.Range("f19")
Sheet2.Cells(tamer, "o").Value = Sheet1.Range("i19")
Sheet2.Cells(tamer, "p").Value = Sheet1.Range("m19")
Sheet2.Cells(tamer, "q").Value = Sheet1.Range("f23")
Sheet2.Cells(tamer, "r").Value = Sheet1.Range("i23")
Sheet2.Cells(tamer, "s").Value = Sheet1.Range("m23")
Sheet2.Cells(tamer, "t").Value = Sheet1.Range("f26")
Sheet2.Cells(tamer, "u").Value = Sheet1.Range("i26")
Sheet2.Cells(tamer, "v").Value = Sheet1.Range("m26")
Sheet2.Cells(tamer, "w").Value = Sheet1.Range("f29")
Sheet2.Cells(tamer, "x").Value = Sheet1.Range("i29")
Sheet2.Cells(tamer, "y").Value = Sheet1.Range("m29")
Sheet1.Range("d2").Value = ""
Sheet1.Range("i2").Value = ""
Sheet1.Range("n2").Value = ""
Sheet1.Range("f7").Value = ""
Sheet1.Range("i7").Value = ""
Sheet1.Range("m7").Value = ""
Sheet1.Range("f11").Value = ""
Sheet1.Range("i11").Value = ""
Sheet1.Range("m11").Value = ""
Sheet1.Range("f15").Value = ""
Sheet1.Range("i15").Value = ""
Sheet1.Range("m15").Value = ""
Sheet1.Range("f19").Value = ""
Sheet1.Range("i19").Value = ""
Sheet1.Range("m19").Value = ""
Sheet1.Range("f23").Value = ""
Sheet1.Range("i23").Value = ""
Sheet1.Range("m23").Value = ""
Sheet1.Range("f26").Value = ""
Sheet1.Range("i26").Value = ""
Sheet1.Range("m26").Value = ""
Sheet1.Range("f29").Value = ""
Sheet1.Range("i29").Value = ""
Sheet1.Range("m29").Value = ""
MsgBox "Done By ", vbInformation, "تمت العملية بنجاح"

End Sub

Private Sub CommandButton2_Click()
Sheet2.Range("w1").Value = Sheet1.Range("r4").Value
Dim s As Integer
s = Sheet2.Range("w1").Value
Sheet2.Cells(tamer, "b").Value = Sheet1.Range("d2")
Sheet2.Cells(tamer, "c").Value = Sheet1.Range("i2")
Sheet2.Cells(tamer, "d").Value = Sheet1.Range("n2")
Sheet2.Cells(tamer, "e").Value = Sheet1.Range("f7")
Sheet2.Cells(tamer, "f").Value = Sheet1.Range("i7")
Sheet2.Cells(tamer, "g").Value = Sheet1.Range("m7")
Sheet2.Cells(tamer, "h").Value = Sheet1.Range("f11")
Sheet2.Cells(tamer, "i").Value = Sheet1.Range("i11")
Sheet2.Cells(tamer, "j").Value = Sheet1.Range("m11")
Sheet2.Cells(tamer, "k").Value = Sheet1.Range("f15")
Sheet2.Cells(tamer, "l").Value = Sheet1.Range("i15")
Sheet2.Cells(tamer, "m").Value = Sheet1.Range("m15")
Sheet2.Cells(tamer, "n").Value = Sheet1.Range("f19")
Sheet2.Cells(tamer, "o").Value = Sheet1.Range("i19")
Sheet2.Cells(tamer, "p").Value = Sheet1.Range("m19")
Sheet2.Cells(tamer, "q").Value = Sheet1.Range("f23")
Sheet2.Cells(tamer, "r").Value = Sheet1.Range("i23")
Sheet2.Cells(tamer, "s").Value = Sheet1.Range("m23")
Sheet2.Cells(tamer, "t").Value = Sheet1.Range("f26")
Sheet2.Cells(tamer, "u").Value = Sheet1.Range("i26")
Sheet2.Cells(tamer, "v").Value = Sheet1.Range("m26")
Sheet2.Cells(tamer, "w").Value = Sheet1.Range("f29")
Sheet2.Cells(tamer, "x").Value = Sheet1.Range("i29")
Sheet2.Cells(tamer, "y").Value = Sheet1.Range("m29")
Sheet1.Range("d2").Value = ""
Sheet1.Range("i2").Value = ""
Sheet1.Range("n2").Value = ""
Sheet1.Range("f7").Value = ""
Sheet1.Range("i7").Value = ""
Sheet1.Range("m7").Value = ""
Sheet1.Range("f11").Value = ""
Sheet1.Range("i11").Value = ""
Sheet1.Range("m11").Value = ""
Sheet1.Range("f15").Value = ""
Sheet1.Range("i15").Value = ""
Sheet1.Range("m15").Value = ""
Sheet1.Range("f19").Value = ""
Sheet1.Range("i19").Value = ""
Sheet1.Range("m19").Value = ""
Sheet1.Range("f23").Value = ""
Sheet1.Range("i23").Value = ""
Sheet1.Range("m23").Value = ""
Sheet1.Range("f26").Value = ""
Sheet1.Range("i26").Value = ""
Sheet1.Range("m26").Value = ""
Sheet1.Range("f29").Value = ""
Sheet1.Range("i29").Value = ""
Sheet1.Range("m29").Value = ""
MsgBox "Done By ", vbInformation, "تمت العملية بنجاح"

End Sub

Private Sub CommandButton3_Click()
Sheet2.Range("w1").Value = Sheet1.Range("r4").Value
Dim a As Integer
a = Sheet2.Range("w1").Value
Sheet1.Range("d2").Value = Sheet2.Cells(b, "b")
Sheet1.Range("i2").Value = Sheet2.Cells(a, "c")
Sheet1.Range("n2").Value = Sheet2.Cells(a, "d")
Sheet1.Range("f7").Value = Sheet2.Cells(a, "e")
Sheet1.Range("i7").Value = Sheet2.Cells(a, "f")
Sheet1.Range("m7").Value = Sheet2.Cells(a, "g")
Sheet1.Range("f11").Value = Sheet2.Cells(a, "h")
Sheet1.Range("i11").Value = Sheet2.Cells(a, "i")
Sheet1.Range("m11").Value = Sheet2.Cells(a, "j")
Sheet1.Range("f15").Value = Sheet2.Cells(a, "k")
Sheet1.Range("i15").Value = Sheet2.Cells(a, "l")
Sheet1.Range("m15").Value = Sheet2.Cells(a, "m")
Sheet1.Range("f19").Value = Sheet2.Cells(a, "n")
Sheet1.Range("i19").Value = Sheet2.Cells(a, "o")
Sheet1.Range("m19").Value = Sheet2.Cells(a, "p")
Sheet1.Range("f23").Value = Sheet2.Cells(a, "q")
Sheet1.Range("i23").Value = Sheet2.Cells(a, "r")
Sheet1.Range("m23").Value = Sheet2.Cells(a, "s")
Sheet1.Range("f26").Value = Sheet2.Cells(a, "t")
Sheet1.Range("i26").Value = Sheet2.Cells(a, "u")
Sheet1.Range("m26").Value = Sheet2.Cells(a, "v")
Sheet1.Range("f29").Value = Sheet2.Cells(a, "w")
Sheet1.Range("i29").Value = Sheet2.Cells(a, "x")
Sheet1.Range("m29").Value = Sheet2.Cells(a, "y")

End Sub

Private Sub CommandButton4_Click()
Sheet2.Range("w1").Value = Sheet1.Range("r4").Value
Dim r As Integer
r = Sheet2.Range("w1").Value
Sheet2.Rows(r).Delete
Sheet1.Range("d2").Value = ""
Sheet1.Range("i2").Value = ""
Sheet1.Range("n2").Value = ""
Sheet1.Range("f7").Value = ""
Sheet1.Range("i7").Value = ""
Sheet1.Range("m7").Value = ""
Sheet1.Range("f11").Value = ""
Sheet1.Range("i11").Value = ""
Sheet1.Range("m11").Value = ""
Sheet1.Range("f15").Value = ""
Sheet1.Range("i15").Value = ""
Sheet1.Range("m15").Value = ""
Sheet1.Range("f19").Value = ""
Sheet1.Range("i19").Value = ""
Sheet1.Range("m19").Value = ""
Sheet1.Range("f23").Value = ""
Sheet1.Range("i23").Value = ""
Sheet1.Range("m23").Value = ""
Sheet1.Range("f26").Value = ""
Sheet1.Range("i26").Value = ""
Sheet1.Range("m26").Value = ""
Sheet1.Range("f29").Value = ""
Sheet1.Range("i29").Value = ""
Sheet1.Range("m29").Value = ""
MsgBox "Done By ", vbInformation, "تمت العملية بنجاح"

End Sub

Private Sub CommandButton5_Click()
Sheet2.Select
End Sub

Private Sub CommandButton6_Click()
Sheet1.Range("b2:n31").PrintPreview
End Sub
 

 

[مهند محسن]

لا تنتظر المساعدة من احد بدون رفع ملف مدعوم بشرح كافى عن المطلوب !!!