logo

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
noureddine70 لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة YasserKhalil برنامج فك حماية محرر الأكواد VBA وحماية unviewable اكسيل اسئله واجابات



أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .




موضوع مغلق


  • تمت الإجابة
03-04-2021 12:25 صباحاً
معلومات الكاتب ▼
تاريخ الإنضمام : 10-03-2019
رقم العضوية : 11894
المشاركات : 68
الدولة : الجزائر
الجنس :
تاريخ الميلاد : 6-12-1970
قوة السمعة : 110
الاعجاب : 2
السلام عليكم و رحمة الله و بركاته الترحيل الى شيت الاكسل عن طريق عمودين
انا عندي كود الترحيل الى شيت الاكسل بشرط اذا وجد قيمة Textbox1 في العمود A في شيت الاكسل لا يرحل و ان لم يجدها يرحل و هذا هو الكود الذي استعمله
CODE
if ws.Range("A2:A" & ws.Cells(Rows.Count, 1).End(xlUp).Row).Find(TextBox1.Value) Is Nothing Then

و المطلوب منكم كود بحيث اذا وجد قيمة Textbox1 في العمود A و قيمة Textbox2 في العمود B في نفس السطر لا يرحل اما اذا وجد القيمتين مختلفتين و كذا اذا وجد قيمة TextBox1 و لم يجد قيمة TextBox2 يرحل
بارك الله فيكم و جزاكم الله خيرا

Posting to an Excel sheet by means of two columns



if ws.Range("A2:A" & ws.Cells(Rows.Count, 1).End(xlUp).Row).Find(TextBox1.Value) Is Nothing Then

أثارت هذه المشاركة إعجاب: منجة فاتح،



look/images/icons/i1.gif الترحيل من اليوزرفورم الى شيت الاكسل
  03-04-2021 06:37 صباحاً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس :
تاريخ الميلاد : 1-5-1989
الدعوات : 1
قوة السمعة : 6611
الاعجاب : 2
وهل على من يريد المساعدة ان ينشأ ملفاً يحتوي على ما تريد ؟؟؟
الكود
CODE

Option Explicit

  Private Sub But_Check_Click()
 If Me.TextBox1 = "" Or Me.TextBox1 = "" Then Exit Sub
 
 Dim Ro%, Sh As Worksheet, i%
 Dim Bol As Boolean
 
 Set Sh = Sheets("Sheet1")
 Ro = Sh.Cells(Rows.Count, 1).End(3).Row
 If Ro = 1 Then
  Ro = 2
  Sh.Cells(Ro, 1) = Me.TextBox1
  Sh.Cells(Ro, 2) = Me.TextBox2
  Exit Sub
 End If
  i = 2
  Do Until i = Ro + 1
      If UCase(Me.TextBox1) & "*" & UCase(Me.TextBox2) = _
       UCase(Sh.Cells(i, 1)) & "*" & UCase(Sh.Cells(i, 2)) Then
       Bol = True
       MsgBox "This Values are Already Exsit" & Chr(10) & _
       "In: " & Sh.Cells(i, 1).Resize(, 2).Address
        Exit Sub
      End If
     i = i + 1
   Loop

  If Not Bol Then
   Sh.Cells(Ro + 1, 1) = Me.TextBox1
   Sh.Cells(Ro + 1, 2) = Me.TextBox2
  End If
 End Sub


الملف مرفق
 
 
  Double_Text.xlsm   تحميل xlsm مرات التحميل :(13)
الحجم :(27.545) KB


أثارت هذه المشاركة إعجاب: ali mohamed ali، noureddine70، YasserKhalil، hassona229، منجة فاتح،





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
الترحيل من الفورم الي الاكسل في عدة شروط بليغ البتول
4 1749 بليغ البتول
شروحات الترحيل حصريا ترحيل البيانات الى داخل الجداول الجاهزة فى الاكسل من خلال اليوزرفورم emad ghazi
11 3229 omar.hosa

الكلمات الدلالية
الترحيل ، اليوزرفورم ، الاكسل ،









اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 06:37 AM