Hi,

Am Mon, 27 Aug 2012 05:49:55 -0700 (PDT) schrieb oercim:

If Sheets("Sayfa1").Cells(1, 1) ="TRUE" Then
Sheets("Sayfa1").Cells(1, 2) = 1
End If

try:
With Sheets("Sayfa1")
.Cells(1, 2) = -(Cells(1, 1) = True)
End With


Regards
Claus Busch
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2