[حل شده] دیتا پیکر

[reza_gh_tak]

با سلام
مندو تا دیتا پیکر تو صفحه دارم میخوام روی هر کدوم کلیک کردم و تاریخ رو انتخاب کردم در جایی که تعریف کردم بیفته در حالیکه الان روی هرکدام تاریخ رو انتخاب می کنم روی سلول h0 می افته
ممنون

[iranweld]

با سلام
مندو تا دیتا پیکر تو صفحه دارم میخوام روی هر کدوم کلیک کردم و تاریخ رو انتخاب کردم در جایی که تعریف کردم بیفته در حالیکه الان روی هرکدام تاریخ رو انتخاب می کنم روی سلول h0 می افته
ممنون

توی کدها این بخش رو جایگزین کدهای قبلی کنید

Public Sub sabtTarikh()
Dim n
If ActiveControl.Caption <> Empty Then
Label54.Caption = ComboBox2.Text & "/" & Format(ComboBox1.Text, "00") & "/" & Format(ActiveControl.Caption, "00")
Label55.Caption = TbH(Label54.Caption, 2)
Label60.Caption = J_GREGORIANDATE(Label54.Caption, 1)
ActiveCell = Label54.Caption
Unload Me
End If 

[reza_gh_tak]

نه منظور من این بود که هر دیتا پیکر در محل خودش تاریخ رو بندازه مشلا دیتا پیکر 1 پس از انتخل ب تاریخ روh10 دیتا پیکر 2 روی k10 بندازند

[iranweld]

در فایل پیوست میتوانید سلول مورد نظر را انتخاب کنید

[reza_gh_tak]

مثل اينكه من نتونستم منظورم رو خوب بگم من ني خوام تغييري ذوي ديتا پيكر بدم بلكه فقط مي خوام وقتي وقتي ديتا پيكر ستون H كليك كردم ژس از باز شدن تقويم و انتخاب تاريخ نتيجه روي H10 بيفته و وقتي روي ديتا پيكر ستون k كليك كردم ژس از باز شده تاريخ و انتخاب اون از همين تقويم نتيجه رو يk10 بيفته

[majid_mx4]

با سلام

ضمن تشکر از استاد عزیز و دوست گرامی جناب IranWeld

ضمن اعمال کد ارسالی ایشان در پست 2 کد زیر را جایگزین کد Module2 کنید.

Option Explicit

Sub Picture1_Click()
Range("h10").Select
thistext = "TextBox6"
taghvim.Show
End Sub
Sub Picture2_Click()
Range("k10").Select
thistext = "TextBox6"
taghvim.Show

End Sub

موفق باشید میر

[reza_gh_tak]

خیلی خیلی ممنون از کمک تمامی دوستان