بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
ابو القاسم
-
Posts
26 -
تاريخ الانضمام
-
تاريخ اخر زياره
Community Answers
-
ابو القاسم's post in Excel Drop down list Problem - مساعدة HELP was marked as the answer
جرب ده بس ده مكان واحد للبحث
بحث باي حرف.xlsx
-
ابو القاسم's post in مشكلة فى تكرار بيانات عند الترحيل was marked as the answer
اخي العزيز تتاكد من ان الادخال موجود من عدمه بهذا الكود
ws = sheets("اسم الصفحة") ird = WorksheetFunction.CountIf(ws.Range("a3:a32"), TextBox2.Value) 'ثم بعد ذلك ادخل الشرط if ird = 1 then 'اي انه موجود msgbox "البيانات موجودة مسبقا" exit sub elseif ird = 0 then 'البيانات غير موجودة 'ادخل الكود الذي تريد تنفيذة end if
-
ابو القاسم's post in ترحيل من صفحة الموردين الى صفحة رصيد البضاعة was marked as the answer
جرب دة
Ali_Hasn.xlsm
-
ابو القاسم's post in طلب تعديل كود بحت في ليست بوكس was marked as the answer
اتمني يكون المطلوب
فاتورة(5).xlsm
-
ابو القاسم's post in جلب معطيات من شيت آخر was marked as the answer
اتمني يكون المطلوب
ملف التوازيع (1).xlsm
-
ابو القاسم's post in أرتباط تشعبى was marked as the answer
Sub wwww() lr = Range("g" & Rows.Count).End(3).Row + 3 Range("a1:h27").Copy Range("a" & lr) If Cells(11, 2) <> "" Then lrr2 = Range("k" & Rows.Count).End(xlUp).Row + 1 Else lrr2 = Range("k" & Rows.Count).End(xlUp).Row + 1 End If ActiveSheet.Hyperlinks.Add Anchor:=Cells(lrr2, 11), Address:="", SubAddress:= _ "æÑÞÉ1!" & "H" & lr + 20 Cells(lrr2, 11) = [h3] Cells(lrr2, 12) = [f7] Cells(lrr2, 13) = [b9] Cells(lrr2, 14) = [h27] Range("h3") = Range("h3") + 1 End Sub اتمني يكون المطلوب
-