- Katılım
- 16 Nisan 2005
- Mesajlar
- 353
Selam arkadaşlar
her hangi visual basic kodu aynı sayfa için yazılmış ise.
yeni bir module'de nasıl yazılır ????
Ã?R:
bu formülü yeni bir module nasıl aktarılır. ??
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Cells(23, 4).Address And Cells(23, 4) <> "" Then
If Right(Target.Text, 1) = "=" Then
a = Left(Target.Text, Len(Target.Text) - 1)
Else
ry = Application.WorksheetFunction.Find("=", Target.Text, 1)
a = Left(Target.Text, ry - 1)
End If
If IsError(Evaluate(a)) = False Then Target = a & "=" & Evaluate(a)
End If
End Sub
her hangi visual basic kodu aynı sayfa için yazılmış ise.
yeni bir module'de nasıl yazılır ????
Ã?R:
bu formülü yeni bir module nasıl aktarılır. ??
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Cells(23, 4).Address And Cells(23, 4) <> "" Then
If Right(Target.Text, 1) = "=" Then
a = Left(Target.Text, Len(Target.Text) - 1)
Else
ry = Application.WorksheetFunction.Find("=", Target.Text, 1)
a = Left(Target.Text, ry - 1)
End If
If IsError(Evaluate(a)) = False Then Target = a & "=" & Evaluate(a)
End If
End Sub