makro ile aktif hücre satırında silme işlemi

[kocaeliartvin]

Selamlar.

makro ile, aktif hücrenin bulunduğu satırdan A, B, ve D sütunlarındaki değerleri silmek istiyorum.

yani, bir hücreye tıkladıktan sonra makroyu çalıştırarak o hücre satırının tümünü değil de A,B ve D sütünlarını silmek istiyorum.

Başka bir konuda soru olarak sormuştum fakat fonksiyonlar bölümü olduğu için burada yeni konu açmak daha doğru diye düşündüm.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu kullanabilirsiniz.

Option Explicit
 
Sub SİL()
    Cells(ActiveCell.Row, "A").ClearContents
    Cells(ActiveCell.Row, "B").ClearContents
    Cells(ActiveCell.Row, "D").ClearContents
End Sub

 

[kocaeliartvin]

Çok teşekkür ettim korhan hocam. ellerinize sağlık

 

[umit9]

selamlar;
ben daha önceden yazdığınız bir konu ile silme konusunu nasıl birleştirebiliriz onu soracaktım. şimdi daha önceden tariih atama ile ilgili bi konu vardı ve çözümü kod şeklinde verilmiş

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [E:E]) Is Nothing Then Exit Sub
If Target.Cells.Count > 1 Then GoTo Son
On Error Resume Next
If Target <> Empty Then
Application.EnableEvents = False
Target.Offset(0, 1).Value = Date
Target.Offset(0, 1).NumberFormat = "dd.mm.yyyy"
End If
Son: Application.EnableEvents = True
End Sub

şeklinde ama aktif hücreyi sildiğimizde atanan tarihinde silinmesini istiyorum.
ikisini nasıl birleştirebiliriz.
ilginize tekeşşürler.

 

[Necdet]

Merhaba,

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [E:E]) Is Nothing Then Exit Sub
    If Target.Cells.Count > 1 Then GoTo Son
    On Error GoTo Son
    If Target <> Empty Then
        Application.EnableEvents = False
        Target.Offset(0, 1).Value = Date
        Target.Offset(0, 1).NumberFormat = "dd.mm.yyyy"
    Else
        Target.Offset(0, 1) = ""
    End If
    Application.EnableEvents = True
Son:
End Sub

 

[umit9]

Merhaba,

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [E:E]) Is Nothing Then Exit Sub
    If Target.Cells.Count > 1 Then GoTo Son
    On Error GoTo Son
    If Target <> Empty Then
        Application.EnableEvents = False
        Target.Offset(0, 1).Value = Date
        Target.Offset(0, 1).NumberFormat = "dd.mm.yyyy"
    Else
        Target.Offset(0, 1) = ""
    End If
    Application.EnableEvents = True
Son:
End Sub

teşekkürler üstad

 

[umit9]

bi konuda daha yardım istiyeceğim...
bu makroyu bi excel deki bütün sayfalara yapmak için kod u thisworkbook olan yeremi yapıştıracaz. eğer öyleyse yapıyorum ama hiç bi sayfada çalışmıyor illa her sayfaya ayrı ayrı yazmak gerekiyor...

hiç bi zorumluluğu olmadan burda bizlere yardım eden herkese çok teşekkürlerr. çok güzel bi forum olmuş...

 

[Necdet]

Merhaba,

Kodu aşağıdaki şekilde ThisWorkbook un sayfasına kopyalayıp deneyiniz.

Her sayfada çalışacaktır, ancak kodun çalışmasını istemediğiniz sayfalar varsa aşağıda kırmızı ile belirtilen sayfa isimlerini yazınız.

Örnekte abc ve Sayfa3 isimli sayfalar dışınrda kod çalışacaktır.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Intersect(Target, [E:E]) Is Nothing Then Exit Sub
    If Target.Cells.Count > 1 Then GoTo Son
    If ActiveSheet.Name = "[B][COLOR=red]abc[/COLOR][/B]" Or ActiveSheet.Name = "[COLOR=red][B]Sayfa3[/B][/COLOR]" Then Exit Sub
    On Error GoTo Son
    If Target <> Empty Then
        Application.EnableEvents = False
        Target.Offset(0, 1).Value = Date
        Target.Offset(0, 1).NumberFormat = "dd.mm.yyyy"
    Else
        Target.Offset(0, 1) = ""
    End If
    Application.EnableEvents = True
Son:
End Sub