Mause ile tıkladığımda satır silinsin

[ASLAN7410]

Merhaba hayırlı Ramazanlar.

Ekte gönderdiğim örnekte C sütununda isimler var, E sütunundada başka excel dosyalasından formülle getirdiğimiz isimler var.

Benim istediğim C sütunundaki isimlerle E sütunundaki isimleri mause ile tek tek silmek istiyorum.

Yapmak istediğim eşit olmayan satırların başında bulunan rakamlara bir tıklamakla bu satırın silinmesini istiyorum.

Makronun sayfadaki hücrelerde çalışmasını istemiyorum. Sadece satırların başlarındaki rakamlara tıkladığımda makro çalışsın istiyorum.

Yardımcı olur musunuz?
.

 

[simyaci64]

sayfanın içine aşağıdaki kodu yapıştırırsanız hangi hücreyi çift tıklarsanız siler

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  ActiveCell.Select
    Selection.Delete Shift:=xlUp
    ActiveCell.Offset(3, 0).Rows("1:1").EntireRow.Select
    ActiveCell.Offset(3, 0).Range("A1").Activate
    Selection.Delete Shift:=xlUp
End Sub

 

[ASLAN7410]

Sayın simyaci64 ilginiz için çok teşekkür ediyorum, hücrenin değil satırın silinmesini istiyorum.

Ayrıca çift tıklamakla değil, sadece satır başlarındaki rakamları tıkladığımda silinmesini istiyorum.

Bu şekilde yardımcı olabilir misiniz?

 

[simyaci64]

çift tıkla komple satırı silmeyi yapabildim.

[Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Range(ActiveCell, ActiveCell.End(xlDown)).Select
Selection.EntireRow.Select
Rows(ActiveCell.Row).Select
Selection.ClearContents
Selection.Delete Shift:=xlUp
  
End Sub
/CODE]

 

[simyaci64]

çift tıkla komple satırı silmeyi yapabildim.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Range(ActiveCell, ActiveCell.End(xlDown)).Select
Selection.EntireRow.Select
Rows(ActiveCell.Row).Select
Selection.ClearContents
Selection.Delete Shift:=xlUp
  
End Sub

 

[ASLAN7410]

Sayın simyaci64 ellerinize sağlık çok teşekkür ediyorum, kod gayet güzel çalışıyor.

Ancak benim istediğim gibi olmadı, yinede çok teşekkür ederim.

 

[Korhan Ayhan]

Deneyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Cells(Target.Row, "C") <> Cells(Target.Row, "E") Then
        Target.EntireRow.Delete xlUp
    End If
End Sub

 

[ridvanucok]

Deneyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Cells(Target.Row, "C") <> Cells(Target.Row, "E") Then
        Target.EntireRow.Delete xlUp
    End If
End Sub

Korhan Hocam'ın gönderdiği sanırım işini görecektir yanlız, bu işlemi kullanım amacınız nedir? Bu işlemle ne yapacaksınız? Merak ettiğimden soruyorum

 

[ASLAN7410]

Sayın Korhan Bey, ilginiz için çok teşekkür ediyorum, kodlar gayet güzel çalışıyor.

Benim istediğim satırların başlarında bulunan rakamlara tıkladığımızda satırların silinmesini istemiştim, sayfadaki hücrelere tıkladığımda kodlar çalışmasın, bu şekilde kod yazılabilir mi?

 

[ASLAN7410]

Sayın ridvanucok, ayrı ayrı sistemden veri aldığım için verileri karşılaştırmak istiyorum, veriler çok olduğu için hızlı bir şekilde farklı satırları silmek istediğimden bu şekilde bir kod istemiştim.

 

[Korhan Ayhan]

İstediğiniz şekilde kod yazılamaz. Sayfanın olaylarını kullanabilirsiniz.

 

[ASLAN7410]

Çok teşekkür ediyorum, Sayın Korhan Bey.

Hayırlı geceler, hayırlı çalışmalar diliyorum.