Etki Alanı Koşullu Makro

[baydeniro]

Merhaba arkadaşlar. Rakam dizisinde bazıları normal yazılı bazıları ise virgül yerine nokta ve uzantısı TL olarak yani alfanümerik olarak yazılı. Bir makro ile düzeltebiliyorum ancak bu makronun sadece içinde "TL" yazılı hücrelerde etki etmesi sağlanabilir mi ? Örnek dosya ekte.

 

[baydeniro]

Merhaba arkadaşlar. Rakam dizisinde bazıları normal yazılı bazıları ise virgül yerine nokta ve uzantısı TL olarak yani alfanümerik olarak yazılı. Bir makro ile düzeltebiliyorum ancak bu makronun sadece içinde "TL" yazılı hücrelerde etki etmesi sağlanabilir mi ? Örnek dosya ekte.

 

[kelkitli]

Selamlar,
Sanırım şöyle olabilir,
Private Sub CommandButton1_Click()
If Range("E1").NumberFormat = "#,##0.00 $" Then Range("F1") = "merhaba"
End Sub

 

[zafer]

Merhaba

Sub toplam()
On Error Resume Next
son = Cells(65536, 3).End(xlUp).Row
For i = 1 To son
x = Application.WorksheetFunction.Search("TL", Cells(i, 3).Value)
If x <> Empty Then
sizin kodlarınız
.......
........
End If
Next
End Sub

 

[baydeniro]

Merhaba sayın Zafer. Benim kodda bir sorun var herhalde. içinde TL olsun olmasın hepsine uyguluyor.

 

[zafer]

Merhaba

Aşağıdaki gibi denermisiniz.

Sub toplam()
On Error Resume Next
son = Cells(65536, 3).End(xlUp).Row
For i = 1 To son
[B]x=""[/B]
x = Application.WorksheetFunction.Search("TL", Cells(i, 3).Value)
If x <> "" Then
sizin kodlarınız
.......
........
End If
Next
End Sub