Active Sheet sorunu

[ismailka]

aşağıda yazılı makroda Sayfa1 seçim yaptığı için listbox a tıklayınca hücre değerini değiştirme istediğimde hep Sayfa1 deki hücrenin değeri değişiyor.
Örnek Sayfa2 de c5 hücresinde iken makro çalışınca sayfa1 deki değer değişiyor.

İşlem halindeki sayfayı nasıl gösterebilirim.

Private Sub ListBox1_Click()
ActiveCell.Value = ListBox1.Value
Unload Me
End Sub


Private Sub UserForm_Activate()
Application.ScreenUpdating = False
Sayfa1.Select
For i = 1 To Range("a65536").End(3).Row
Text = Cells(i, 1).Text
Me.ListBox1.AddItem Text
Next
End Sub

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Private Sub ListBox1_Click()
Sheets("Sayfa2").ActiveCell.Value = ListBox1.Value
Unload Me
End Sub

 

[ismailka]

Bu kodla hata verdi. Gerçi Sayfa2.Select yapıp daha sonra ActiveCell.Value yapınca oluyor.

Private Sub ListBox1_Click()
Sayfa2.Select
ActiveCell.Value = ListBox1.Value
Unload Me
End Sub


Fakat asıl istediğim şu o an hangi sayfadaysam o sayfadaki seçili hücreyi değiştirsin. Yani dinamik select yapması gerekiyor.

Yardımınız için teşekkürler.

 

[Korhan Ayhan]

Selamlar,

Örnek dosya eklermisiniz.

 

[uzmanamele]

merhaba

sayfa.select satırını silerek deneyiniz.

 

[ismailka]

Private Sub ListBox1_Click()
ActiveCell.Value = ListBox1.Value
Unload Me
End Sub




Private Sub UserForm_Activate()
Application.ScreenUpdating = False

For i = 1 To Sayfa1.Range("a65536").End(3).Row
Text = Sayfa1.Cells(i, 1).Text
Me.ListBox1.AddItem Text
Next

End Sub




Bu kodlarla çözdüm . İlginiz için teşekkürler