[Yardım]  sayfaya çoklu textboxları aktarma

Metin Kutucuğu. Bir programcının olmazsa olmazlarındandır.

sayfaya çoklu textboxları aktarma

İleti#1)  malatyali » 27 Kas 2020 12:00

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?
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
malatyali
Siteye Alışmış
 
Adı Soyadı:ilhan YÜKSEL
Kayıt: 20 Kas 2008 10:08
Konum: Malatya
Meslek: Meb ilçe milli eğitim şef
Yaş: 46
İleti: 238
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Malatya / Merkez

Cevap: sayfaya çoklu textboxları aktarma

İleti#2)  okutkan » 27 Kas 2020 13:03

Label metnini hücreye aktarmak için aşağıdaki kodu kullanabilirsiniz.
Kod: Tümünü seç
Sheets("Puantaj").Range("g6").Value = Label1.Caption
Excel VBA konusunda profesyonel değilim. Excel VBA öğrenmeye çalışıyorum.
Sorulara cevap vermek için araştırıyorum; araştırdıkça daha fazlasını öğreniyorum.
Kullanıcı avatarı
okutkan
Site Dostu
 
Kayıt: 27 May 2017 02:45
Meslek: pol. mem.
Yaş: 29
İleti: 752
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DENİZLİ

Cevap: sayfaya çoklu textboxları aktarma

İleti#3)  okutkan » 27 Kas 2020 13:17

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
Excel VBA konusunda profesyonel değilim. Excel VBA öğrenmeye çalışıyorum.
Sorulara cevap vermek için araştırıyorum; araştırdıkça daha fazlasını öğreniyorum.
Kullanıcı avatarı
okutkan
Site Dostu
 
Kayıt: 27 May 2017 02:45
Meslek: pol. mem.
Yaş: 29
İleti: 752
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DENİZLİ

Cevap: sayfaya çoklu textboxları aktarma

İleti#4)  malatyali » 27 Kas 2020 19:15

Sayın Okutkan
Tüm textboxları bir seferde tek kod ile aktarmak istemiştim.
Kullanıcı avatarı
malatyali
Siteye Alışmış
 
Adı Soyadı:ilhan YÜKSEL
Kayıt: 20 Kas 2008 10:08
Konum: Malatya
Meslek: Meb ilçe milli eğitim şef
Yaş: 46
İleti: 238
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Malatya / Merkez

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

Cevap: sayfaya çoklu textboxları aktarma

İleti#5)  okutkan » 28 Kas 2020 18:58

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
Excel VBA konusunda profesyonel değilim. Excel VBA öğrenmeye çalışıyorum.
Sorulara cevap vermek için araştırıyorum; araştırdıkça daha fazlasını öğreniyorum.
Kullanıcı avatarı
okutkan
Site Dostu
 
Kayıt: 27 May 2017 02:45
Meslek: pol. mem.
Yaş: 29
İleti: 752
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DENİZLİ

Cevap: sayfaya çoklu textboxları aktarma

İleti#6)  okutkan » 28 Kas 2020 19:01

For d = 7 To 38

Buradaki 38 sayısını 37 olarak değiştirerek uygulayın
Excel VBA konusunda profesyonel değilim. Excel VBA öğrenmeye çalışıyorum.
Sorulara cevap vermek için araştırıyorum; araştırdıkça daha fazlasını öğreniyorum.
Kullanıcı avatarı
okutkan
Site Dostu
 
Kayıt: 27 May 2017 02:45
Meslek: pol. mem.
Yaş: 29
İleti: 752
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DENİZLİ

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: sayfaya çoklu textboxları aktarma

İleti#7)  okutkan » 28 Kas 2020 19:13

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

Excel VBA konusunda profesyonel değilim. Excel VBA öğrenmeye çalışıyorum.
Sorulara cevap vermek için araştırıyorum; araştırdıkça daha fazlasını öğreniyorum.
Kullanıcı avatarı
okutkan
Site Dostu
 
Kayıt: 27 May 2017 02:45
Meslek: pol. mem.
Yaş: 29
İleti: 752
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DENİZLİ

Cevap: sayfaya çoklu textboxları aktarma

İleti#8)  malatyali » 29 Kas 2020 05:06

Eline koluna canına sağlık.
Allah razı olsun. Çok teşekkür ederim.
Kullanıcı avatarı
malatyali
Siteye Alışmış
 
Adı Soyadı:ilhan YÜKSEL
Kayıt: 20 Kas 2008 10:08
Konum: Malatya
Meslek: Meb ilçe milli eğitim şef
Yaş: 46
İleti: 238
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Malatya / Merkez


Forum TextBox

Online Kullanıcılar

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

Bumerang - Yazarkafe