Hücreye tıklayınca userform açılması

Katılım
17 Ağustos 2011
Mesajlar
70
Excel Vers. ve Dili
2010 türkçe
Değerli üstadlar ve sayın uzmanlar,

yapmak istediğim şeyin zor ve meşakkatli olduğunu biliyorum.
Fakat oldukça ihtiyacım var.

şöyle bir şey yapmak istiyorum, b hücresindeki sicil noya çift tıklayınca, hazırladığım user form çıksın. Tıklanan hücre dolu ise, mesela, "0001" ise aynı klasörde bulunan "0001" isimli excel dosyadaki bilgiler user formdaki ilgili kısımlara gelsin. Değişiklik yapmam halinde kaydet butonuna basınca bu değişiklikler ilgili hücrelerde de değişiklik yapsın. Eğer b hücresi boş ise, user form boş açılsın, sicil no kısmına yazılacak no ile aynı isimde sayfa oluşturulsun ve textboxlara yazacağım bilgiler ilgili sayfadaki hücrelere yerleşsin.

Enazından örnek birer kod yazarsın gerisini ben getiririm diye düşünüyorum.

Yardımlarınız için şimdiden teşekkür ederim.
 
Katılım
17 Ağustos 2011
Mesajlar
70
Excel Vers. ve Dili
2010 türkçe
Baya sıkıntılı bir soru olduğunun farkındayım. En azından hücreye tıklayınca form nasıl açılır. Bu konuda yardımcı olursanız çok sevinirim.
 

hamitcan

Uzman
Uzman
Katılım
1 Temmuz 2004
Mesajlar
7,749
Excel Vers. ve Dili
Excel 2019 Türkçe
Aşağıdaki kodu deneyin.
Kod:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Row = 1 Then Exit Sub
    If Target.Column = 2 Then
        UserForm1.Show 0
    Else
        Unload UserForm1
    End If
End Sub
 
Katılım
27 Şubat 2008
Mesajlar
307
Excel Vers. ve Dili
Office 2016
sayfa 3 deki son boş satır tıklandığında userfonm3 görünsün nasıl yapılabilir
 

hamitcan

Uzman
Uzman
Katılım
1 Temmuz 2004
Mesajlar
7,749
Excel Vers. ve Dili
Excel 2019 Türkçe
sayfa 3 deki son boş satır tıklandığında userfonm3 görünsün nasıl yapılabilir
A sütununda verileriniz olduğunu kabul ettim.

Kod:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    s =[a65536].end(3).row +1
    if cells(s,1).address = target.address then
        UserForm1.Show 0
    Else
        Unload UserForm1
    End If
End Sub
 
Katılım
27 Şubat 2008
Mesajlar
307
Excel Vers. ve Dili
Office 2016
teşekkürler
 
Üst