السلام عليكم
احب اشكر مبرمجي الاكسيل على الشغل المبذول
جزاكم الله خيرا
اريد كود ترقيم تلقائي بشرط ان يبدا 1 شهر سنة
وهكذا
مثال
1 شهر a
1a18
2a18
وهكذا
2 شهر b
1b18
2b18
تعريف الشهور من a الى l ابجدي
12 حتى شهر
18 ترمز للسنة
ارجو المساعدة والاجابة هل تنفع هذه الطريقة اما لا
نقاش
Sub S_Sn()
Dim NaNa As Integer
Set Frm = Zad_Form
Set SH = Sheet1
With Frm
.Txt1.Value = ""
NaNa = 2
Do Until SH.Cells(NaNa, "a").Text = ""
NaNa = NaNa + 1
Loop
.Txt1.Value = NaNa + 1 - 2
End With: End Sub