ExcelVBA.Net sitesine katkıda bulunabilirsiniz

[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?

[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


[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


[malatyali]

Sayın Okutkan
Tüm textboxları bir seferde tek kod ile aktarmak istemiştim.

[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


[okutkan]

For d = 7 To 38

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

[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



[malatyali]

Eline koluna canına sağlık.
Allah razı olsun. Çok teşekkür ederim.