[حل شده] راهنمایی

[امین نیما]

دوستان راهنمایی بفرمایند این فرمول رو چطور میتونم ساده ترش کنم
با تشکر

[iranweld]

فایل ماکرو رو را همه ضمیمه کنید راحتتر میشود کدها را جابجا نمود

[امین نیما]

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

[iranweld]

با سلام

کد اصلاح شده نیک نام

اشتباهات

M = Range("q1").Value 

If M = "Ïí" And r = 1 Or M = "Ïí" And r = 5 Then 

ElseIf M = "Èåãä" And r = 15 Or M = "Èåãä" And r = 25 Then 

Sub Niknam()

'  äí˜ äÇã'
Dim r As Integer
Y = ActiveSheet.Cells(5).Column
K = ActiveSheet.Cells(35).Column
    For i = Y To K
M = Range("q1").Value
r = Cells(5, i).Value

If M = "Ïí" And r = 1 Or M = "Ïí" And r = 5 Then
Cells(6, i).Value = "D"
Cells(7, i).Value = "E"

ElseIf M = "Èåãä" And r = 15 Or M = "Èåãä" And r = 25 Then
Cells(6, i).Value = "D"
Cells(7, i).Value = "E"

Else
Cells(6, i).Value = ""
Cells(7, i).Value = ""

End If

Next i

End Sub 

[iranweld]

این کد را هم تصحیح بفرمایید

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Me.Range("Q1")) Is Nothing Then

Application.ScreenUpdating = False

Master

Application.ScreenUpdating = True

End If

End Sub 

[امین نیما]

با تشکر خیلی زیاد از شما
تغیرات مورد نظر شما انجام شد در فایل پیوست
جسارتا مشکل جدید به وجود اومده با کلمه ماه دی است که کامپیوتر نمیتونه بخونتش
چطور باید این مشکل را حل کنم
با تشکر خیلی زیاد از شما

[iranweld]

فایل پیوست شد

[امین نیما]

تقاضای راهنمایی مجدد
با تشکر فراوان

[iranweld]

شرط ها درست عمل میکنند شما در شیت برای اجرا نشدن شرط اول مقدار e8 را از D به یک حرف دیگر تغییر بدید و ماکرو اجرا کنید میبینید شرط دوم اجرا میگردد

Sub niknam()

Y = ActiveSheet.Cells(5).Column
K = ActiveSheet.Cells(35).Column
For i = Y To K

If Range("E8").Value = "D" Then
Range("f6").Value = "D"
Range("f7").Value = "E"

ElseIf Range("G8").Value = "D" Then
Range("h6").Value = "D"
Range("h7").Value = "E"

Else

End If
Next i
End Sub 

[امین نیما]

شرط ها درست عمل میکنند شما در شیت برای اجرا نشدن شرط اول مقدار e8 را از D به یک حرف دیگر تغییر بدید و ماکرو اجرا کنید میبینید شرط دوم اجرا میگردد

Sub niknam()

Y = ActiveSheet.Cells(5).Column
K = ActiveSheet.Cells(35).Column
For i = Y To K

If Range("E8").Value = "D" Then
Range("f6").Value = "D"
Range("f7").Value = "E"

ElseIf Range("G8").Value = "D" Then
Range("h6").Value = "D"
Range("h7").Value = "E"

Else

End If
Next i
End Sub 

با تشکر زیاد از شما
هدف من ایز نوشتن این فرمول این است که در صورتی که شرط اول D است فرمول اجرا بشه تصور بفرمایید در فرمول بار من شزط بزارم

در سلول f6
if(e8=D;D;" ")یا شرط دوم

در سلول h6
if(g8=D;D;" ")
چطور باید این شرط رو در وی بی ای بنویسم که هر دو شرط برقرار باشه این طور که من نوشتم فقط شرط اول در وی بی ای اجرا میشسه

با تشکر

[iranweld]

با سلام

کد ذیل را تست بفرمایید
اگر هر دو سلول E8 و G8 برابر D باشد شرط اول اجرا شده و اگر E8 یرایر D ولی G8 مخالف D باشد شرط دوم اجرا میگردد

Sub niknam()

Y = ActiveSheet.Cells(5).Column
K = ActiveSheet.Cells(35).Column
For i = Y To K

If Range("E8").Value = "D" And Range("G8").Value = "D" Then

Range("f6").Value = "D"
Range("f7").Value = "E"

Range("h6").Value = "D"
Range("h7").Value = "E"

ElseIf Range("E8").Value = "D" And Range("G8").Value <> "D" Then

Range("f6").Value = "D"
Range("f7").Value = "E"


End If
Next i
End Sub 

[امین نیما]

ممنون دوست عزیز
لطف کردی
مشکل من با راهنمایی شما حل شد
تشکر مجدد