Koşullu Biçimlendirme İle Hücre Silmek

[iplikci_80]

Arakdaşlar yapmak istediğim şey EK'te sunduğum belgenin Z3 Hücresine bir tarih girildiğinde a3 hücresini silip x3 hücresine, b3 hücresini silip y3 hücre kopyalasın isitiyorum bunu koşullu biçimlendirme ile yapmam mümkün mü acaba HERKESE TEŞEKKÜRLER

 

[Korhan Ayhan]

Selamlar,

Eğer amacınız gerçekten hücre içindeki veriyi silip başka bir hücreye aktarmaksa koşullu biçimlendirme ile yapmanız mümkün değildir.

 

[iplikci_80]

Peki bunu nasıl yapabiliriz bu konuda bir fikriniz varmı ? Yardımcı olabilirmisizin lütfen ayırdığınız zamana ve emek için TEŞEKKÜRLER

 

[Korhan Ayhan]

Selamlar,

Sayfanızın kod bölümüne aşağıdaki kodu uygulayarak silme ve aktarma işlemini yapabilirsiniz.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("Z3:Z65536")) Is Nothing Then Exit Sub
    If IsDate(Target) Then
        Cells(Target.Row, "A").Copy Cells(Target.Row, "X")
        Cells(Target.Row, "B").Copy Cells(Target.Row, "Y")
        Cells(Target.Row, "A").ClearContents
        Cells(Target.Row, "B").ClearContents
    End If
End Sub

 

[iplikci_80]

herşey için teşekkürler emeğinize sağlık yalınz kodu belgeye uygulayamadım bu konudada yardımcı olabilirmisiniz lütfen.

 

[Korhan Ayhan]

Selamlar,

Yapmanız gereken işlem çok basit.

"Personel Bilgileri" isimli sayfanızın ismi üzerinde sağ klik yapın.
Açılan pencereden "Kod Görüntüle" seçeneğini seçin.
Kod editörü açılacaktır. Verdiğim kodu bu pencereye uygulayın.

 

[iplikci_80]

çok teşekkürler ALLAH RAZI OLSUN

 

[tirEdsOuL]

Selamlar,

Sayfanızın kod bölümüne aşağıdaki kodu uygulayarak silme ve aktarma işlemini yapabilirsiniz.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("Z3:Z65536")) Is Nothing Then Exit Sub
    If IsDate(Target) Then
        Cells(Target.Row, "A").Copy Cells(Target.Row, "X")
        Cells(Target.Row, "B").Copy Cells(Target.Row, "Y")
        Cells(Target.Row, "A").ClearContents
        Cells(Target.Row, "B").ClearContents
    End If
End Sub

bunun tam tersini yani, Z3 hücresindeki bi veri silindiğinde A3 ve B3 hücresindeki verileri de nasıl sildirebiliriz ?

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu denermisiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("Z3:Z65536")) Is Nothing Then Exit Sub
    If Target.Cells.Count > 1 Then Exit Sub
    On Error GoTo Son
    Application.EnableEvents = False

    If Target = "" Then
        Cells(Target.Row, "A").ClearContents
        Cells(Target.Row, "B").ClearContents
    End If
 
Son: Application.EnableEvents = True
End Sub

 

[tirEdsOuL]

hocam benim durum biraz karışık bi hal aldı, http://www.excel.web.tr/f50/satyr-silince-formul-hata-veriyor-t108271/sayfa2.html#post589849 bu konuya bakabilirseniz sevinirim..