پرسش راهنمایی در فرمول vba در فایل پیوست

[mahdie-ard]

با عرض سلام خدمت اساتید محترم
قابل توضیح هست که یک فایل برای دریافت نامه ها در اکسل درست نموده ام و برای اینکه فرمولهای مربوطه حذف نشوند از تابع افست در vba استفاده نموده ام
زمانی که با استفاده از یوزرفرم اطلاعات نامه وارد اکسل میشود از فرمولهای زیر برای تکمیل فایل استفاده نموده ام ولی چندتا از سلولها زمانی که یوزرفرم تکمیل میشود به درستی کار نمیکنند ولی زمانی که با کیبود در اکسل سلولها وارد می شوند تابع آفست کار می کند
فرملها اینا هستن. در ضمن به خاطر پسوند فایل نتونستم فایل رو پیوست کنم. اگر امکانش هست بفرمایید تا فایل رو در جای دیگر ارسال کنم
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("L7:L10000")) Is Nothing Then
If Target.Value <> "" Then
With Target.Offset(0, 8)
.Value = Date
End With
With Target.Offset(0, 1)
.Value = Target.Offset(0, 27)
End With
With Target.Offset(0, -3)
.Value = Target.Offset(0, 25)
End With
With Target.Offset(0, -2)
.Value = Target.Offset(0, 26)
End With
With Target.Offset(0, 2)
.Value = Target.Offset(0, 28)
End With
With Target.Offset(0, 3)
.Value = Target.Offset(0, 29)
End With
End If
End If
End Sub

[generalsamad]

با سلام
میتونید با پسوند xls یا rar موقتا فایل رو ذخیره کنید جهت آپلود کردن

[mahdie-ard]

راهنمایی در فرمول vba در فایل پیوست

سلام مجدد خدمت استاد گرامی
فایل به پیوست ارسال می گردد
در ضمن ستون مربوط به مهلت پاسخ تکمیل نمیشه ولی زمانی که شماره اتوماسیون با کیبورد وارد میشه جواب میدهد

[Ali Parsaei]

سلام، اين کد شما براي فرآيند Worksheet_Change در شيت name نوشته شده به نحوي که در محدوده L7 تا L10000 اگر سلول تغييري پيدا کند و خالي نباشد اعمال مي گردد. پس طبيعي است وقتي اطلاعات را با يوزرفرم وارد مي کنيد اين کد کار نخواهد کرد!!!!
مي توانيد همين عمليات را خيلي ساده تر و با استفاده از دستورات for و if و offset براي همان محدوده L7 تا L10000 در commandbutton 100 يوزرفرم يک تعريف کنيد.
کلا" کدنويسي فايل شما خيلي ساده تر از اين مي تواند باشد .... من حس مي کنم خيلي شلوغ و متفرق کدنويسي شده، اگر در ابتدا به کد مربوطه اشاره نکرده بوديد نميشد منظورتان را فهميد، کلا" فايلهاي با کدنويسي زياد بررسي کردنشان سخت است.

[mahdie-ard]

تشکر بابت راهنمایی شما، امکان اصلاح توسط شما هستش، خودم زیاد نمیتونم اصلاح کنم؟