Ctrl İle seçilmiş satırları iptal etmek

[starmetin]

Ctrl Ýle seçilmiş satırları iptal etmek

Selam Arkadaşlar,
diyelim A1 den aşağı doğru A50' ye kadar değerler girili , bende bu değerler arasından bazılarını CTRL tuşuna basarak seçiyorum ve excel alt gösterge çubuğunda genel toplama bakıyorum yalnız işaretlemiş olduğum bir satırı nasıl tekrar işaretsiz hale getiririm...

örn: CTRL tuşuna basarak A1 , A5 , A8 , A9 satırlarını işaretledim ve excel alt göstergesi olan araç çubuğundan genel toplamını alıyorum , yalnız A1 satırını bu işlemden çıkartmak istersem ne yapabilirim...
yardımcı olabilecek arkadaşlara teşekkürler..
umarım sorum anlaşılmıştır...
hürmetler

 

[veyselemre]

Hücreler seçili iken, seçili alandan hangisini çıkarmak istiyorsan, kürsör o hücrede iken aşağıdaki makroyu çalıştırırsan, aktif hücre seçimden çıkacaktır.

[vb:1:a1a33bc3df]Sub Makro1()
Dim SECIMLER As Variant, adresler
SECIMLER = Split(Selection.Address, ",")
For x = 0 To UBound(SECIMLER)
If SECIMLER(x) = ActiveCell.Address Then SECIMLER(x) = ""
Next
For x = 0 To UBound(SECIMLER)
If SECIMLER(x) <> "" Then adresler = adresler & SECIMLER(x) & ","
Next
adresler = Left(adresler, Len(adresler) - 1)
Range(adresler).Select
End Sub[/vb:1:a1a33bc3df]

 

[starmetin]

teşekkürler veyselemre arkadaşım.. :hey: