@Muzaffer Ali hocam merhaba,
Başlıkları bilerek false yaptım. Ancak genişlik olayını bir türlü çözemedim. Vermiş olduğunuz kodu denedim ancak çok profesyonel olmadığımdan beceremedim. Dosya içerisinde kullanmış oldğum kod aşağıdaki gibidir. Bu kodu ne şekilde revize etmem gerekir.
Yardımcı...
Private Sub CommandButton1_Click()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Sayfa2")
Dim rowNumber As Long
Dim colNumber As Long
Dim targetCell As Range
Dim searchName As String
Dim searchMonth As String
Dim addValue As Double...
Herkese Merhabalar,
Ekte paylaşmış olduğum makro çalışma dosyasında daha önceden oluşturulmuş olan listbox nesnesindeki filtrelemelere ek olarak;
option button ve combobox olarak eklemiş olduğum yeni kriterleri de ( ileri filtreleme frame lerine bağlı olarak) genel filtrelemeye dahil etmek...
Arkadaşlar merhabalar UserForm da comboboxlardan veri çekiliyorum. Fakat yemlerin ADF ve NDF değerleri gelmiyor. diğerleri geliyor sorun nerede acaba?
Private Sub UserForm_Initialize()
Aktar1
For i = 2 To 5
Controls("cb_kabayem" & i).List = cb_kabayem1.List...
merhaba arkadaşlar çalışma sayfamda veri doğrulama ile müşteri adını seçtiğimde diğer saydafa o müşteriye ait bilgilerin hepsini getirmek istiyorum bu işlemi office 365 de yapabiliyorum ama bunu vba kod ile nasıl yapıcam bulunduğum ortamda office eski sürüm yardımcı olcak arkadaşlar şimdiden...
1-Dosyayı farklı kaydet csv olarak C:\Users\Ömer\Documents\iMacros\DataSources buraya
2- Komuttaki SET !LOOP 2 ikinci satırdan başlayacağını söylüyor yani excel verinde başlık var eğer başlıksız ise excel burayı 1 yap
3- Excelde kaç kişiyi okutacaksan o kadar loop yapman lazım ("kodun içinde...
@Zeki Gürsoy
Evet haklısınız. Onu sadece bir örnek olarak vermiştim. Esasında VB6 da hazırlamış olduğum bir programıma bunu entegre etmek istiyorum. olur gibi duruyor... Dosya adını da combobox dan alacak...
-----------------------------------------------------------
Bu şekilde bir hata...
Dosya çalışınca kaydetmesi olayı farklı, userform ile giriş işlevi farklı.
Siz userform'un giriş yaptığınız butona kayıt yapacağınız sayfanın ilgili satır/sütunu'na kayıt yaptırın. Yukarıdaki makro işinizi görmez. Kullanıcı adınada userformdaki girilen combobox değerini atayın.
***
Edit:1...
Saat ve Dakika için 2 adet ComboBox kullanmak problem olmazsa...
Private Sub UserForm_Initialize()
' 1.ComboBox Name = Saat
Saat.List = [index(Text((row(1:24)-1),"00"),)]
Saat.Value = Format(Now, "hh")
Saat.Style = 2
' 2.ComboBox Name = Dakika
Dakika.List = [index(Text((row(1:60)-1),"00"),)]...
Herkese merhaba,
Geçmiş bayramınızı tebrik ederim,
3 Combobox üzerinde seçilen verilere göre diğer Combobox'ların enable verisini true ya da false yapmak istiyorum.
Bunu belirlemek için excel tablosundaki Evet \ Hayır değerlerini kullanmak istiyorum.
Exceldeki İlk 3 sütun, koşulları veren 3...
@Korhan Ayhan hocamın kodunu aşağıdaki gibi düzenleyip dener misiniz?
Sub Clear_Controls(Current_Form As Object, Optional ByVal xTur As String)
Dim My_Ctrl As Control, xTurT As String
For Each My_Ctrl In Current_Form.Controls
If xTur = "" Then xTurT = TypeName(My_Ctrl) Else...
Aşağıdaki gibi bir mantık kurabilirsiniz. Ben aramayı 3 karakter yazıldığında yapacak şekilde düzenledim. Tek karakter olursa birden fazla veri olabileceği için en son olan veriyi getirecektir. İsterseniz bu satırı kaldırabilirsiniz. Her yazdığınız karaktere göre yeniden arama yaparak yine doğru...
Hayırlı Ramazanlar, Hayırlı İftarlar
Birinci sütununda Adı soyadı
İkinci sütununda ise T.C. kimlik numarası olan İki sütunlu bir Combobox3'ün içinde
Textbox1' e girilen Harf ise Combobox3'ün ComboBox3.ListIndex = 0 (Birinci Sütunda) filtreleme yapacak
Textbox1' e girilen Rakam ise...
Benzer bir alternatif..
Boş bir modüle;
Option Explicit
Sub Clear_Controls(Current_Form As Object)
Dim My_Ctrl As Control
For Each My_Ctrl In Current_Form.Controls
If TypeName(My_Ctrl) = "TextBox" Then
My_Ctrl.Value = ""
ElseIf TypeName(My_Ctrl) =...
Hocam çok ama çok özür dilerim. Combobox yani seçilecek. Nasıl ListBox yazdım. Adı list olduğu için. Boşu boşuna uğraştırdım.
Hocam excel dosyasının gözükmediğini farz edin. Sadece UserForm gözüküyor. A1 hücresi online aldığı için, Atıyorum bu durumda illeri UserForm üzerinden Combobox ile...
Merhaba arkadaşlar...
Excelde 9 sutundan oluşan bir tablom var bu tablomu userform üzerine 1 adet açılır combobox, 1 adet commandbuton ve 8 adet de textbox yaparak aradığımı daha kolay bulayım dedim ve aşağıdaki kodu yazdım. lakin combobox tan isim seçiyorum ve command butona basıyorum fakat...
Bu videoyu bir izleyin. Sorununuzu kendiniz çözebilirsiniz. Ben yine de aşağıda bu video ile çözüm bulmuş halini de yazayım.
Video linki =
Combobox nesnenize fare ile sağ tuş yapıp, Denetim Biçimlendir deyin. Ardından Denetim sekmesinde,
- Hücre Bağlantısını Sayfa2'de J1 hücresi gösterin.
-...
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.