TexBoxlardaki Farklı Değerlerin Diğer Texboxta yazı ile birleştirilmesi ( KARAR )

[omeryılmaz]

:yardim: Arkadaşlar 15 tane alt alta sıralı texboxlardaki sıfırdan büyük değerlerdeki analiz protokollerinin yazdır dediğimde "Karar yazısı içersine" yazması gerekli.
İlginiz için şimdiden teşekkür eder. İyi çalışmalar dilerim...

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Private Sub UserForm_Initialize()
On Error Resume Next
Liste1.ListRows = 21
Liste1.Text = ""
Liste1.AddItem "Çorlu Sağ. Grp. Başkanlığı"
Liste1.AddItem "Çorlu 1 No'lu Sağ. Ocağı"
Liste1.AddItem "Çorlu 2 No'lu Sağ. Ocağı"
Liste1.AddItem "Çorlu 3 No'lu Sağ. Ocağı"
Liste1.AddItem "Çorlu 4 No'lu Sağ. Ocağı"
Liste1.AddItem "Çorlu 5 No'lu Sağ. Ocağı"
Liste1.AddItem "Çorlu 6 No'lu Sağ. Ocağı"
Liste1.AddItem "Çorlu 7 No'lu Sağ. Ocağı"
Liste1.AddItem "Çorlu 8 No'lu Sağ. Ocağı"
Liste1.AddItem "Çorlu 9 No'lu Sağ. Ocağı"
Liste1.AddItem "Çorlu 10 No'lu Sağ. Ocağı"
Liste1.AddItem "Çorlu 11 No'lu Sağ. Ocağı"
Liste1.AddItem "Marmaracık Sağ. Ocağı"
Liste1.AddItem "Misinli Sağ. Ocağı"
Liste1.AddItem "Pınarbaşı Sağ. Ocağı"
Liste1.AddItem "Ulaş Sağ. Ocağı"
Liste1.AddItem "Vakıflar Sağ. Ocağı"
Liste1.AddItem "Velimeşe Sağ. Ocağı"
Liste1.AddItem "Yenice Sağ. Ocağı"
With Liste1
.SelStart = 0
.SelLength = Len(Liste1)
End With
ComboBox1.ListRows = 3
ComboBox1.AddItem "Kontrol"
ComboBox1.AddItem "Özel"
ComboBox1.AddItem "Diğer."
With ComboBox1
.SelStart = 0
.SelLength = Len(ComboBox1)
End With
With TextBox763
        .EnterKeyBehavior = True
        .TabKeyBehavior = True
        .MultiLine = True
End With
For X = 719 To 761 Step 3
If Controls("TextBox" & X) > 0 And Controls("TextBox" & X) <> Empty Then
If VER&#304; = "" Then
VER&#304; = Controls("TextBox" & X - 2)
Else
VER&#304; = VER&#304; & " - " & Controls("TextBox" & X - 2)
End If
End If
Next
If VER&#304; <> "" Then
TextBox763 = "         KARAR : Analizi yap&#305;lan bakteriyolojik su numunelerinin; Resmi Gazetede yay&#305;mlanan 17 &#350;ubat 2005 tarih ve 25730 say&#305;l&#305; &#304;nsani T&#252;ketim Ama&#231;l&#305; Sular Hakk&#305;ndaki Y&#246;netmeli&#287;e g&#246;re;  (" & VER&#304; & ") protokol nolu numunelerin UYGUN OLMADI&#286;I di&#287;er numunelerin UYGUN OLDU&#286;UNU bildirir rapordur."
Else
TextBox763 = "              KARAR : Analizi yap&#305;lan bakteriyolojik su numunelerinin; Resmi Gazetede yay&#305;mlanan 17 &#350;ubat 2005 tarih ve 25730 say&#305;l&#305; &#304;nsani T&#252;ketim Ama&#231;l&#305; Sular Hakk&#305;ndaki Y&#246;netmeli&#287;e g&#246;re;   UYGUN OLDU&#286;UNU bildirir rapordur."
End If
End Sub

 

[omeryılmaz]

TexBoxlardaki Farklı Değerlerin Diğer Texboxta yazı ile birleştirmesi

Arkadaşım çalışman için teşekkür ederim. Ancak; 15 tane alt alta sıralı texboxlardaki sıfırdan büyük değerlerdeki analiz protokollerinin yazdır dediğimde "Karar yazısı içersine" yine yazırılmadı. Hepsini uygun gösteriyor..

 

[Korhan Ayhan]

Selamlar,

Ben çözümü ilk eklediğiniz örnek dosyaya göre vermiştim. Son ekledğiniz dosyada textboxlar boş. Hangi durumda textboxlara bilgi geliyor?

 

[omeryılmaz]

Numune sonucuna göre textboxlara değeri biz giriyoruz. Oradaki değerler her defasında değişiyor. Aslında formülünüz doğru teşekkür ederim. Yazdır butonuna eklendiğinde olay tamamlanmış görünüyor. Ancak üçüncü olasılıkta eklenebilirmi (Hepsi sıfırdan büyükse)
For X = 719 To 761 Step 3
If Controls("TextBox" & X) > 0 And Controls("TextBox" & X) <> Empty Then
If VER&#304; = "" Then
VER&#304; = Controls("TextBox" & X - 2)
Else
VER&#304; = VER&#304; & " - " & Controls("TextBox" & X - 2)
End If
End If
Next
If VER&#304; <> "" Then
TextBox763 = " KARAR : Analizi yap&#305;lan bakteriyolojik su numunelerinin; Resmi Gazetede yay&#305;mlanan 17 &#350;ubat 2005 tarih ve 25730 say&#305;l&#305; &#304;nsani T&#252;ketim Ama&#231;l&#305; Sular Hakk&#305;ndaki Y&#246;netmeli&#287;e g&#246;re; (" & VER&#304; & ") protokol nolu numunelerin UYGUN OLMADI&#286;I di&#287;er numunelerin UYGUN OLDU&#286;UNU bildirir rapordur."
Else
TextBox763 = " KARAR : Analizi yap&#305;lan bakteriyolojik su numunelerinin; Resmi Gazetede yay&#305;mlanan 17 &#350;ubat 2005 tarih ve 25730 say&#305;l&#305; &#304;nsani T&#252;ketim Ama&#231;l&#305; Sular Hakk&#305;ndaki Y&#246;netmeli&#287;e g&#246;re; UYGUN OLDU&#286;UNU bildirir rapordur."
End If
TextBox763 = " KARAR : Analizi yap&#305;lan bakteriyolojik su numunelerinin; Resmi Gazetede yay&#305;mlanan 17 &#350;ubat 2005 tarih ve 25730 say&#305;l&#305; &#304;nsani T&#252;ketim Ama&#231;l&#305; Sular Hakk&#305;ndaki Y&#246;netmeli&#287;e g&#246;re; (" & VER&#304; & ") protokol nolu numunelerin UYGUN OLMADI&#286;INI bildirir rapordur."
End If
End Sub

 

[Korhan Ayhan]

Selamlar,

Zaten d&#246;ng&#252; t&#252;m textboxlar&#305; kontrol edip VER&#304; k&#305;sm&#305;n&#305; o &#351;ekilde d&#252;zenliyor. Siz hepsini s&#305;f&#305;rdan b&#252;y&#252;k yap&#305;n ve kodu o &#351;ekilde deneyin.