Aşağıdaki yöntemlerle yapabilirsiniz.
1- Form açılmadan veriyi aktarmak istediğiniz hücreyi seçerseniz ve sonrasında formu açarsanız aktif hücreye veriyi aktarabilirsiniz.
2- Form üzerine bir ComboBox ekleyip hücre adreslerini burada listeledikten sonra seçim yaparak dilediğiniz hücreye veri...
Merhaba, kodlar için çok teşekkürler. Benim dosyamda sonuç hala yanlış çıkıyor. Hala ondalık kısmı görmüyor. 0,41'i 41 olarak görüyor,1,33'ü 133 olarak görüyor ona göre işlem yapıyor.
Kopya bir dosyada deneyiniz:
Ondalıklı sayılar için DOUBLE kullanabilirsiniz ve ComboBox vs default olarak string olarak işliyor bunun da etrafından dolanmayı deneyin.
Private Sub ComboBox1_Change()
Dim tablo1 As Range
Dim A As Integer
Dim B As Double
Set tablo1 =...
Next
UserForm_Initialize
ThisWorkbook.Emre ' Bu satırı ekledim.
End Sub
kaydet tuşu bir yere gitmiyor buradaki gidişi ' ile pasiflestirdim ancakşu kod da bir " "" "" ama sonrasında .clear var ve hata veriyordu.
Şu şekilde düzeltince listbox tüm satır verisini gösterdi. Satıra cift tıklayınca...
merhaba listbox ta seçili olan veri ile combobox takı veriyi birleştirip aktif sayfadaki seçili olan hücresine nasıl yazdırırım
örnek:listbox ta deneme12 seçili combobox ta kasa seçili olsun
aktif sayfadaki seçili olan hücreye diyelimki d18 hücresine tıkladım bu alana kasa=deneme12 yazıcak
bu...
@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...
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.