• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

ComboBox3 formül hakkında

B

Bakigemlik

Altın Üye
Katılım
16 Ocak 2013
Mesajlar
674
Excel Vers. ve Dili
2010 Türkçe
Merhaba Arkadaşlar,

Kendimce küçük bir program yapmaya karar verdim excelimi geliştirmek adına,

Bu zamanda da sizlerden tıkandığım noktalarda destek istiyor olacağım, bana göstereceğiniz destek için şimdiden teşekkür ederim,

İlk soruma gelince ComboBox3 formül girerek textbox4 dönem getirmesini istiyorum, combobox3 aşağıdaki formülü giriyorum ama değer "January 00" olarak geliyor, buradaki değerin Ocak 16 olarak nasıl getirebilirm. (tarih kısmını alan olarak tanımladım)

Kod: 
Private Sub ComboBox3_Change()
    TextBox4 = WorksheetFunction.text(tarih, "mmm yy")
End Sub

Teşekkürler,
 
Tarih değişkeninin aldığı değeri belirtmemiş görünüyorsunuz. ;)

Bu şekilde deneyin.
Kod: 
[FONT="Trebuchet MS"][SIZE="2"]Private Sub ComboBox3_Change()
    TextBox4.Value = Format(DateAdd("m", 1, [COLOR="Red"]Date[/COLOR]), "mmmm yy")
End Sub[/SIZE][/FONT]
 
Son düzenleme:
Murat Bey ilginiz için çok teşekkürler,

Hangi tarihi yazsam ocak 16 yazıyor birde bu konu combobax değilde label yazsak aynı şekilde çalışırmı tarihi seçerek değil manuel yazılması için

Teşekkürler,
 
Kodda kırmızı renk ile belirttiğim Date sayfadaki =BUGÜN() formülü ile aynıdır. O an ki tarihi belirtir.
Onun yerine herhangi bir tarih yazıp deneyebilirsiniz. ;)
Kod: 
[FONT="Trebuchet MS"][SIZE="2"]TextBox4.Value = Format(DateAdd("m", 1, [COLOR="Red"]Date[/COLOR]), "mmmm yy")[/SIZE][/FONT]
 
Murat bey sanırım biryerlerde hata yapıyorum temmuz dahi seçsem durum ekteki gibi görünüyor, birde ben burda açılır kutu olarak seçmek yerine manuel yazmak ya da takvim açılmasını sağlayarak yapmak istiyorum bunu nasıl yapabilirim,

ek dosya ekliyorum bilgilerinize,

saygılarımla ,

Teşekkürler,
 

Ekli dosyalar

Mesajlara neden dönüş yapılmadığını anlamış değilim.
Bundan sonra geri dönüş yapılmayan mesajları ve dosyaları silmeyi düşünüyorum.
 
halilyor' Alıntı:
Mesajlara neden dönüş yapılmadığını anlamış değilim.
Bundan sonra geri dönüş yapılmayan mesajları ve dosyaları silmeyi düşünüyorum.
Genişletmek için tıkla ...
Merhabalar Sayın halilyor.
Bakigemlik kullanıcı isimli üye, bildiğim kadarıyla bu konulara dikkat eden biridir,
siz dosya bağlantı adresini verdikten sonra forumda çevrimiçi olmamış anlaşılan.
 
Günaydınlar sayın halilyor dün çevrim dışı olduğum için dosyanızı inceleme ve yanıt verme fırsatım olmadı. Şuan dosyayı inceliyorum uyarlamaya çalışacağım, desteğiniz ve cevabınız için teşekkürler,
 
halilyor' Alıntı:
Sayın Ömer BARAN ilginize teşekkürler.

Formda açılan takvim ile veri süz ve başka sayfaya kopyala.
çalışmanıza uyarlayın

http://www.dosya.tc/server6/vw4buu/a...pyala.xls.html
Genişletmek için tıkla ...

Sayın halilyor dosyayı inceledim ama ne yazık ki kod bilgim bu kadar yeterli değil bu nedenle dosyama uyarlayamadım, emeğiniz ve desteğiniz için tekrar teşekkürlerimi sunarım, eğer mümkünse ve zamanınız varsa örnek dosyada uygulamanız mümkün müdür,
 
Murat OSMA' Alıntı:
Yazdığım mesajı tekrar dikkatlice okuyup düşünürseniz çözeceksiniz ;)
Genişletmek için tıkla ...

murat bey sanırım ben bunu halledemedim hatanın nerden olduğunu anlayamadım, ayrıca diğer texboxları son hücreye yazmak için kaydet butonuna aşağıdaki kodu yazdım fakat bu da hata verdi, araştırdım ama bulamadım destek olursanız sevinirim,

