ثبت تاریخ

[iranweld]

با سلام

از کدهای ذیل استفاده کنید. برای بررسی مشکل خطای ایجاد شده، فایل پیوست را روی یک سیستم دیگر نیز اجرا کنید و ببنید خطا ظاهر میگردد؟

Sub Worksheet_Change(ByVal Target As Range)

    If Target = "True" And Not Intersect(Target, Me.Range("A:A")) Is Nothing Then
    
        
    Target.Offset(0, 1) = J_TODAY(1)
    
    
    ElseIf Target = "False" And Not Intersect(Target, Me.Range("A:A")) Is Nothing Then
    
        
    Target.Offset(0, 1) = ""
    
    
    ElseIf Target <> "" And Not Intersect(Target, Me.Range("C:C")) Is Nothing Then
    
        
    Target.Offset(0, 1) = J_TODAY(1)
    
    
    ElseIf Target = "" And Not Intersect(Target, Me.Range("C:C")) Is Nothing Then
    
        
    Target.Offset(0, 1) = ""
    
        
    End If
  
    
    End Sub 

[fokker]

با سلام

از کدهای ذیل استفاده کنید. برای بررسی مشکل خطای ایجاد شده، فایل پیوست را روی یک سیستم دیگر نیز اجرا کنید و ببنید خطا ظاهر میگردد؟

Sub Worksheet_Change(ByVal Target As Range)


    If Target = "True" And Not Intersect(Target, Me.Range("A:A")) Is Nothing Then
    
        
    Target.Offset(0, 1) = J_TODAY(1)
    
    
    ElseIf Target = "False" And Not Intersect(Target, Me.Range("A:A")) Is Nothing Then
    
        
    Target.Offset(0, 1) = ""
    
    
    ElseIf Target <> "" And Not Intersect(Target, Me.Range("C:C")) Is Nothing Then
    
        
    Target.Offset(0, 1) = J_TODAY(1)
    
    
    ElseIf Target = "" And Not Intersect(Target, Me.Range("C:C")) Is Nothing Then
    
        
    Target.Offset(0, 1) = ""
    
        
    End If
  
    
    End Sub 

با سلام مجدد و عرض خسته نباشید . می خواستم بدونم حالا اگه بخواییم از ردیف دو شروع به اجرا فرمول کنه تا بتوان در ردیف یک برای سلول ها Title گذاشت چه باید کرد ممنون و باز هم سپاس جهت زحمات کلیه سروران گرامی

[iranweld]

بجای a:a عبارت a2:a20000 قرار دهید

[fokker]

بجای a:a عبارت a2:a20000 قرار دهید

سپاس فراوان

[fokker]

راستی چرا وقتی از منوی insert و create table جدولی می کشم و فرمول بعد در اون شیت مورد نظر قرار می دم با دراگ کردن سطر جدول و ایجاد سطر دوم پیغام خطا Type mismatch می ده ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

[fokker]

راستی چرا وقتی از منوی insert و create table جدولی می کشم و فرمول بعد در اون شیت مورد نظر قرار می دم با دراگ کردن سطر جدول و ایجاد سطر دوم پیغام خطا Type mismatch می ده ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

[fokker]

راستی چرا وقتی از منوی insert و create table جدولی می کشم و فرمول بعد در اون شیت مورد نظر قرار می دم با دراگ کردن سطر جدول و ایجاد سطر دوم پیغام خطا Type mismatch می ده ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