CheckBox ile istediğim yere istediğim kelimeyi yazdırma sorunu ?

[rekormuhendislik]

İyi Günler
CheckBox ları seçersem istediğim satıra 1 yazsın istiyorum.
seçmezsem ne yazdığı önemli değil. kullandığım kodlar ve resim ayrıyeten de programı ekledim.

yapmak istediğim müşteriye teslim ettiğim işi sisteme kaydetmek bunda da adım adım ne kullandıysam onu yapmak. Misal kolon yapmışım ve düz kombi vermişim müşteriye. bunları da farklı bir tabloda toplayıp aylık ve yıllık bazda veri alacağım. CheckBox kısmına yardımcı olursanız diğerlerini kendi imkanlarımla yapacağım arkadaşlar.


Kullandığım kod budur arkadaşlar.

ActiveCell.Offset(0, 8) "CheckBox1= kolon"
ActiveCell.Offset(0, 9) "CheckBox2= daire içi"
ActiveCell.Offset(0, 10) "CheckBox3= düz kombi"
ActiveCell.Offset(0, 11) "CheckBox4= yoğuşmalı kombi"

Private Sub CommandButton1_Click()
If TextBox2.Text <> "" Then
Application.DisplayAlerts = False
Sheets("GAZ_AÇILIMI").Select

b = WorksheetFunction.CountA(Sheets("GAZ_AÇILIMI").Range("A:A"))
Sheets("GAZ_AÇILIMI").Range("a" & b + 1).Select
ActiveCell = TextBox1.Value
ActiveCell.Offset(0, 1) = TextBox2.Value
ActiveCell.Offset(0, 2) = TextBox3.Value
ActiveCell.Offset(0, 3) = TextBox4.Value
ActiveCell.Offset(0, 4) = TextBox5.Value
ActiveCell.Offset(0, 5) = TextBox6.Value
ActiveCell.Offset(0, 12) = TextBox7.Value
ActiveCell.Offset(0, 13) = TextBox8.Value
ActiveCell.Offset(0, 6) = ComboBox1.Value
ActiveCell.Offset(0, 7) = ComboBox2.Value

MsgBox "Verileriniz Kaydedildi. Form boşaltılıyor "
For i = 2 To 7
Me.Controls("textbox" & i) = ""
Next i
TextBox8 = ""
ComboBox1.Value = ""
ComboBox2.Value = ""


ThisWorkbook.Save
UserForm_Initialize
Application.DisplayAlerts = True
Else
MsgBox " tarih gir"
End If

End Sub

Program= http://dosya.co/dw1m2og5og2j/REKOR_SON_PROGRAM.rar.html

 

[PLİNT]

Merhaba

Aşağıdaki kırmızı bölümleri ekleyerek denermisiniz?

[SIZE="2"]Private Sub CommandButton1_Click()
If TextBox2.Text <> "" Then
Application.DisplayAlerts = False
Sheets("GAZ_AÇILIMI").Select

b = WorksheetFunction.CountA(Sheets("GAZ_AÇILIMI").Range("A:A"))
Sheets("GAZ_AÇILIMI").Range("a" & b + 1).Select
ActiveCell = TextBox1.Value
ActiveCell.Offset(0, 1) = TextBox2.Value
ActiveCell.Offset(0, 2) = TextBox3.Value
ActiveCell.Offset(0, 3) = TextBox4.Value
ActiveCell.Offset(0, 4) = TextBox5.Value
ActiveCell.Offset(0, 5) = TextBox6.Value
ActiveCell.Offset(0, 12) = TextBox7.Value
ActiveCell.Offset(0, 13) = TextBox8.Value
ActiveCell.Offset(0, 6) = ComboBox1.Value
ActiveCell.Offset(0, 7) = ComboBox2.Value
[COLOR="red"]For j = 1 To 4
If Me.Controls("CheckBox" & j).Value = True Then
ActiveCell.Offset(0, 7 + j) = 1
End If
Next[/COLOR]
MsgBox "Verileriniz Kaydedildi. Form boşaltılıyor "
For i = 2 To 7
[COLOR="Red"]If i < 6 Then Me.Controls("CheckBox" & i - 1).Value = False[/COLOR]
Me.Controls("textbox" & i) = ""
Next i
TextBox8 = ""
ComboBox1.Value = ""
ComboBox2.Value = ""
ThisWorkbook.Save
UserForm_Initialize
Application.DisplayAlerts = True
Else
MsgBox " tarih gir"
End If

End Sub
[/SIZE]

 

[rekormuhendislik]

Merhaba
Sadece bir "CheckBox" ın işaretleneceğini varsayarak;
aşağıdaki kırmızı bölümleri ekleyerek denermisiniz?

[SIZE="2"]Private Sub CommandButton1_Click()
If TextBox2.Text <> "" Then
Application.DisplayAlerts = False
Sheets("GAZ_AÇILIMI").Select

b = WorksheetFunction.CountA(Sheets("GAZ_AÇILIMI").Range("A:A"))
Sheets("GAZ_AÇILIMI").Range("a" & b + 1).Select
ActiveCell = TextBox1.Value
ActiveCell.Offset(0, 1) = TextBox2.Value
ActiveCell.Offset(0, 2) = TextBox3.Value
ActiveCell.Offset(0, 3) = TextBox4.Value
ActiveCell.Offset(0, 4) = TextBox5.Value
ActiveCell.Offset(0, 5) = TextBox6.Value
ActiveCell.Offset(0, 12) = TextBox7.Value
ActiveCell.Offset(0, 13) = TextBox8.Value
ActiveCell.Offset(0, 6) = ComboBox1.Value
ActiveCell.Offset(0, 7) = ComboBox2.Value
[COLOR="red"]For j = 1 To 4
If Me.Controls("CheckBox" & j).Value = True Then
ActiveCell.Offset(0, 7 + j) = 1
Exit For
End If
Next[/COLOR]
MsgBox "Verileriniz Kaydedildi. Form boşaltılıyor "
For i = 2 To 7
Me.Controls("textbox" & i) = ""
Next i
TextBox8 = ""
ComboBox1.Value = ""
ComboBox2.Value = ""
[COLOR="Red"] Me.Controls("CheckBox" & j).Value = False[/COLOR]

ThisWorkbook.Save
UserForm_Initialize
Application.DisplayAlerts = True
Else
MsgBox " tarih gir"
End If

End Sub[/SIZE]

teşekkür ederim tam istediğim gibi olmuş lakin tek birşey kalmış onu da yapabilirseniz inanın çok mutlu olacağım.

Aynı anda birden fazlasını seçme durumum var. 4 ünü birden seçersem 4 ünde de 1 yazsın istiyorum. yada 2 sini seçersem seçtiğim ikisin de 1 yazsın istiyorum. Yapabilirmiyiz Peki ?

 

[PLİNT]

Merhaba
Yukarıdaki; (2.mesaj) kodlarda değişen şekliyle deneyelim.

 

[rekormuhendislik]

Teşekkür ediyorum tam istediğim gibi oldu. Beni büyük bir yükten kurtardın inan :icelim: :mutlu:ost::bravo::bravo::bravo: