1 sayfadan 1. sayfa

sayfaya çoklu textboxları aktarma

İletiTarih: 27 Kas 2020 12:00
malatyali
Ekli dosyamda PUANTAJ sayfasında Form butonu ile formu açtığımız zaman
Birim Adı ve Birim Amiri kısmına manuel veri girişi yapıyorum.
Çalışanın Adı Soyadı kısmı textboxa çift tık ile açılan userformdan personel adı seçiyorum.
Yıl ve Ay şeçildikten sonra Puantaj girişine haftasonu hariç günlere "x" geliyor.
Kaydet butonu ile
Tüm bilgileri sayfaya aktarıyorum ancak;
1 - Labellerde ki sayıları PUANTAJ sayfasında G6 : AL6 arasına
2 - Çalışan personele göre de puantajda ki textboxları G7 : AL7 arasına alt alta aktarmayı yapamadım. Sitede bunun ile ilgili örneklerde buldum ama kendi dosyama uyarlayamadım.

İlgili dosya ekte sunulmuştur. Rica etsem yardımcı olabilir misiniz?

Cevap: sayfaya çoklu textboxları aktarma

İletiTarih: 27 Kas 2020 13:03
okutkan
Label metnini hücreye aktarmak için aşağıdaki kodu kullanabilirsiniz.
Kod: Tümünü seç
Sheets("Puantaj").Range("g6").Value = Label1.Caption

Cevap: sayfaya çoklu textboxları aktarma

İletiTarih: 27 Kas 2020 13:17
okutkan
Ayın günlerinin bulunduğu textboxları hücrelere yazdırmak için aşağıdaki kodu kullanabilirsiniz.
Ayın 15.günü için kod
Kod: Tümünü seç
Sheets("Puantaj").Cells(son, "g") = TextBox1.Value

Cevap: sayfaya çoklu textboxları aktarma

İletiTarih: 27 Kas 2020 19:15
malatyali
Sayın Okutkan
Tüm textboxları bir seferde tek kod ile aktarmak istemiştim.

Cevap: sayfaya çoklu textboxları aktarma

İletiTarih: 28 Kas 2020 18:58
okutkan
Kod: Tümünü seç
e = 1
For d = 7 To 38

Sheets("Puantaj").Cells(son, d) = Controls("textbox" & e).Text
e = e + 1

Next d

Cevap: sayfaya çoklu textboxları aktarma

İletiTarih: 28 Kas 2020 19:01
okutkan
For d = 7 To 38

Buradaki 38 sayısını 37 olarak değiştirerek uygulayın

Cevap: sayfaya çoklu textboxları aktarma

İletiTarih: 28 Kas 2020 19:13
okutkan
Labbellerin üzerindeki ayın günlerini yazdırmak istersen aşağıdaki kodu kullanabilirsin. Kodu buton içerisindeki msgbox un bir üst satırında kullanabilirsin.

Ayrıca, labellerin isimleri 1,2,3.....17,19,20 şeklinde olduğu için hata alırsın, çünkü label18 i atlamışsın. Ayın 1 ini gösteren labelden itabaren Label18,Label19,Label20... olarak değiştirmen gerekiyor.



Kod: Tümünü seç

e = 1
f = 1
For d = 7 To 37

Sheets("Puantaj").Cells(son, d) = Controls("textbox" & e).Text

Sheets("Puantaj").Cells(6, d).Value = Controls("label" & f).Caption
e = e + 1
f = f + 1

Next d


Cevap: sayfaya çoklu textboxları aktarma

İletiTarih: 29 Kas 2020 05:06
malatyali
Eline koluna canına sağlık.
Allah razı olsun. Çok teşekkür ederim.