Bana parametre gibi gdldi
direk kodlaribatarsaniz bakalimm.
Mobil yazildi,yazim hatasi varsa affola.
Private Sub CommandButton1_Click()
With Worksheets("Sheet2")
For i = 2 To 50
myString = Sheet2.Cells([i], J).Value
newString = Replace(myString, "$", "")
MsgBox newString
Next i
End With
End Sub
soyle bisiler yaptim hata aldim