merhaba arkadaşlar, herkezlere hayırlı akşamlar . Userformda seçenek düğmesi kullanmak hakkında sizlerin yardımınıza ihtiyacım var ekdeki dosyada ki kotlamaları birtürlü oluşturamadım yardımcı olursanız gercekten çok sevineceğim ilgilenen arkadaşlara şimdiden teşekürler......:yardim:
-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Userformda seçenek düğmesi
- Konbuyu başlatan EmirhanG
- Başlangıç tarihi
- Katılım
- 1 Mart 2005
- Mesajlar
- 22,239
- Excel Vers. ve Dili
- Win7 Home Basic TR 64 Bit
Ofis-2010-TR 32 Bit
Merhaba
Dosyanız ekte.
Ama bu iş küçük bi option button sorusundan çok küçük bir programcığa benzedi gibime geliyor
:roll: .
Açıklama : programın çalışabilmesi için 1nci sütunlarda kod no ları olmalı.
Dosyanız ekte.
Ama bu iş küçük bi option button sorusundan çok küçük bir programcığa benzedi gibime geliyor
:roll: .Açıklama : programın çalışabilmesi için 1nci sütunlarda kod no ları olmalı.
Moderatör tarafında düzenlendi:
- Katılım
- 13 Ekim 2004
- Mesajlar
- 16,060
- Excel Vers. ve Dili
- Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Bir örnekte ben hazırladım, çoklu seçim yapıldığından optionbutton yerine checkbox kullanılmalıdır. Sütun gizleme işleminde class module kullandım.
Not: class module kullanmadanda basit bir döngü ile de sütunlar gizlenebilir.
Not: class module kullanmadanda basit bir döngü ile de sütunlar gizlenebilir.
Son düzenleme:
merhaba arkadaşlar ilginiz için teşekürler. Hocam gönderdiğiniz dosya üzerinde uğraştım fakat chenkbox lardan birini okeylemediğim zaman uygun kayıt bulunamadı uyarısını alıyorum biraz uğraştım ama olmadı teşekürler.......
- Katılım
- 13 Ekim 2004
- Mesajlar
- 16,060
- Excel Vers. ve Dili
- Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Bu uyarının checkboxlarla bir bağlantısı yoktur, 4 adet textboxa girdiğiniz parametrelere uygun veri yoksa böyle bir mesaj çıkacaktır.
hocam kusuruma kalmayın tarih seçiminde hata yapmışım 2006 yerine 2007 seçermişim sizden bir ricam dahavar bu calendarları açtığımda güncel tarih durumunda açılsın istiyorum ve müşteri seçtiğimde (mesela" müşteri 1 - müşteri19 aralığını seçtiğimde müşteri1 den müşteri 19 a kadar olan tüm müşterileri alamıyorum sadece müşteri1 ve müşteri19 veriyor.) teşekürler.......
Son düzenleme:
- Katılım
- 4 Mayıs 2007
- Mesajlar
- 234
- Excel Vers. ve Dili
- office 2007 64 bit
office 2010 64 bit
EmirhanG kardeş sana bi sorum olacak bu userform1 nasıl aşşağıdan yukarıya doğru kayarak geliyor.?. formül le yapıyorsan formülü bana yazarmısın??
Private Sub UserForm_Activate()
UserForm1.StartUpPosition = 0
UserForm1.Left = 200
Start = Timer
Do
DoEvents
finish = Timer
deg = Format(finish - Start, "0")
c = c + 0.01
UserForm1.Top = 300 - c
If UserForm1.Top = 100 Then Exit Sub
Loop While finish - Start <= 1000
End Sub
Kardeş formun kod bölümüne yaz... kolaygelsin
- Katılım
- 4 Mayıs 2007
- Mesajlar
- 234
- Excel Vers. ve Dili
- office 2007 64 bit
office 2010 64 bit
teşekürler
- Katılım
- 13 Ekim 2004
- Mesajlar
- 16,060
- Excel Vers. ve Dili
- Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Bu konuyla iligli açıklama aşağıdaki linkte yapılmıştır. Bu başlıktaki dosyalara eğer ulaşabilirsem. Eklemeye çalışırım.
Foruma Tekrar Merhaba!!!!
- Katılım
- 13 Ekim 2004
- Mesajlar
- 16,060
- Excel Vers. ve Dili
- Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Bulabildiğim dosyalar ilgili mesajlara eklenmiştir.
- Katılım
- 5 Kasım 2007
- Mesajlar
- 4,727
- Excel Vers. ve Dili
- 64 Bit TR - Microsoft Office 365 - Win11 Home
Merhaba,
Resimdeki hatayı düzeltmem için yapmam gerekeni rica ediyorum,
Teşekkür ederim.
Sorumu güncelledim.
- Katılım
- 5 Kasım 2007
- Mesajlar
- 4,727
- Excel Vers. ve Dili
- 64 Bit TR - Microsoft Office 365 - Win11 Home
Merhaba,
Bendeki laptopa format attırmıştım, formattan sonra bazı dosyalar yada ekler de yok oldu sanırım.
Levent ve Evren beyin eklediği dosyalarda ;
UsorForm Aç tıklandığında hata iletisinde "debug" seçilince, sistem aşağıdaki kod'da kırmızı olan satırı işaret ediyor.
Birşeyler eksik yada hatalı sanırım, nasıl düzelte bilirim ?
Teşekkür ederim.
Private Sub UserForm_Activate()
Calendar1.Visible = False
Calendar2.Visible = False
ListBox1.Visible = False
ListBox2.Visible = False
ListBox1.RowSource = "GİRİŞ!a1:a" & [a6500].End(3).Row
ListBox2.RowSource = "GİRİŞ!a1:a" & [a6500].End(3).Row
UserForm1.StartUpPosition = 0
UserForm1.Left = 200
Start = Timer
Do
DoEvents
finish = Timer
deg = Format(finish - Start, "0")
c = c + 0.01
UserForm1.Top = 300 - c
If UserForm1.Top = 100 Then Exit Sub
Loop While finish - Start <= 1000
End Sub
Bendeki laptopa format attırmıştım, formattan sonra bazı dosyalar yada ekler de yok oldu sanırım.
Levent ve Evren beyin eklediği dosyalarda ;
UsorForm Aç tıklandığında hata iletisinde "debug" seçilince, sistem aşağıdaki kod'da kırmızı olan satırı işaret ediyor.
Birşeyler eksik yada hatalı sanırım, nasıl düzelte bilirim ?
Teşekkür ederim.
Private Sub UserForm_Activate()
Calendar1.Visible = False
Calendar2.Visible = False
ListBox1.Visible = False
ListBox2.Visible = False
ListBox1.RowSource = "GİRİŞ!a1:a" & [a6500].End(3).Row
ListBox2.RowSource = "GİRİŞ!a1:a" & [a6500].End(3).Row
UserForm1.StartUpPosition = 0
UserForm1.Left = 200
Start = Timer
Do
DoEvents
finish = Timer
deg = Format(finish - Start, "0")
c = c + 0.01
UserForm1.Top = 300 - c
If UserForm1.Top = 100 Then Exit Sub
Loop While finish - Start <= 1000
End Sub