Hücrede Tarih Yazıyorsa Düğme Görünür Olsun

[neo]

:hey: Herkese İyi Geceler

B3 ten başlaya ve devam eden satırlara tarih giriyorum tarih girdiğim de E sütünunda da dügmeler var Hangi satıra tarih yazarsam o satırdaki düğme görünür olsun istiyorum Düğmeye de tıkladığımda Userform2 aktif oluyor...

Ã?rnek Dosya ekte Yardımlarınızı bekliyorum Üstatlar

saygılarımla

 

[Levent Menteşoğlu]

Sorunuz için denetim araç kutusundan command buton kullanmak da kolaylık sağlayacaktır. Commandbutton kullanılmış ekteki örneği inceleyin.

 

[neo]

Sayın leventm

yardımınız için çok teekkurederim bu Com.butonları tektek eklemeden yapmanın bir yolu yok mu şünki bu satırlar oldukça uzun olacak bir ricam daha olacak userform a uzerindeki lisbox a çıft tıkladığımda hücreye aktaramazmıyız acaba yada hücreye çıft tıkalandığında userform açılamazmı şimdiden çok teşekkurederim yardımlarınız için

 

[Levent Menteşoğlu]

Aşağıdaki kodu işlem sayfasının kod sayfasına kopyalayın. B sütununda eğer hücrede tarih varsa bu hücreyi çift tıkladığınızda userform açılacaktır.

[vb:1:5648ca20ef]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Intersect(Target, [b:b]) Is Nothing Then Exit Sub
If Target <> 0 Then UserForm2.Show
End Sub
[/vb:1:5648ca20ef]

Listboxtaki veriyi hangi sayfaya ve hangi sütunlara aktaracaksınız?

 

[neo]

:hihoho:

sayın Leventm tekrar çok teşekkurederim Listbox taki veriyi İşlem sayfasınadaki d3 "Hesap Adı "olan sütüna aktarmak istiyorum tekrar çok teşekkurederim sağolun

 

[neo]

Merhaba

Sayın Leventm cevabınızı dört gözle beklemekteyim

 

[Levent Menteşoğlu]

Listboxa aşağıdaki kodu yazın.

[vb:1:92349f5f12]Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
say = WorksheetFunction.CountA([d3:d65536]) + 3
Cells(say, 4) = ListBox1.Column(1)
Unload Me
End Sub[/vb:1:92349f5f12]

 

[neo]

:hey:

Sayın Leventm Çok teşekkuerediyorum Hakkınızı nasıl öderiz bilmiyorum şimdilik elimden elen sizlere dua etmek Allahın Rahmeti ve Bereketi kuşatsın sizleri

Sayı ve Sevgilerimle

 

[neo]

Sayın Leventm sizi tekrar rahatsız ediyorum kusura bakmayın bir sorun um daha var hangi satıra çıft tıklarsam o satıra ekleme yapmasını istiyoyrum acaba buna göre uyarlayabilirmisiniz

 

[Levent Menteşoğlu]

Kodu aşağıdaki ile değiştirin.

[vb:1:9e29b6cc9a]Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Cells(ActiveCell.Row, 4) = ListBox1.Column(1)
Unload Me
End Sub
[/vb:1:9e29b6cc9a]

 

[neo]

sayın levnentm


çok güzel oldu elinize sağlık
boş hücreye tıkladığımda userform açılmıyor bunuda çözebilirseniz başka bir sorunum kalmayacak teşekkurederim

 

[Levent Menteşoğlu]

boş hücreye tıkladığımda userform açılmıyor

Hücreye tarih girilirse açılsın demiştiniz onun için o şekilde yaptık. Boşta olsa açlışmasını istiyorsanız. İlk verdiğim koddaki

[vb:1:10e9f5dc48]If Target <> 0 Then UserForm2.Show
[/vb:1:10e9f5dc48]

satırını aşağıdaki ile değiştirin.

[vb:1:10e9f5dc48]UserForm2.Show
[/vb:1:10e9f5dc48]

 

[neo]

Sayın Leventm Çok çok teşekkurederim elinize sağlık
muhteşemsiniz

 

[neo]

:hey: İyi Geceler

Sayın leventm

ASIL sayfasında çift tıklama olayına birden fazla aralığı bağımsız user form çağırmak istiyorum ama başarılı olamadım yardımcı olursanız çok sevineceğim

Asıl sayfasının kodu :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Intersect(Target, [J20:J27]) Is Nothing Then Exit Sub
UserForm4.Show
If Intersect(Target, [L20:L27]) Is Nothing Then Exit Sub
UserForm5.Show
End Sub

L20:L27 arasınıda Userform5 i çalıştıramıyorum

Bu problemi halen çözemedim Sayın Leventm yardımınıza ihtiyacım var


Saygılarımla

 

[neo]

:hey: İyi Geceler

Sayın leventm

ASIL sayfasında çift tıklama olayına birden fazla aralığı bağımsız user form çağırmak istiyorum ama başarılı olamadım yardımcı olursanız çok sevineceğim

Asıl sayfasının kodu :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Intersect(Target, [J20:J27]) Is Nothing Then Exit Sub
UserForm4.Show
If Intersect(Target, [L20:L27]) Is Nothing Then Exit Sub
UserForm5.Show
End Sub

L20:L27 arasınıda Userform5 i çalıştıramıyorum

Bu problemi halen çözemedim Sayın Leventm yardımınıza ihtiyacım var


Saygılarımla

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

[vb:1:02655e9d32]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Not Intersect(Target, [J20:J27]) Is Nothing Then UserForm4.Show
If Not Intersect(Target, [L20:L27]) Is Nothing Then UserForm5.Show
End Sub
[/vb:1:02655e9d32]

 

[neo]

:hey:

Sayın Leventm teşekurederim Büyük insansınız Saygı Ve sevgilerimle :hihoho: :hihoho: :hihoho: :hihoho: :hihoho: :hihoho: