İ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
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