Kodun ilgili satırlarını aşağıdaki gi değiştirin.
s1.Range("C" & son).Value = Mid(vkod, 2)
s1.Range("D" & son).Value = Mid(vack, 2)
UserForm_Initialize olayı da aşağıdaki gibi olabilir.
Private Sub UserForm_Initialize()
a = 1
For i = 2 To Sheets("MONTAJ").Cells(1, Columns.Count).End(1).Column...
Deneyin
Private Sub CommandButton4_Click()
Set s1 = Sheets("MUSTERI")
For i = 1 To 18
If Controls("ComboBox" & i).Value <> "" Then
vack = vack & "." & Controls("ComboBox" & i)
vkod = vkod & "." & Controls("TextBox" & i + 1)
End If
Next
son = s1.Cells(Rows.Count, 2).End(3).Row + 1
s1.Range("A" &...
Merhaba
Sizlerin katkısı ile birçok işlemi yardım almadan yapabiliyorum ama burda takıldım.Yardımcı olabiliseniz çok memnun olurum.
1-Userformda bulunan stok kodunda yazan değerin B sutununa,miktar kısmında yazan değerin E sutununa kayıt edilmesi.
2-Userformumda 18 adet combobox ve onlara...
Merhaba,
Multipage sayfalarının "Visible" özelliği bulunuyor.
Userform üzerine kontroller ekleyebilirsiniz. İnceleyiniz.. Görsel anlatımlar..
Userform üzerindeki kontrolleri silebilirsiniz. İnceleyiniz. Link
Forumda başlıksız form olarak örnekler var...
İyi günler kolay gelsin,
Userform üzerinde comboBox dan sectigim bir kritere göre döngü oluşturduğum bir aralikta ilk boş satırı seçip formda doldurduğum diğer bilgilerin bu seçilen satıra yazmak istiyorum
Örneğin;
1 aylık kararları seçtiğimde veri girişi yaptığım database sayfasında ki...
Merhaba
benim bu kod gurubumdan bir kaç tane daha var
user formun üzerine iki kutucuk açılıp birinci ve ikinci sabitleri oraya girsek değerleri oradan alabilir mi.
Merhaba,
Dosyanızda malzeme adının X'e kadar olan değerler ve sonundaki " Li" sabitse doğrudan rakam girilerek giriş hızlandırılabilinir.
Yoksa elle giriş yanlış sonuçlara neden olabilir diye düşünüyorum.
Yok ben elle giriş yaparım derseniz Combobox yerine Textbox kullanabilirsiniz.
Bu...
Merhaba arkadaşlar, kurumum için hazırladığım bir tabloda veri doğrulama listelerim var. Bunları bir nevi combobox olarak kullanıyorum. Şöyle bir sıkıntım var; listeden "işlem yapıldı" seçeneğini seçtiğim zaman farklı bir sütunda tarih atmam gerekiyor. Bunu, eğer ile yaptığım zaman fonksiyonu...
Ben arkadaş için bir dosya yapmıştım. Orada da benzer işlem gerekiyordu ve normal yol ile çözemeyince UserForm ile sorunu çözdüm. UserForm ile açılan pencerede alanları doldurunca otomatikmen seçtiğin tarih geliyor. UserForm da bu günün tarihi otomatik ekranda oluyor, değişmek istersen...
Dim a As Long
For a = 3 To 500
' If TextBox3.Value = "Özel" Then
' If Sheets("DATA").Cells(a, "X") <> "" Then ComboBox1.AddItem Sheets("DATA").Cells(a, "X")
' If Sheets("DATA").Cells(a, "X") <> "" Then ComboBox2.AddItem Sheets("DATA").Cells(a, "X")
' If...
Bu karışık bir konudur. Bunun için karmaşık Api kodları kullanmaktan başka seçeneğiniz yok maalesef. Uygulama için aşağıdaki linki inceleyin.
https://www.excel.web.tr/threads/combobox-mause-tekerlegi.182921/#post-1009466
Merhabalar,
Konu hakkında yardımcı olabilecek üyelerden destek rica ediyorum.
Konunun özetini başlıkta da belirttiğim gibi userformda yer alan ComboBox1 deki verileri mouse tekerleği ile aşağı ve yukarı kaydırmak istiyorum.
ComboBox1 verileri çalışma kitabındaki "Liste" sayfasının A1:E1...
Arkadaşlar, örnekteki dosyamda combobox'tan seçilen ay'a göre A9 hücresinden başlayarak o ayın 15. gününden gelecek ayın 14. gününe kadar günleri yazdırıyorum. buna göre de koşullu biçimlendirmede kullandığım formüllerle hafta sonlarını ve sayfa 2 deki tatil günlerini renklendirebiliyorum. sorun...
Merhaba
Tek bir tarih için neden Combobox'ı yeğlediniz pek anlamadım. Textbox da olabilirdi.
İki satır verecem, birini kullanın. Birinci satır sadece d sütunundan ise , ikinci satır bulunduğu satırdan B sütunundaki tarihi alır.
Private Sub UserForm_Initialize()
'Satırlardan birini seçin...
Arkadaşlar bir çalışma sayfasında B5:B35 aralığında ilgili aya ait tarihler var. D5:D35 aralığında herhangi bir hücreye tıkladığımda oluşturduğum UserForm açılıyor. Yapmak istediğim açılan userformda bulunan ComboBox2 ye tıklanan hücre hangi satırda ise B5:B35 aralığında bulunan tarih otomatik...
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.