Userform tarih seçici eklemek

[Garuramon]

Merhaba, EK' li olan Excel dosyasında bilgi girişi kısmındaki;
1-Tarih sekmesinin olduğu yere tarih seçicisi eklemek istiyorum. Makrolar hakkında çok fazla bir bilgim olduğu söylenemez.
2-Bilgi girişindeki verilerin görüldüğü yerde "Adı soyadı", "sorun", "çözüm isteği", ve "sonuç", " sütununun biraz daha geniş olmasını, diğerlerinin biraz daha dar olmasını sağlayamıyorum. Yardım eder misiniz.

 

[1Al2Ver]

Merhaba,

2 nci isteğiniz için ;

Private Sub UserForm_Initialize()

........
......
......

ListBox1.ColumnWidths = "30;40;100;40;50;140;135;40;30;30;290;35;60;20;20"

ve

ListBox2.ColumnWidths = "30;40;100;40;50;140;135;40;30;30;290;35;60;20;20"

değerlerini değiştirdim, biraz oldu gibi,

Sizde bu değerleri artırıp eksilterek düzen kurabilir siniz,

Örneğin ; 290 olan değer "Sonuç" başlığını düzenliyor,

Kolay gelsin...

 

[Garuramon]

Sayın @1Al2Ver ,

2. sorun çözüldü teşekkür ederim. Yazı tipi boyutunu biraz daha küçültebilirsem daha iyi olacak gibi. Küçültme işlemi tam olarak nasıl yapılıyor.

 

[1Al2Ver]

Merhaba,

UForm ListBox1'i tıklayınız,

Proporties ListBox1 başlığı altında, font'u seçin açılan pencereden 3 noktalı kutuyu tıklayın, ( şu an fontunuz 8 )

Buradan font boyutunuzu değiştirebilir siniz.

Kolay gelsin,

Ekli dosyayı görüntüle 225518

 

[1Al2Ver]

 

[Garuramon]

Ekli dosyayı görüntüle 225519

Teşekkür ederim. Umarım tarih seçici sorunu için de yardım edecek olan olur. İnternette çok fazla örnek maalesef yok.

 

[Seyit Tiken]

Haluk beyin UserForm ile yaptığı çalışmayı kendinize uyarlayınız.
Örnek Dosya :

 

[muygun]

Merhaba;
Alternatif:
Dosyanızı 2003 (dönüştürücü) ile açtığım için direk uygulama yapamadım.
Arşivimden Userformda takvim örneğini ekliyorum. Umarım kodları taşırsınız. (yada 2007 ve üzeri versiyon kullanan bir arkadaş yardımcı olabilir.)
İyi çalışmalar.

 

[Garuramon]

Merhaba;
Alternatif:
Dosyanızı 2003 (dönüştürücü) ile açtığım için direk uygulama yapamadım.
Arşivimden Userformda takvim örneğini ekliyorum. Umarım kodları taşırsınız. (yada 2007 ve üzeri versiyon kullanan bir arkadaş yardımcı olabilir.)
İyi çalışmalar.

Sayın @muygun,

Beni kırmayıp zaman ayırıp ilgilendiğiniz için bu konuda sizden gerçekten müteşekkirim. Ancak makro bilgim çok kısıtlı, çoğu zaman çeşitli videolar izleyerek anlamaya ve/veya deneme yanılma yolu ile öğrenmeye çalışıyorum. Umarım dosya üzerinde üstatlar yardımcı olabilir.

 

[Garuramon]

Arkadaşlar EK' li dosyaya bilgi girişi kısmına bilgileri işledikten sonra kaydet diyorum ve ekrana hata kodu geliyor, neden olabilir acaba.

 

[antonio]

Arkadaşlar EK' li dosyaya bilgi girişi kısmına bilgileri işledikten sonra kaydet diyorum ve ekrana hata kodu geliyor, neden olabilir acaba.

Merhaba,
Nesnelerin ismini ve tipini değiştirmişsiniz, ama kodlarınıza bu değişiklikleri uyarlamamışsınız.
Örnek: Hatanın başladığı satırda belirtilen ve veri kaynağı olarak TextBox10 nesnesi olarak gösterilen nesne, cboMülkiyet ismi ile ComboBox yapılmış. Sanırım hepsi için benzer değişiklikler yapılmış. TextBox10 yerine cboMülkiyet yazdığınızda bu satırdaki hatayı çözmüş oluyorsunuz. Aynı şeyi diğer satırlar için de yapmalısınız.

 

[Garuramon]

Merhaba,
Nesnelerin ismini ve tipini değiştirmişsiniz, ama kodlarınıza bu değişiklikleri uyarlamamışsınız.
Örnek: Hatanın başladığı satırda belirtilen ve veri kaynağı olarak TextBox10 nesnesi olarak gösterilen nesne, cboMülkiyet ismi ile ComboBox yapılmış. Sanırım hepsi için benzer değişiklikler yapılmış. TextBox10 yerine cboMülkiyet yazdığınızda bu satırdaki hatayı çözmüş oluyorsunuz. Aynı şeyi diğer satırlar için de yapmalısınız.

Bu seferde bu şekilde bir hata mesajı veriyor.
Private Sub CommandButton1_Click()
Application.DisplayAlerts = False
Sheets("TABLO").Select

b = WorksheetFunction.CountA(Sheets("tablo").Range("A:A"))
Sheets("tablo").Range("a" & b + 1).Select
ActiveCell = TextBox7.Value
ActiveCell.Offset(0, 1) = TextBox8.Value
ActiveCell.Offset(0, 2) = TextBox9.Value
ActiveCell.Offset(0, 3) = cboMülkiyet.Value
ActiveCell.Offset(0, 4) = cboMülkiyet.Value
ActiveCell.Offset(0, 5) = cboMülkiyet.Value
ActiveCell.Offset(0, 6) = cboMülkiyet.Value
ActiveCell.Offset(0, 7) = cboMülkiyet.Value
ActiveCell.Offset(0, 8) = cboMülkiyet.Value
ActiveCell.Offset(0, 9) = cboMülkiyet.Value
ActiveCell.Offset(0, 10) = cboMülkiyet.Value
ActiveCell.Offset(0, 11) = cboMülkiyet.Value
ActiveCell.Offset(0, 12) = cboMülkiyet.Value

MsgBox "Verileriniz Kaydedildi. Form boşaltılıyor "
For i = 8 To 19
Me.Controls("TextBox" & i) = "" burada hata veriyor.
Next i
UserForm_Initialize
ThisWorkbook.Save
Application.DisplayAlerts = True
End Sub

Private Sub CommandButton3_Click()
Application.DisplayAlerts = False
Sheets("TABLO").Select
If TextBox8 = "" And TextBox11 = "" Then
MsgBox " Şu an formda veri görünmüyor.Düzeltilecek bir verinin benzersiz ipuçları olan SIRA NO , K NO , D NO kutularından birine uygun veri girip BUL tuşuna basınız", vbCritical, "VERİ EKSİK"
Exit Sub
With Sheets("tablo")
Set bul = .Range("a:a").Find(TextBox7, LookAt:=xlWhole)
If Not bul Is Nothing Then
.Cells(bul.Row, "a").Value = TextBox7
.Cells(bul.Row, "b").Value = TextBox8
.Cells(bul.Row, "c").Value = TextBox9
.Cells(bul.Row, "d").Value = TextBox10
.Cells(bul.Row, "e").Value = TextBox11
.Cells(bul.Row, "f").Value = TextBox12
.Cells(bul.Row, "g").Value = TextBox13
.Cells(bul.Row, "h").Value = TextBox14
.Cells(bul.Row, "i").Value = TextBox15
.Cells(bul.Row, "j").Value = TextBox16
.Cells(bul.Row, "k").Value = TextBox17
.Cells(bul.Row, "l").Value = TextBox18
.Cells(bul.Row, "m").Value = TextBox19
Else
MsgBox "Değiştirmek istediğiniz veriyi önce BUL tuşu ile seçiniz !", vbExclamation
End If
End With

