Adres belirleme

[k0081]

Merhaba arkadaşlar;

Aşağıda vermiş olduğum koddaki kırmızı ile işaretlediğim hücre adreslerini; B19:E325 aralığı olarak nasıl değiştirebilirim ?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim a As String, b As String
On Error Resume Next
[COLOR="Red"]a = Replace(Replace(Selection.Address, "B", "D"), "E", "D")[/COLOR]
[COLOR="red"]b = Replace(Selection.Address, "B", "E")[/COLOR]
Range("D16") = Evaluate("=SUMPRODUCT((" & a & "*" & b & "))")
Range("E15") = Evaluate("=SUMPRODUCT((" & a & "+" & b & "-" & a & "))")
End Sub

yardımcı arkadaşa şimdiden teşekkürler..

 

[Ömer]

Merhaba,

Tam olarak yapmak istenen anlaşılmıyor. Konuyu daha detaylı açıklarmısınız.

 

[k0081]

Merhaba,

Tam olarak yapmak istenen anlaşılmıyor. Konuyu daha detaylı açıklarmısınız.

macro nun çalışma alanı adresini B19 ile E325 yapmak istiyorum. yani sadece bu alanda çalışsın.. bu adresin haricinde bir hücreye tıkladığımda çalışmasın.

Mesela: O sutununda bir hücre seçtiğimde de çalışıyor.. bu olmasın istiyorum. B19:E325 aralığındaki hücrelerde çalışsın..

 

[Ömer]

Kodun başlık satırından hemen sonra aşağıdaki satırı ilave edin.

If Intersect(Target, Range("B19:E325")) Is Nothing Then Exit Sub

.

 

[k0081]

Kodun başlık satırından hemen sonra aşağıdaki satırı ilave edin.

If Intersect(Target, Range("B19:E325")) Is Nothing Then Exit Sub

.

Ömer hocam çok teşekkür ettim, Tamamdır..