[Yardım]  UserForm'a Veriler Gelsin...

UserForm ve üzerine eklenecek nesneler ile ilgili bilgileri bu alanda bulabilirsiniz.

UserForm'a Veriler Gelsin...

İleti#1)  katip16487 » 26 Eyl 2018 23:41

Merhabalar, öncelikle herkese kolaylıklar diliyorum.

Excelde birçok şeyi yapabiliyorum, ancak ilk defa UserForm oluşturmayı denedim ve bayağı bi gelişme kaydettim. Ancak bir sorunum var.

A1, A2, A3, A4, A5 hücrelerine veri girişi yapılmakta.

Bunun için UserForm'da TextBox kullanmaktayım.

UserForm'u açıp açtığım UserForma verileri girdiğimde excel dosyasında ilgili hücrelere verileri aktarıyor.

Ancak, her UserFormu aç dediğimde UserForm bilgileri boş geliyor.

Amacım ise UserFormu açtığımda UserForm'da yer alan TextBox'lara A1, A2, A3, A4 ve A5 hücrelerindeki verilerin otomatik olarak gelmesi ve sonrasında güncelleme yaptığımda yeni verileri kaydet butonu ile ilgili hücrelere aktarması...

Saygılarımla...
Kullanıcı avatarı
katip16487
Yeni Başlamış
 
Adı Soyadı:AHMET REVAN KULA
Kayıt: 18 Nis 2012 20:09
Konum: Konya ili, Ereğli ilçesi, Hacımustafa mahallesi
Meslek: İcra Müdür Yardımcısı
Yaş: 40
İleti: 54
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Konya ili, Ereğli ilçesi, Hacımustafa mahallesi

Cevap: UserForm'a Veriler Gelsin...

İleti#2)  katip16487 » 27 Eyl 2018 00:13

Private Sub CommandButton1_Click()
RowCount = Worksheets("verigiris").Range("a1").CurrentRegion.Rows.Count
With Worksheets("verigiris").Range("a1")
.Range("c1").Value = ComboBox1.Value
.Range("c2").Value = ComboBox2.Value
.Range("c3").Value = TextBox1.Value
.Range("c4").Value = TextBox2.Value
.Range("c6").Value = TextBox3.Value
.Range("b7").Value = ComboBox3.Value
.Range("b8").Value = ComboBox4.Value
.Range("b9").Value = ComboBox5.Value
.Range("b10").Value = ComboBox6.Value
.Range("b11").Value = ComboBox7.Value
.Range("c13").Value = ComboBox8.Value
.Range("c14").Value = ComboBox9.Value
.Range("E4").Value = TextBox4.Value
.Range("E5").Value = TextBox5.Value
.Range("E6").Value = TextBox6.Value
.Range("E7").Value = TextBox7.Value
.Range("E8").Value = TextBox8.Value
.Range("E9").Value = TextBox9.Value
.Range("G5").Value = TextBox10.Value
.Range("G6").Value = TextBox11.Value
.Range("G7").Value = TextBox12.Value
.Range("G8").Value = TextBox13.Value
.Range("G9").Value = TextBox14.Value
Unload Me

MsgBox "Veriler tabloda ilgili yerlere aktarıldı.", vbOKOnly + vbInformation, "U Y A R I"

End With

End Sub

Kullanmakta olduğum KAYDET butonuna ilişkin kod bu şekilde.
Amacımı da şöyle tekrar anlatayım. UserForm açıldığında Combobox1'e C1 hücresindeki veri, Combobox2'ye C2 hücresindeki veri, TextBox1'e C3 hücresindeki veri şeklinde tüm verileni UserForma gelmesi ve sonrasında ben gerekli düzenlemeleri yaptıktan sonra kaydet butonuna bastığımda UserFormdaki verileri ilgili yerlere güncelleyerek aktarması ve UserFormdaki verileri silmemesi.

İkinci bir sorunum ise tüm TextBox hücrelerine Parasal Değer girmem gerekiyor, örneğin 35,90 TL, 1.000,00 TL, 12.345,67 TL gibi.

Bunu ne şekilde sağlayabilirim.

Herkese çok teşekkür ederim.

Kolaylıklar diliyorum.

Şimdiden teşekkürler...
Kullanıcı avatarı
katip16487
Yeni Başlamış
 
Adı Soyadı:AHMET REVAN KULA
Kayıt: 18 Nis 2012 20:09
Konum: Konya ili, Ereğli ilçesi, Hacımustafa mahallesi
Meslek: İcra Müdür Yardımcısı
Yaş: 40
İleti: 54
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Konya ili, Ereğli ilçesi, Hacımustafa mahallesi

Cevap: UserForm'a Veriler Gelsin...

İleti#3)  katip16487 » 27 Eyl 2018 10:19

Sorunumun ilk kısmını TextBox özelliklerinde yer alan bilgilerden çözdüm.

Şimdi kaldı ikinci kısmı...
Kullanıcı avatarı
katip16487
Yeni Başlamış
 
Adı Soyadı:AHMET REVAN KULA
Kayıt: 18 Nis 2012 20:09
Konum: Konya ili, Ereğli ilçesi, Hacımustafa mahallesi
Meslek: İcra Müdür Yardımcısı
Yaş: 40
İleti: 54
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Konya ili, Ereğli ilçesi, Hacımustafa mahallesi

Cevap: UserForm'a Veriler Gelsin...

İleti#4)  cpl18 » 28 Oca 2020 14:50

TextBox74 = Format(Sheets(1).Range("b6"), "#,##0.00")

TextBox'ın numarasını kendine göre ayarlarsın. Ben kendi formumdaki parasal işleri bu formül ile çözdüm.
Kullanıcı avatarı
cpl18
 
Adı Soyadı:Ali DEMİR
Kayıt: 13 Nis 2011 10:47
İleti: 7
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ÇANKIRI

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Forum UserForm ve Diğer Nesneler

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe