satır numarası sütün numarasına eşit olunca

[quesh]

Arkadaşlar aşağıdaki kodda ; Compile Error: Wrong Number of arguments or invalid property assigment hatası alıyorum. nedeni ne olabilir sizce?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveCell.Row = a
ActiveCell.Column = b
If a = b Then
MsgBox "asdasdad"
End If
End Sub

 

[leumruk]

Merhaba,
a ve b'ye veri tanımlamamış olabilir misiniz?
Kodların ilk satırına a="deneme1", b="deneme2" gibi veri tanımlamalısınız. Ayrıca Activecell.row'a değer eşitleyemezsiniz. Activecell=a şeklinde olmalı. Tabi ilk yazdığım düzeltmeyi yatıktan sonra

 

[quesh]

Merhaba,
a ve b'ye veri tanımlamamış olabilir misiniz?
Kodların ilk satırına a="deneme1", b="deneme2" gibi veri tanımlamalısınız. Ayrıca Activecell.row'a değer eşitleyemezsiniz. Activecell=a şeklinde olmalı. Tabi ilk yazdığım düzeltmeyi yatıktan sonra

çok pardon .kodun başında
for a=1 to 5
for b=1 to 5
ve sonunda
end if
next a
next b

var kodun

 

[leumruk]

O zaman ikinci kısıma dikkat edin activecell.row ve activecell.column yerine sadece activecell yazmalısınız.

 

[quesh]

şunu yapmak istiyorum. satır numarası sütün numarası eşit ola bir hücre seçildiğinde bir uyarı mesajı verilsin.

 

[leumruk]

Bunun için döngü kurmanıza gerek yok diğer satırları silip bunu ekleyin.

if target.column=target.row then
msgbox "eşit"
end if

 

[Husgvarna]

şunu yapmak istiyorum. satır numarası sütün numarası eşit ola bir hücre seçildiğinde bir uyarı mesajı verilsin.

 Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 a = ActiveCell.Row
 b = ActiveCell.Column
If a = b Then
MsgBox "asdasdad"
End If
End Sub

Matrix ile alakalı ise "a1","b2","c3",d4,"e5"......

 

[quesh]

satır numarası sütün numarası eşit olunca

teşekkürler... ben activecell.row=a diyordum a=activecell.row diyecepime

cok sagolun

 Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 a = ActiveCell.Row
 b = ActiveCell.Column
If a = b Then
MsgBox "asdasdad"
End If
End Sub

Matrix ile alakalı ise "a1","b2","c3",d4,"e5"......