Global değişken kullanmak.

[felix83]

Dim a As Integer
Set bul1 = Range("b4:b" & ActiveSheet.UsedRange.Rows.Count).Find(ListBox2.Value, Lookat:=xlWhole)
If Not bul1 Is Nothing Then
a = bul1.Row
End If

Arkadaşlar yukarıdaki kodu her yerde kullanmaktan bıktım a değişkenini listbox2 change olayı olarak veya click olarak kullanmak istiyorum.Tıklanmış veya seçilmiş olan listbox değerini araması gerekli ve bu değeri a değişkenine global olarak atasa çok iyi olur.
Veya satir bul isminde bir sub tanımlayıp herseferinde burdan call satirbul şeklinde hesaplatabilirm ama subdan çıkarken a değişkeninin değerini koruması gerek.

 

[Levent Menteşoğlu]

"a" değişkenini bir normal modülde aşağıdaki gibi tanımlayın.

public a As Integer