Veri girildiğine yan tarafa yazmak

[teonet]

Merhaba
E sütununa veri girdiğimde c sütununa "x" yazmasını istiyorum. Koşulum şu c sütununda başka bir hücrede veri var ise onu silip sadece son veriyi yazdığım hücrenin karşında x yazmasını istiyorum. Bunu sağlayabilir miyiz?

Teşekkürler

 

[tascimehmet]

=EĞER(E1="";"";"x")

anlatımınızdan bu şekilde anladım denersiniz yada örnek dosya eklerseniz daha verimli olur

 

[teonet]

Sayın Mehmet Bey
İstediğim olay bu fakat üst satırlarda daha önceki verilerden dolayı yazılmış olan "x" silmesi gerekiyor. C sütununda sadece bir adet "x" olmalı. Bu şekilde düzenleme şansımız var mı?.

Teşekkür ederim.

 

[yanginci34]

buyrun

 

[tascimehmet]

Sub deneme()
Dim i As Integer
For i = 1 To Range("e2000").End(3).Row
 toplam = i + 1
         If Not Cells(i, 5) = "" Then
             Cells(i, 3) = "x"
          Else
               Cells(i, 3) = " "
          
         End If
Next i
toplam = toplam - 2
For a = 1 To toplam
    If Not Cells(a, 3) = " " Then
        Cells(a, 3) = " "
        End If
        Next a
End Sub

 

[teonet]

Sayın Yangıncı
desteğiniz için teşekkürler. üstteki hücrelerde bulunan "x" sildirme şansımız var mı? sütunda tek bir hücrede "x" olması lazım. o da en son veri yazdığım hücrenin karşısında.

Şimdiden teşekkür ederim.

 

[yanginci34]

buyrun

 

[tascimehmet]

ekte kayıtlıdır kod tanımlanmıştır.

 

[teonet]

Sayın Yangıcı ve Sayın Mehmet Bey çok teşekkür ederim. ikisi de tam istediğim gibi.
Elleriniz dert görmesin.

Saygılar