Userform tarih seçici eklemek

Katılım
2 Aralık 2013
Mesajlar
401
Excel Vers. ve Dili
Microsoft Office Standard 2013-Türkçe
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.
 

Ekli dosyalar

1Al2Ver

Altın Üye
Katılım
5 Kasım 2007
Mesajlar
4,708
Excel Vers. ve Dili
64 Bit TR - Microsoft Office 365 - Win11 Home
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...
 
Katılım
2 Aralık 2013
Mesajlar
401
Excel Vers. ve Dili
Microsoft Office Standard 2013-Türkçe
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

Altın Üye
Katılım
5 Kasım 2007
Mesajlar
4,708
Excel Vers. ve Dili
64 Bit TR - Microsoft Office 365 - Win11 Home
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
 

muygun

Özel Üye
Katılım
6 Temmuz 2004
Mesajlar
9,103
Excel Vers. ve Dili
Excel-2003 Türkçe
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.
 

Ekli dosyalar

Katılım
2 Aralık 2013
Mesajlar
401
Excel Vers. ve Dili
Microsoft Office Standard 2013-Türkçe
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.
 
Katılım
2 Aralık 2013
Mesajlar
401
Excel Vers. ve Dili
Microsoft Office Standard 2013-Türkçe
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.
 

Ekli dosyalar

antonio

Destek Ekibi
Destek Ekibi
Katılım
13 Şubat 2011
Mesajlar
1,155
Excel Vers. ve Dili
Microsoft Office Professional Plus 2013 Türkçe
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.
 
Katılım
2 Aralık 2013
Mesajlar
401
Excel Vers. ve Dili
Microsoft Office Standard 2013-Türkçe
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
 
Son düzenleme:

sulos

Altın Üye
Katılım
20 Temmuz 2009
Mesajlar
52
Excel Vers. ve Dili
2003 türkçe
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

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,316
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
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.


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

sulos

Altın Üye
Katılım
20 Temmuz 2009
Mesajlar
52
Excel Vers. ve Dili
2003 türkçe
Forumda daha önce paylaştığımız konuları inceleyebilirsiniz.


Bunlar yeterli gelmezse arama kutusuna sayfa+takvim yazarak arama yapınız.
Teşekkürler Hocam.
 
Üst