Makro kodlamada düzenleme

[recepkull]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("CN5")) Is Nothing Then UserForm1.Show
End Sub

Ustalar Userform ile bir tarih oluşturdum CN5 e tıklandığımda açılıyor ve formda seçtiğim tarihi CN5 e yazıyor buraya kadar herşey tamam.Benim yapmak istediğim CN5 e değilde butona bastığımda açılsın yine CN5 e yazsın istiyorum. Bunu yapmak için yukarıdaki kodda nasıl bir değişiklik yapmam gerekiyor ?

 

[işsiz123]

Merhabalar
Aşağıdaki gibi deneyiniz.

Private Sub CommandButton1_Click()
 UserForm1.Show
End Sub

 

[recepkull]

Olmadı maalesef. Hiç bir değişiklik olmadı.

 

[Ömer BARAN]

Merhaba.

Gerçek belgenin, küçük boyutlu ve özel bilgi içermeyen kopyası şeklinde hazırlayacağınız bir örnek belge (sıkıştırılmış olarak)
yüklerseniz daha hızlı sonuca ulaşırsınız.
Örnek belge yükleme yöntemine ilişkin kısa açıklama cevabımın altındaki İMZA bölümünde var.

 

[recepkull]

Sorunu çözdüm ustam teşekkür ederim