Global degisken

[nurbek]

Arkadaslar,
Sheet ve userformlarda kullanilabilecek bir global degisken kullanmak istiyorum .
ama ne yazik ki hata veriyor.

sheet'lerin general kismina soyle tanimladim:

public row, col as integer


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 3 Then
UserForm1.Show
row = Target.row
col = Target.Column
End If
End Sub

userformda bir combobox ekleyerek change olayina:

Private Sub ComboBox1_Change()
Sheet1.Cells(col, row) = ComboBox1.Text //col ve row degiskenlerini burda tanimiyor.
End Sub

 

[Necdet]

Merhaba,

Col ve Row zaten VBA nın değişkenleridir. o yüzden tanımıyor.

 

[nurbek]

col ve row mycol ve myrow olarak degistirdim ama hata yine var.
kod soyle:

Public mycol, myrow As Integer



Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 3 Then
UserForm1.Show
myrow = Target.row
mycol = Target.Column
End If

End Sub


userformda bir combobox ekleyerek change olayina:

Private Sub ComboBox1_Change()
Sheet1.Cells(mycol, myrow) = ComboBox1.Text //col ve row degiskenlerini burda tanimiyor.
End Sub

 

[Merhum İdris SERDAR]

.

Option Explicit
Public mycol as Integer, myrow As Integer


şeklinde deneyin.

.

 

[Necdet]

Merhaba,

tam anlamadım ama değişkenleri bir modül içinde dener misiniz?

 

[nurbek]

Tesekkurler ama,
Option Explicit
Public mycol as Integer, myrow As Integer
olarak denedim ama hata degismedi.

Soru su sekilde: 3.sutuna tikladigimizda userform gorunecek ve user formda combobox olacak, eger comboboxtan bir sey sectiysek o deger de tikladigimiz hucreye yazilacak.

 

[nurbek]

Arkadaslar tesekkur ederim.
Modul ekledikten sonra
Public mycol as Integer, myrow As Integer
calisti.