şartlı silme macrosu

[ThEeNCi]

Şartlara göre hücre silme macrosu formüller etkilenmeden nasıl yapabilirim Teşekkürler

 

[rabbace]

Merhaba,

İlla makro olmasa da olur derseniz F2 hücresine;

=EĞER(YADA(C2="POM";C2="FARK");"";1)

Makro ile isterseniz de;

Sub deneme()
'
' deneme Makro
'

'
    Range("F2").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(OR(RC[-2]=""POM"",RC[-2]=""FARK""),"",1)"
    Range("F2").Select
    Selection.AutoFill Destination:=Range("F2:F6")
    Range("F2:F6").Select
End Sub

 

[ThEeNCi]

Teşekkürler ama f hücresi silinecekti

 

[ThEeNCi]

hata veriyor düzeltme yapmışsınız ama

 

[rabbace]

hata veriyor düzeltme yapmışsınız ama

Sub deneme()
'
' deneme Makro
'

'
    Range("F2").Select
    ActiveCell.FormulaR1C1 = "=IF(OR(RC[-3]=""POM"",RC[-3]=""FARK""),"""",1)"
    Range("F2").Select
    Selection.AutoFill Destination:=Range("F2:F6")
    Range("F2:F6").Select
    Range("A2").Select
End Sub

Bunu dener misiniz.

 

[ThEeNCi]

Teşekkürler

 

[ThEeNCi]

Ama burda bir hata oldu ben örnek olsun diye 1 yazdım o değişken

 

[rabbace]

O değişkenleri nereden çekiyor? Siz mi yazıyorsunuz? Bir kuralı var mı? Varsa eğer belirtirseniz ona göre düzeltme yapalım

 

[ThEeNCi]

bir kuralı yok evet başka sayfadan çekiyor