คัดลอกข้อมูลเซลล์ไปยังแผ่นงานใหม่

สวัสดี ต้องการความช่วยเหลือ

ฉันมีย่อย ทำงานตามค่าของเซลล์ใน B5 หลังจากป้อนค่าของเซลล์และกด Enter เวิร์กบุ๊กจะเปิดอีเมลและส่งข้อมูลเกี่ยวกับค่าของเซลล์ใน A2 และ A5 นอกจากนี้ยังขึ้นอยู่กับค่าใน B5 (1-11) จะส่งค่าที่สอดคล้องกันใน A19-A29

สิ่งที่ฉันต้องการทำตอนนี้คือเก็บค่าไว้ในชีต 2 ทุกครั้งที่มีการเปลี่ยนแปลงค่าใน B5 เส้นประกอบด้วย
วันที่; A2; A19-A29 และ A5 ที่สอดคล้องกันจะต้องสร้างในแผ่นที่ 2 โดยล่าสุดอยู่ด้านบน

เป็นไปได้?


Worksheet_Change ย่อยส่วนตัว (เป้าหมายเป็นช่วง ByVal)
เกี่ยวกับข้อผิดพลาดต่อไป
'ถ้า Target.Cells.Count > 1 แล้วออกจาก Sub
ตั้งค่า xRg = Intersect(Range("B5"), Target)
ถ้า xRg ไม่มีอะไร ให้ออกจาก Sub
ถ้า IsNumeric(Target.Value) และ Target.Value = 1 แล้ว
โทร Mail_small_Text_Outlook1
End If
ถ้า IsNumeric(Target.Value) และ Target.Value = 2 แล้ว
โทร Mail_small_Text_Outlook2
End If
ถ้า IsNumeric(Target.Value) และ Target.Value = 3 แล้ว
โทร Mail_small_Text_Outlook3
End If
ถ้า IsNumeric(Target.Value) และ Target.Value = 4 แล้ว
โทร Mail_small_Text_Outlook4
End If
ถ้า IsNumeric(Target.Value) และ Target.Value = 5 แล้ว
โทร Mail_small_Text_Outlook5
End If
ถ้า IsNumeric(Target.Value) และ Target.Value = 6 แล้ว
โทร Mail_small_Text_Outlook6
End If
ถ้า IsNumeric(Target.Value) และ Target.Value = 7 แล้ว
โทร Mail_small_Text_Outlook7
End If
ถ้า IsNumeric(Target.Value) และ Target.Value = 8 แล้ว
โทร Mail_small_Text_Outlook8
End If
ถ้า IsNumeric(Target.Value) และ Target.Value = 9 แล้ว
โทร Mail_small_Text_Outlook9
End If
ถ้า IsNumeric(Target.Value) และ Target.Value = 10 แล้ว
โทร Mail_small_Text_Outlook10
End If
ถ้า IsNumeric(Target.Value) และ Target.Value = 11 แล้ว
โทร Mail_small_Text_Outlook11
End If
ย่อยสิ้นสุด



ขอบคุณเจอร์รี่