[حل شده] ذخيره مذاكرات به صورت بايگاني در يوزرفرم

[مائده]

با سلام به اساتيد محترم
تو فايل پيوست ارسالي در ستون A وقتي در هر سل كليد ميكنيم يه فرمي باز ميشه بنام(بايگاني مذاكرات)با يه دكمه ذخيره
ميخوام خلاصه اي بعد از هر صحبت هاي شده تو فرم بنويسم و وقتي دكمه ذخيره زدم به صورت بايگاني ذخيره بشه!
يعني سري بعد اگه روي همون سل كليد كرديم همون فرم باز بشه با اطلاعاتي كه نوشته بوديم.دوباره اگه يه سري چيزهايي نوشتيم و دكمه ذخيره زديم دوباره ثبت و ذخيره بشه.
با اين امكان كه بعد از هر Enter كه زديم يه خطي بياد پايين.
ممنون ميشم راهنمايي و كمك كنيد.

[Javid Mokhtari]

با سلام.

در userform2 کد زیر رو بگذارید :

Private Sub UserForm_Initialize()
TextBox1.Text = ActiveCell.Offset(0, 16).Value
End Sub 

و در دکمه "ذخیره" از کد زیر :

Private Sub CommandButton1_Click()
Dim ans As String
ans = MsgBox("are you sure?", vbYesNo)
    If ans = vbYes Then
            ActiveCell.Offset(0, 16).Value = TextBox1.Text
                 MsgBox "changed" 
       End If
End Sub 

[مائده]

با سلام.

در userform2 کد زیر رو بگذارید :

Private Sub UserForm_Initialize()
TextBox1.Text = ActiveCell.Offset(0, 16).Value
End Sub 

و در دکمه "ذخیره" از کد زیر :

Private Sub CommandButton1_Click()
Dim ans As String
ans = MsgBox("are you sure?", vbYesNo)
    If ans = vbYes Then
            ActiveCell.Offset(0, 16).Value = TextBox1.Text
                 MsgBox "changed" 
       End If
End Sub 

با سلام
كد هاي ارائه شده از طرف شما استاد عزيز درست اعمال ميشه
فقط اطلاعاتي كه در يوزرفرم ذخيره ميكنيم نميشه فقط در همان فرم ذخيره بشه ؟
چون رديف ها بي نهايت و براي هر ديف ما در يوزرفرم ممكنه اطلاعات زيادي بنويسيم
در اين صورت حجم فايل خيلي بالا نميره!؟
ممنون راهنمايي كنيد

[shamsololama]

با درود فراوان
برای این کار میتوانید از یک شیت برای ذخیره مذاکرات استفاده کنید و همچین زمان نوشتن مذاکره جدید مذاکرات قبلی هم نمایش داده میشه این نمونه که ضمیمه کردم ببینید
البته میتوانید کلید برای ویرایش مذارکرات هم قرار بدین

[مائده]

با سلام
اساتيد محترم ميشه يه راهنمايي كنين در مورد:
فرم ثبت مشتري،يوزرفرم1 وقتي كليك ميكنيم:
در قسمت تكس باكس نام شركت و نام مشتري اسمي وارد كرديم برنامه بياد اگه مشابه اون اسم بود در قسمت ليست باكس همون فرم بياره

مثلا اگه ما در اطلاعاتمون اسامي به مشخصات نام آقاي علي و نام شركت سپيده بود
حالا ما در يوزرفرم در قسمت نام نوشتيم علي .اطلاعات همون آقاي علي در ليست باكس بياد يعني اگه هم چند اسم يا كلمه بود حتي اگه يه هم كلمه داشت در ليست باكس بياره.
در تكس باكس نام شركت هم همينطور.
اين كار براي جلوگيري از وارد كردن اطلاعات تكراري ميباشد.
ممنون در مورد اين برنامه راهنمايي و كمك كنين.

[reza_63]

با سلام
اساتيد محترم ميشه يه راهنمايي كنين در مورد:
فرم ثبت مشتري،يوزرفرم1 وقتي كليك ميكنيم:
در قسمت تكس باكس نام شركت و نام مشتري اسمي وارد كرديم برنامه بياد اگه مشابه اون اسم بود در قسمت ليست باكس همون فرم بياره

مثلا اگه ما در اطلاعاتمون اسامي به مشخصات نام آقاي علي و نام شركت سپيده بود
حالا ما در يوزرفرم در قسمت نام نوشتيم علي .اطلاعات همون آقاي علي در ليست باكس بياد يعني اگه هم چند اسم يا كلمه بود حتي اگه يه هم كلمه داشت در ليست باكس بياره.
در تكس باكس نام شركت هم همينطور.
اين كار براي جلوگيري از وارد كردن اطلاعات تكراري ميباشد.
ممنون در مورد اين برنامه راهنمايي و كمك كنين.

سلام به عزيزان
منم دقيقا يه همچين مشكلي تو يكي از برنامه هام دارم .
يه كدي كه وقتي تو يوزرفرم گذاشتيم از ثبت اطلاعات تكراري جلوگيري كنه.
مثلا اگه اطلاعات نامي چند كلمه اي بود ولي ما يه كلمه رو در تكس باكس اورديم همون اطلاعات در ليست باكس بياره.حالا اگه سري اطلاعاتي كه ميخواستيم وارد كنيم اون اطلاعات نبود بقيه تكس باكس ها رو وارد و ذخيره ميكنيم.
اساتيدي كه در اين مورد كد ميدونن لطفا راهنمايي كنن.
ممنون ميشم كارم خييلي گير اين مورد هست

[iranweld]

با سلام

در فایل پیوست در فرم موجود در صورت ورود هر حرف کلیه کلماتی که با آن حرف شروع میگردد سطر آن کلمه در لیست باکس لیست میگردد.

که میتوانید برای فرم خود از آن الگو بگیرید

Private Sub textbox1_Change()

Dim CELL, RNG As Range

ListBox1.Clear

ListBox1.ColumnWidths = "50;50;80;80;80;80;80;80;80;80"

If textbox1 <> "" Then

Set RNG = Sheet1.Range("Table1[#All]")


For Each CELL In RNG

If Left(CELL, Len(textbox1)) = textbox1 Then


ListBox1.AddItem CELL

For I = 1 To 10
                      
    ListBox1.List(ListBox1.ListCount - 1, I - 1) = Cells(CELL.Row, I)
    
    Next I
    
    End If
    
    Next
    
    End If

End Sub 

[مائده]

با سلام

در فایل پیوست در فرم موجود در صورت ورود هر حرف کلیه کلماتی که با آن حرف شروع میگردد سطر آن کلمه در لیست باکس لیست میگردد.

که میتوانید برای فرم خود از آن الگو بگیرید

Private Sub textbox1_Change()

Dim CELL, RNG As Range

ListBox1.Clear

ListBox1.ColumnWidths = "50;50;80;80;80;80;80;80;80;80"

If textbox1 <> "" Then

Set RNG = Sheet1.Range("Table1[#All]")


For Each CELL In RNG

If Left(CELL, Len(textbox1)) = textbox1 Then


ListBox1.AddItem CELL

For I = 1 To 10
                      
    ListBox1.List(ListBox1.ListCount - 1, I - 1) = Cells(CELL.Row, I)
    
    Next I
    
    End If
    
    Next
    
    End If

End Sub 

سلام
مشكل اين برنامه رفع شد
با تشكر از شما استاد گرامي