Textboxları belirli hücrelere kayıt etme

[odin]

merhaba arkadaşlar;

sabahtan beri formu aradım fakat bulamadım sonun da yazmaya karar verdi
ekteki örnekte 12 adet textbox var 1. günü seçtigimde a1:d3 arasına kaydet butonu ile kayıt etmek istiyorum 2. günü seçtiğimde a5:d7 arası kayıt etmek istiyorum normal olarak yazarsak ve 31 gün üzerinden çok cod yazmak gerekeçek

saygılar.

 

[Levent Menteşoğlu]

Checkbox isimleri, checkbox1,checkbox2,....,checkbox31 şeklinde sıralı gitmesi kaydı ile aşağıdaki kodu deneyin.

Private Sub CommandButton1_Click()
Dim hucre As Range
For a = 0 To 3
If Controls("CheckBox" & a + 1).Value = True Then
c = a * 4 + 1
adr = "a" & c & ":d" & c + 2
For Each hucre In Range(adr)
d = d + 1
hucre = Controls("textbox" & d)
Next
d = 0
End If
Next
End Sub

Not: Eğer her seferinde sadece bir gün değeri seçilecekse checkbox yerine optionbutton kullanmanızı öneririm.

 

[odin]

usta sabahtan beri bunu arıyordum çok teşekkürler


saygılar.

 

[odin]

Sayın leventm;

vermiş olduğunuz bu kodun bul macrosu nasıldır.
optionbutton tıkladığım zaman verileri bana geri textboxlara nasıl getire biliriz.

saygılar.

 

[Levent Menteşoğlu]

Sorunuzu biraz daha açarmısınız yada bir örnek dosya ekleyin.

 

[odin]

yukarda vermiş olduğunuz kod ile 31 günü kayıt ediyoruz.tekrar bu kayıtları
textboxlarda nasıl göstere biliriz.örnek olarak 1.günün kayıtlarını görmek istersem nasıl bir kod yazmaklazım.Umarım anlata bilmişimdir.

saygılar.

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

Dim hucre As Range
For a = 0 To 3
If Controls("CheckBox" & a + 1).Value = True Then
c = a * 4 + 1
adr = "a" & c & ":d" & c + 2
For Each hucre In Range(adr)
d = d + 1
[COLOR=blue][B]Controls("textbox" & d)=hucre[/B][/COLOR]
Next
d = 0
End If
Next

 

[odin]

Aşağıdaki gibi deneyin.

Dim hucre As Range
For a = 0 To 3
If Controls("CheckBox" & a + 1).Value = True Then
c = a * 4 + 1
adr = "a" & c & ":d" & c + 2
For Each hucre In Range(adr)
d = d + 1
[COLOR=blue][B]Controls("textbox" & d)=hucre[/B][/COLOR]
Next
d = 0
End If
Next

yüreğine sağlık usta

 

[odin]

Checkbox isimleri, checkbox1,checkbox2,....,checkbox31 şeklinde sıralı gitmesi kaydı ile aşağıdaki kodu deneyin.

Private Sub CommandButton1_Click()
Dim hucre As Range
For a = 0 To 3
If Controls("CheckBox" & a + 1).Value = True Then
c = a * 4 + 1
adr = "a" & c & ":d" & c + 2
For Each hucre In Range(adr)
d = d + 1
hucre = Controls("textbox" & d)
Next
d = 0
End If
Next
End Sub

Not: Eğer her seferinde sadece bir gün değeri seçilecekse checkbox yerine optionbutton kullanmanızı öneririm.

merhaba arkadaşlar;

sayın leventm vermiş olduğu bu kodla kayıt yapıldığı zaman hücrelere metin olarak kaydediyor. örnek olarak
hucre = Controls("textbox" & d) * 1 yapınca kod hata veriyor.Yardımlarınız için
şimdiden teşşekkürler.

saygılar.

 

[hamitcan]

Aşağıdaki şekilde deneyin...

hucre =Val(Controls("textbox" & d))

 

[odin]

Aşağıdaki şekilde deneyin...

hucre =Val(Controls("textbox" & d))

hem sayı hemde metin girebilirmiyiz.

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

[LEFT]Private Sub CommandButton1_Click()
Dim hucre As Range
For a = 0 To 3
If Controls("CheckBox" & a + 1).Value = True Then
c = a * 4 + 1
adr = "a" & c & ":d" & c + 2
For Each hucre In Range(adr)
d = d + 1
hucre = Controls("textbox" & d)
[COLOR=blue][B]if isnumeric(hucre)=true then hucre=controls("textbox" & d)*1
[/B][/COLOR]Next
d = 0
End If
Next
End Sub[/LEFT]

 

[odin]

Aşağıdaki gibi deneyin.

[LEFT]Private Sub CommandButton1_Click()
Dim hucre As Range
For a = 0 To 3
If Controls("CheckBox" & a + 1).Value = True Then
c = a * 4 + 1
adr = "a" & c & ":d" & c + 2
For Each hucre In Range(adr)
d = d + 1
hucre = Controls("textbox" & d)
[COLOR=blue][B]if isnumeric(hucre)=true then hucre=controls("textbox" & d)*1
[/B][/COLOR]Next
d = 0
End If
Next
End Sub[/LEFT]

eyvallah usta ellerin dert görmesin