UserForm_Initialize
MsgBox "Verileriniz düzeltildi. Form boşaltılıyor."
For i = 8 To 19
Me.Controls("textbox" & i) = ""
Next i
End If
ThisWorkbook.Save
Application.DisplayAlerts = True
End Sub

Private Sub CommandButton4_Click()

'Sheets("TABLO").Select
If ActiveCell.Row < 2 Then
MsgBox "İlk önce BUL ile silmek istediğiniz veriyi bulmalısınız!", vbCritical
Exit Sub
End If

Onay = MsgBox("Seçtiğiniz kayıt silinecektir! Onaylıyor musunuz?", vbExclamation + vbYesNo)
If Onay = vbNo Then Exit Sub
ActiveCell.EntireRow.Delete
'Range("b2:b" & Rows.Count).ClearContents
For sira = 2 To Cells(65536, "B").End(xlUp).Row
ActiveSheet.Cells(sira, "A") = sira - 1

 

[sulos]

Merhaba, makroları henüz bilmediğim için makrolara, kodlara girmeden hücreye tıklayınca tarih seçimi yapabileceğimiz bir yol var mıdır? Microsoft eklentilerde de bulamadım. MS Calender uygulaması var ama sürekli açık halde. Ben hücreye tıkladığımda açılmasını istiyorum. İmkan var mıdır bu şekilde? Teşekkürler.

 

[Korhan Ayhan]

Merhaba, makroları henüz bilmediğim için makrolara, kodlara girmeden hücreye tıklayınca tarih seçimi yapabileceğimiz bir yol var mıdır? Microsoft eklentilerde de bulamadım. MS Calender uygulaması var ama sürekli açık halde. Ben hücreye tıkladığımda açılmasını istiyorum. İmkan var mıdır bu şekilde? Teşekkürler.

Forumda daha önce paylaştığımız konuları inceleyebilirsiniz.

https://www.excel.web.tr/threads/sayfada-sag-klik-menuesuende-takvim-uygulamasi.132079/

https://www.excel.web.tr/threads/sayfada-mouse-ile-sag-klik-yaparak-takvim-uygulamasini-acmak.71768/

TAKVİM resmi ve dini tatil günlerini gösteriyor

1-aylık takvim içinde iş gününü ve tatil günlerini ayırıyor 2-resmi ve dini günleri gösteriyor Haftasonu tatil günlerini seçmeli yaptım sayfa4 deki bölümde açılan mesaj kutusuna hafta gününe gelen sayıyı yazmak yeterli örneğin cumartesi için 6 pazar için 7 cumartesi ve pazar için 67 veya 76...

www.excel.web.tr

Bunlar yeterli gelmezse arama kutusuna sayfa+takvim yazarak arama yapınız.

 

[sulos]

Forumda daha önce paylaştığımız konuları inceleyebilirsiniz.

https://www.excel.web.tr/threads/sayfada-sag-klik-menuesuende-takvim-uygulamasi.132079/

https://www.excel.web.tr/threads/sayfada-mouse-ile-sag-klik-yaparak-takvim-uygulamasini-acmak.71768/

TAKVİM resmi ve dini tatil günlerini gösteriyor

1-aylık takvim içinde iş gününü ve tatil günlerini ayırıyor 2-resmi ve dini günleri gösteriyor Haftasonu tatil günlerini seçmeli yaptım sayfa4 deki bölümde açılan mesaj kutusuna hafta gününe gelen sayıyı yazmak yeterli örneğin cumartesi için 6 pazar için 7 cumartesi ve pazar için 67 veya 76...

www.excel.web.tr

Bunlar yeterli gelmezse arama kutusuna sayfa+takvim yazarak arama yapınız.

Teşekkürler Hocam.