Çapraz Hücre Dolgusuna Göre Değer Atama

[waytooraider]

Değerli Hocalarım,

Para Biriminin Altı Boş hücre, Yanı Çapraz Dolgulu İse O Para Birimi S Stununa Yazılsın
Gibi bir şey yapılabilirmi.

O çapraz dolguarı filtreyemedim.Filtreleyebilsem değer atayıp para birimlerini tanımlayabilirdim.

Yardımlarınız için çok teşekür ediyorum.

 

[apocalyt]

şunu deneyin..

Sub daylight()
For x = 2 To 1000
If Range("c" & x).Borders(xlDiagonalDown).LineStyle <> xlNone _
Or Range("j" & x).Borders(xlDiagonalDown).LineStyle <> xlNone _
Or Range("p" & x).Borders(xlDiagonalDown).LineStyle <> xlNone Then
If Range("c" & x).Borders(xlDiagonalDown).LineStyle = xlNone Then
Cells(x, "s") = "TL"
ElseIf Range("j" & x).Borders(xlDiagonalDown).LineStyle = xlNone Then
Cells(x, "s") = "EUR"
ElseIf Range("p" & x).Borders(xlDiagonalDown).LineStyle = xlNone Then
Cells(x, "s") = "USD"
End If
End If
Next x
MsgBox "İşleminiz bitmiştir.", vbInformation
End Sub

 

[waytooraider]

Çok Teşekkürler.Elinize Sağlık

 

[apocalyt]

rica ederim..