SEÇİLİ HÜCREYİ SİLDİRME

[attrd]

İyi günler makro ile seçili hücreyi silen ve paralelinde sabit olarak B2:F17 aralığını silip seçili hücre rengini değiştiren makrom var , bu formül de K15,L15,M15,O15 hücrelerinden biri seçili iken , bu hücrelerden birini silince ( makro çalıştırılınca ) ayrıca K21 hücresinede '' EKG '' yazmasını istiyorum , yardımcı olursanız çok sevinirim
mevcut kodum :

Sub HUCRETemizle()
'SECİLİ HÜCREYİ TEMİZLEME
Application.ScreenUpdating = False
Selection.ClearContents
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark2
.TintAndShade = -9.99786370433668E-02
.PatternTintAndShade = 0
End With
Range("B2:F17").ClearContents
Range("L21").Select
Application.ScreenUpdating = False
End Sub

 

[Korhan Ayhan]

Deneyiniz.

Sub HUCRETemizle()
    'SECİLİ HÜCREYİ TEMİZLEME
    If Not Intersect(ActiveCell, Range("K1:K14,L5")) Is Nothing Then Exit Sub
    
    Application.ScreenUpdating = False
    With Selection.Interior
        Selection.ClearContents
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark2
        .TintAndShade = -9.99786370433668E-02
        .PatternTintAndShade = 0
    End With
    Range("B2:F17").ClearContents
    Select Case ActiveCell.Address(0, 0)
        Case "K15", "L15", "M15", "O15": Range("K21") = "EKG"
    End Select
    Range("L21").Select
    Application.ScreenUpdating = True
End Sub

 

[attrd]

TESEKURLER HOCAM

 

[attrd]

Deneyiniz.

Sub HUCRETemizle()
    'SECİLİ HÜCREYİ TEMİZLEME
    Application.ScreenUpdating = False
    With Selection.Interior
        Selection.ClearContents
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark2
        .TintAndShade = -9.99786370433668E-02
        .PatternTintAndShade = 0
    End With
    Range("B2:F17").ClearContents
    Select Case ActiveCell.Address(0, 0)
        Case "K15", "L15", "M15", "O15": Range("K21") = "EKG"
    End Select
    Range("L21").Select
    Application.ScreenUpdating = False
End Sub

PEKİ HOCAM bu makro ıle K1:K15 aralığı ve L5 hücresinde sil işleminin yapılmaması için ne yaparız yani bu sil makrosu bu hücrelerde calısmasın

 

[Korhan Ayhan]

İlk nesajınızda K15 hücresi silinince işlem olmasını talep etmiştiniz. Şimdi K15 hücresinde çalışmasın diyorsunuz. Talepleriniz çelişiyor. Ben aralığı K1:K14 olarak ayarladım. Siz kendi dosyanıza göre aralıkları düzenlersiniz. Önceki önerdiğim kodu güncelledim. Deneyiniz.

 

[attrd]

İlk nesajınızda K15 hücresi silinince işlem olmasını talep etmiştiniz. Şimdi K15 hücresinde çalışmasın diyorsunuz. Talepleriniz çelişiyor. Ben aralığı K1:K14 olarak ayarladım. Siz kendi dosyanıza göre aralıkları düzenlersiniz. Önceki önerdiğim kodu güncelledim. Deneyiniz.

HOCAM COK TESEKUR EDERIM iyiki varsınız K da hata yapmısım duzelttım