Kod: 
Private Sub CommandButton1_Click()
dim As Worksheet
Set S1 = Sheet("Ana Dosya")
son_satir = Range("A65536").End(3).Row + 1
S1.Cells(son_satir, "A") = TextBox4.Text

End Sub

Saygılarla,
 
Merhaba,

Aşağıdaki gibi dener misiniz.

Private Sub ComboBox3_Click()
ComboBox3.Text = Format(ComboBox3.Text, "dd.mmmm.yyyy")
TextBox4.Value = Format(ComboBox3.Text, "mmmm yy")
End Sub
Genişletmek için tıkla ...
 
Sayın Kuvvari ilginiz için teşekkürler, tam istediğim gibi oldu,

Sayın Murat Bey sizede teşekkür ederim,
 
Kaydet Butonu sonası yeni User Form Açılması ve Tamam dedikten sonra kayıt

Merhaba,

Daha önce kendimce küçük bir dosya yaptığımı belirmiştim, kolay olan tarafı sanırım Öncelikle Sayın Murat hocam Sayın Korhan Hocam, Sayın Kuvari ve sitede daha önce paylaşım yapan hocalarımın ve dostların örnekleriyle tamamladım düşüncesindeyim, son olarak dosyada rapor detayına girmeden sizlerden bir isteğim daha var, ek dosyada veriler girdikten sonra kaydet butonuna bastıktan sonra UserForm2 açılması ve burada chekboxları seçtikten sonra seçilen chekbox kadar kayıt oluşturup ilgili hücrelere yazması, yani ben 1 chekbox seçersem tüm veriler aynı olacak şekilde ilgili hücrelere ve seçtiğim chekboxın ismini J sütununa yazarak kaydetmesi, kaç tane chekbox seçersem sadece J sütununda chekbox adı değişik olup diğer her şey aynı olacak şekilde kayıt oluşturması,

http://www.dosya.tc/server6/8y73av/lastik_takip.rar.html


Desteğinizi rica ederim,

saygılarımla,
 
Seçilen CheckBox kadar kayıt

Merhaba Üstatlar,

Uğraşarak sorunumun bir bölümünü hallettim, kaydet butonuna basınca 2 Userform açılıyor ve tamam tuşuna basınca gerekli işlemleri yapıyor,
Ama seçilen CheckBox kadar satır kaydetmesini ve kayıt ederken seçtiğim CheckBox ismini "J" sütununa yazmasını halledemedim konu hakkında desteğinizi rica ederim,

http://s6.dosya.tc/server5/veskh8/lastik_takip.rar.html
Saygılarımla,
 
Sayın Bakigemlik
CheckBox ların özeliklerden GroupName'lerine hepsi yaz, kodları da aşağıdaki gibi değiştirin.
Kod: 
Private Sub CommandButton1_Click()
Dim x As Control
For Each x In Me.Controls
If InStr(x.Name, "CheckBox") Then
If x.GroupName = "hepsi" Then
If x.Value = True Then
Son_Dolu_Satir = Sheets("Ana Dosya").Range("A65536").End(xlUp).Row
    Bos_Satir = Son_Dolu_Satir + 1
    Sheets("Ana Dosya").Range("A" & Bos_Satir).Value = _
    Application.WorksheetFunction.Max(Sheets("Ana Dosya").Range("A:A")) + 1
    Sheets("Ana Dosya").Range("A" & Bos_Satir).Value = UserForm1.ComboBox3.Text
    Sheets("Ana Dosya").Range("B" & Bos_Satir).Value = UserForm1.TextBox4.Text
    Sheets("Ana Dosya").Range("C" & Bos_Satir).Value = UserForm1.TextBox5.Text
    Sheets("Ana Dosya").Range("D" & Bos_Satir).Value = UserForm1.ComboBox6.Text
    Sheets("Ana Dosya").Range("E" & Bos_Satir).Value = UserForm1.TextBox7.Text
    Sheets("Ana Dosya").Range("F" & Bos_Satir).Value = UserForm1.ComboBox7.Text
    Sheets("Ana Dosya").Range("G" & Bos_Satir).Value = UserForm1.ComboBox2.Text
    Sheets("Ana Dosya").Range("H" & Bos_Satir).Value = UserForm1.TextBox1.Text
    Sheets("Ana Dosya").Range("L" & Bos_Satir).Value = UserForm1.TextBox9.Text
    Sheets("Ana Dosya").Range("J" & Bos_Satir).Value = x.Caption
End If
End If
End If
Next
    Application.ScreenUpdating = False
Unload UserForm2
Application.ScreenUpdating = True
         
End Sub
 
Bakibey merhaba,

Dosyanızı sitenin altın üyeleri ve uzmanları içinde yükleyebilir misiniz.
Eklediğiniz upload sitesine şirket bilgisayarından giremiyorum.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst