Koşullu silme

[seranonet]

Hücre De İskonto yazıyosa yazan hücrenin 1 hücre yanındaki hücrenin değerini nasıl silebilirim makro ile ?

Teşekkür ederim

 

[uzmanamele]

Merhaba

Makro her derde deva değildir.
Önce bu şekilde deneyin, beğenmezseniz makro ile çözüm bulunur.
http://www.excel.web.tr/f48/verilerin-silinmesi-t116767.html#post637256

 

[seranonet]

O şekilde olaması işimi görmeyecek ama yinede teşekkür ederim elimde bir makro mevcut ona ekleyecektim onu eğer makro ile yapabilirsek sevinirim

 

[asi_kral]

Hücre De İskonto yazıyosa yazan hücrenin 1 hücre yanındaki hücrenin değerini nasıl silebilirim makro ile ?

Teşekkür ederim

Merhaba
Boş bir module kopyalayın ve deneyin.

Option Explicit
Sub iskonto_1967()
'Konu       :   Hücredeki Bilgiye Göre Değer
'Mail       :   m.batu.1967@gmail.com
'Msn        :   m.batu.1967@hotmail.com.tr
'Skype      :   m.batu.1967
'Coder By   :   asi_kral_1967
Dim A As Long
For A = 1 To Cells(Rows.Count, "A").End(xlUp).Row
If WorksheetFunction.Proper(Cells(A, "A")) = "İskonto" Then
Cells(A, "B") = Empty
End If: Next
MsgBox "İşlem Tamamlandı" & vbLf & Application.UserName, _
vbInformation, "asi_kral_1967"
End Sub

 

[baydeniro]

asi_kral üstadım çok teşekkürler.