2 Sütun içeriğini nasıl değiştiririz?

[pitfall]

Merhaba,

A1 sütununa bir değer yazdığımda B1 sütunu, B1 Sütununa bir değer yazdığımda A1 sütunun boşalmasını istiyorum. Bunu nasıl yapabilirim.


Yardımcı olursanız sevinirim.
Teşekkürler

 

[hamitcan]

Sayfa1'in kod kısmına ekleyin.

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
        If Target.Column = 1 Then Columns(2).Clear
    Application.EnableEvents = True
    Application.EnableEvents = False
        If Target.Column = 2 Then Columns(1).Clear
    Application.EnableEvents = True
End Sub

 

[pitfall]

Yardımlarınız için teşekkür ederim.
Bunu tek sütunluk değilde sayfanın tamamı için nasıl yapabilir.Tamamı derken a1-b1,a2-b2,a1-b3 c1-d1,c2-d2,c3-d3 gibi
Formulü çoğaltıp sütun isimlerini değiştirdim denedim ama olmadı.

Tekrar Teşekkür ederim.

 

[hamitcan]

Bu şekilde deneyin.

 Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
        If Target.Column = 1 Then Columns.Clear
    Application.EnableEvents = True
    Application.EnableEvents = False
        If Target.Column = 2 Then Columns.Clear
    Application.EnableEvents = True
    Application.EnableEvents = False
        If Target.Column = 3 Then Columns.Clear
    Application.EnableEvents = True
    Application.EnableEvents = False
        If Target.Column = 4 Then Columns.Clear
    Application.EnableEvents = True
End Sub

 

[pitfall]

Teşekkürler ama bu şekilde denediğimde hücre içerisine ne yazarsam aynı hücre içeriğini siliyor.Hücre boş kalıyor.

 

[hamitcan]

Böyle dener misiniz ?

 Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
        If Target.Column = 1 Then Range("b:z").Clear
    Application.EnableEvents = True
    Application.EnableEvents = False
        If Target.Column = 2 Then Range("a:a,c:z").Clear
    Application.EnableEvents = True
    Application.EnableEvents = False
        If Target.Column = 3 Then Range("a:b,d:z").Clear
    Application.EnableEvents = True
    Application.EnableEvents = False
        If Target.Column = 4 Then Range("a:c,e:z").Clear
    Application.EnableEvents = True
End Sub

 

[pitfall]

Yok yine aynı sorun oluyor.
A,B,C,D Kollarından birine dikey olarak yazabiliyor, ama yatay yazdığımda hepsini siliyor sadece son yazdıgım kalıyor.

Teşekkürler

 

[hamitcan]

Son yazdıklarınızdan birşey anlamadım, bir dosya ekleyin üzerinden çalışalım.

 

[pitfall]

Merhaba,

Hafta sonu olduğu için dosya yanımda değil. Ufak bir dosya yaptım.
Yapmaya çalıştığım şey A2 hücresini B2 hücresine aldığımda, A2 hücresi boş kalacak ve ödeme tutarı (D2) otomatik olarak borç hesabına (E2) geçecek.

Böyle bir şey yapılabilir mi?

Teşekkürler

 

[Necdet]

Merhaba,

Bana pek mantıklı gelmedi, ödeme yapılacak tarih bilgi amaçlı kalabilirdi. Aşağıdaki kodları deneyiniz. Uygulama sırasında eksik gedik olabilir.

Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Intersect(Target, [B:B]) Is Nothing Or Target.Row < 2 Then Exit Sub
    Cells(Target.Row, "E") = Cells(Target.Row, "D")
    Cells(Target.Row, "D").ClearContents
    Cells(Target.Row, "A").ClearContents
    
End Sub

 

[pitfall]

Merhaba,

Yardımlarınız için çok teşekkür ederim. Ödeme yapılacak tarih içinde dediğin gibi de mantıklı geldi o şekilde yapabilirim.

Ödeme yapılan tarihi silince borç hesabı da siliniyor bunu engelleyebilirmiyiz?

Hakkınızı helal edin tekrar elinize sağlık.
Teşekkürler

 

[Muzaffer Ali]

Aşağıdaki kodları deneyin

Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Not Range("E" & Target.Column).Value = "" Or Intersect(Target, [B:B]) Is Nothing Or Target.Row < 2 Then Exit Sub
    Cells(Target.Row, "E") = Cells(Target.Row, "D")
    Cells(Target.Row, "D").ClearContents
    Cells(Target.Row, "A").ClearContents
    
End Sub