[حل شده] تغییر فرمول vba

[امین نیما]

با سلام به همه دوستان و اساتید

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

ماکروی که دوست عزیز iranweld محبت کردن نوشتن برای من به صورت ستونی عمل میکنه

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

با تشکر

[iranweld]

با سلام

کد زیر را تست بفرمایید

اسامی را در سطر 1 قرار دهید

Sub test()

y = ActiveSheet.Cells(1, 1).End(xlToRight).Column

K = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column

Range("A2:IV2").ClearContents
    
For I = y To K

If Cells(1, I) <> "" Then

If Cells(1, I) = "hasan" Then

Cells(1, I).Offset(1, 0).Value = "C"

Else

Cells(1, I).Offset(1, 0).Value = "B"

End If
End If

Next I

End Sub 

[امین نیما]

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

[iranweld]

سلام

Sub test()

y = ActiveSheet.Cells(10, 1).End(xlToRight).Column

K = ActiveSheet.Cells(10, Columns.Count).End(xlToLeft).Column

Range("A11:IV11").ClearContents
    
For I = y To K

If Cells(10, I) <> "" Then

If LCase(Cells(10, I).Value) = "hasan" Then

Cells(10, I).Offset(1, 0).Value = "C"

Else

Cells(10, I).Offset(1, 0).Value = "B"

End If
End If

Next I

End Sub 

[امین نیما]

سلام

Sub test()

y = ActiveSheet.Cells(10, 1).End(xlToRight).Column

K = ActiveSheet.Cells(10, Columns.Count).End(xlToLeft).Column

Range("A11:IV11").ClearContents
    
For I = y To K

If Cells(10, I) <> "" Then

If LCase(Cells(10, I).Value) = "hasan" Then

Cells(10, I).Offset(1, 0).Value = "C"

Else

Cells(10, I).Offset(1, 0).Value = "B"

End If
End If

Next I

End Sub 

با تشکر بسیار از شما