שאלה לגבי שילוב לולאה עם תנאי

[ל13]

שאלה לגבי שילוב לולאה עם תנאי

הי חברים,
אשמח לעזרתכם.
יש לי טבלה שבעמודה אחת (A) מופיעה מילה ומולה בעמודה השניה (B) צריך להזין איזשהו ערך (מספרי או אחוזי).
אני מנסה ליצור מאקרו אירוע (?) בגיליון שבכל הזנה של ערך בעמודה B, הפורמט של הערך הזה (מספר או אחוז) ייקבע לפי המילה שמופיעה מולה בעמודה A (באותה שורה). וככה ירוץ בלופ על כל הטבלה עד סופה.
כלומר פורמט הערך
B2 ייקבע לפי המילה ב-A2
B3 ייקבע לפי המילה ב- A3
וכך הלאה.
מצרף כאן קוד שרשמתי שעושה את הפעולה רק על שורה אחת (B2 --> A2). איך משלבים בקוד לולאה שתעשה את אותה הפעולה על כל הטבלה?

תודה מראש

Private Sub Worksheet_SelectionChange(ByVal Key As Range)

Set Key = Range("A2")

If Key.Value = "KKK" Or Key.Value = "LLL" Then
        Range("B2").Style = "Percent"
Else
        Range("B2").Style = "Normal"
End If


End Sub

 

[iyyi]

תעלה קובץ הדגמה