ŞARTA GÖRE SIRALI TEXTBOX KUTUCUKLARININ DOLDURULMASI

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

ŞARTA GÖRE SIRALI TEXTBOX KUTUCUKLARININ DOLDURULMASI

İleti#1)  oerbas » 13 Oca 2023 10:53

Hayırlı Günleriniz olsun.
UserForm üzerindeki TextBox31 değeri 1 olduğunda birden otuzbire kadar sıralı olan TextBox kutucuklarının içine otomatik 1 yazılsın. Eğer TextBox31 değeri 2 ise birden otuzbire kadar olan sıralı TextBox Kutucuklarının içi boş olsun hiçbirşey yazmasın istiyorum. Bir döngü yazmaya çalıştım ama beceremedim yardımcı olabilirmisiniz
Kullanıcı avatarı
oerbas
Yeni Başlamış
 
Adı Soyadı:ÖMER ERBŞA
Kayıt: 03 Şub 2013 19:16
Konum: KARTAL
Meslek: MEMUR
Yaş: 52
İleti: 46
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İSTANBUL-PENDİK

Yıllık Maaş Bordrosu Hesaplama 2022

Cevap: ŞARTA GÖRE SIRALI TEXTBOX KUTUCUKLARININ DOLDURULMASI

İleti#2)  oerbas » 13 Oca 2023 10:54

oerbas yazdı:Hayırlı Günleriniz olsun.
UserForm üzerindeki TextBox32 değeri 1 olduğunda birden otuzbire kadar sıralı olan TextBox kutucuklarının içine otomatik 1 yazılsın. Eğer TextBox32 değeri 2 ise birden otuzbire kadar olan sıralı TextBox Kutucuklarının içi boş olsun hiçbirşey yazmasın istiyorum. Bir döngü yazmaya çalıştım ama beceremedim yardımcı olabilirmisiniz
Kullanıcı avatarı
oerbas
Yeni Başlamış
 
Adı Soyadı:ÖMER ERBŞA
Kayıt: 03 Şub 2013 19:16
Konum: KARTAL
Meslek: MEMUR
Yaş: 52
İleti: 46
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İSTANBUL-PENDİK

Cevap: ŞARTA GÖRE SIRALI TEXTBOX KUTUCUKLARININ DOLDURULMASI

İleti#3)  arschimet » 13 Oca 2023 12:18

Deneyin
Kod: Tümünü seç
If UserForm1.TextBox31 = 1 Then
For i = 1 To 30
UserForm1.Controls("TextBox" & i) = 1
Next
ElseIf UserForm1.TextBox31 = 2 Then
For i = 1 To 30
UserForm1.Controls("TextBox" & i) = ""
Next
End If

Kullanıcı avatarı
arschimet
Yeni Başlamış
 
Kayıt: 06 Ağu 2019 09:14
Meslek: Topoğraf
Yaş: 43
İleti: 12
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Konya

Cevap: ŞARTA GÖRE SIRALI TEXTBOX KUTUCUKLARININ DOLDURULMASI

İleti#4)  oerbas » 13 Oca 2023 16:33

Hocam tam olarak ifate etmem gerekirse maaş puantajı pıyorum. Yemek yemeyen personel yemek ücreti ödenmesi lazım Bunun için birden otuzbire kadar 31 adet TextBox kutusu oluşturdum. Herbir TextBox ayın günlerini ifade ediyor. YEMEK isimli TextBox değeri "1" ise TextBox kutularının içine "1" yazılsın istiyorum. Burada Şunu ifade etmem gerekiyor. Ayın biri ile otuzbiri arasındaki TextBox kutucuklarının isimlendirdim. Ayın bir için Ayın_1, ikisi için Ayın_2, Ayın üçü için Ayın_3, ....................Ayın_31 şeklinde

YEMEK olarak isimlendirdiğim TextBox'un değer 1 ise Ayın_1 ile Ayın_31 olarak isimlendirdiğim TextBox kutucuklarının içine "1" sayısal değeri girilsin istiyorum. Aksi halde TextBox kutucukları boş olsun
Kullanıcı avatarı
oerbas
Yeni Başlamış
 
Adı Soyadı:ÖMER ERBŞA
Kayıt: 03 Şub 2013 19:16
Konum: KARTAL
Meslek: MEMUR
Yaş: 52
İleti: 46
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İSTANBUL-PENDİK

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

Cevap: ŞARTA GÖRE SIRALI TEXTBOX KUTUCUKLARININ DOLDURULMASI

İleti#5)  arschimet » 14 Oca 2023 09:48

Kod: Tümünü seç
If TextBox1 = 1 Then
For i = 1 To 3
UserForm2.Controls("Ayın_" & i) = 1
Next
ElseIf TextBox1 = 2 Then
For i = 1 To 3
UserForm2.Controls("Ayın_" & i) = 2
Next
Else
For i = 1 To 3
UserForm2.Controls("Ayın_" & i) = ""
Next
End If

Kullanıcı avatarı
arschimet
Yeni Başlamış
 
Kayıt: 06 Ağu 2019 09:14
Meslek: Topoğraf
Yaş: 43
İleti: 12
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Konya


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Yandex[Bot] ve 0 misafir

Bumerang - Yazarkafe