AccessTr.neT

ActiveCell.Activate

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

kapat = 1

ThisWorkbook.Sheets("ListboxSayfa").Range("A2:j" & Rows.Count).Clear

ActiveCell.Activate

End Sub

nerden soru soruluyor bulamadım sitede buraya yazıyorum kusura bakmayın

Maalesef çözüm olmadı

6. mesajdaki kodu denediğimde sorunsuz şekilde tıklanıyordu, önce sayfaya tıklamaya gerek kalmıyordu

Kodu ekledim ancak değişen bir şey yok. acaba kapatıp tekrar açsam mı

şimdi yine denedim
dosyayı indirip açtım
sadece bahsettiğim kodu ekledim kaydetme yada kapatma olayına hiç girmeden sizin 4. mesajdaki yönergelerinizi izledim
sayfaya tıklamadan sayfaya gitme butonuna bastım çalıştı

---

sadece ana sayfadaki ara-bul butonuna aşağıdaki kodu ekledim

Private Sub CommandButton1_Click()

[O2].Select '<== eklenen kod

UserForm1.Show

End Sub