عفوا استاد ليس هذا ما اقصد
اريد كود يعمل حلقة تكرارية كهدا مثلا ولكن في اكسيل اريد تطبيقه على نمودج فرعي اكسيس
وشكرا على مرورك
sub test
dim lr:lr=cells(rows.count,1).end(xlup).row
dim x
for x = 1 to lr
if cells(x,1)="" then
cells(x,1)=date
end if
next x
end sub