değer göre hücre silme ?

[igultekin2000]

iyi akşamlar; H sütundaki formülle oluşan 1 değeri olduğunda o hücrenin soldan ikinci hücrenin (F) sütunu silinmesi gibi bir makroya ihtiyacım var. Ayrıca kopla yapıştır, alttaki boş hücreye kopyala göreli başvuruları kullan gibi şart gerektirmeyen, işlemleri yapabiliyorum ama , bu işlemler de yapılabilir mi?

 

[Korhan Ayhan]

Döngüleri incelemelisiniz. Koşullu işlemlerinizde size pratiklik kazandıracaktır.

Sub Sil()
    Dim Son As Long, Veri As Range
    
    Son = Cells(Rows.Count, 1).End(3).Row
    
    For Each Veri In Range("H2:H" & Son)
        If Veri.Value = 1 Then
            Veri.Offset(0, -2).ClearContents
        End If
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[AdemCan]

Merhaba,
Bende şöyle bir şey hazırlamıştım, alternatif olsun

E ve F sütunu birbirine eşit olduğunda H sütununda 1 yazdığına göre,
E ve F birbirine eşit olursa F sütunundaki verileri siler.

Sub F_sutununu_sil()
For x = 2 To Cells(Rows.Count, "E").End(3).Row
If Cells(x, "E").Value = Cells(x, "F").Value Then Cells(x, "F").ClearContents
Next x
End Sub

 

[Korhan Ayhan]

İşin özünde döngüler var. İki farklı alternatif oldu...

 

[igultekin2000]

Döngüleri incelemelisiniz. Koşullu işlemlerinizde size pratiklik kazandıracaktır.

Sub Sil()
    Dim Son As Long, Veri As Range
   
    Son = Cells(Rows.Count, 1).End(3).Row
   
    For Each Veri In Range("H2:H" & Son)
        If Veri.Value = 1 Then
            Veri.Offset(0, -2).ClearContents
        End If
    Next
   
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

Teşekkür ederim, sorunsuz çalışor, iyi çalışmalar.

 

[igultekin2000]

Merhaba,
Bende şöyle bir şey hazırlamıştım, alternatif olsun

E ve F sütunu birbirine eşit olduğunda H sütununda 1 yazdığına göre,
E ve F birbirine eşit olursa F sütunundaki verileri siler.

Sub F_sutununu_sil()
For x = 2 To Cells(Rows.Count, "E").End(3).Row
If Cells(x, "E").Value = Cells(x, "F").Value Then Cells(x, "F").ClearContents
Next x
End Sub

Teşekür ederim alternatif için , ayrıca fikir verdi, formüle gerek kalmadan da işlem yapma imkanı oldu. iyi çalışmalar.

 

[AdemCan]

Merhaba, rica ederim, Sizede iyi çalışmalar.