TextBox'a bir harf ve bir işaret sabitlenirmi

[hassan26]

Selam Arkadaşlar
1-TextBox'a C- harf ve işaretini sabitleyebiliyormuyuz. (Devamına sayı girilecek.)
2-Sabitleyemiyorsak TextBox'a veriyi girerken klavyeden ilk herhangi bir tuşa basınca yada üstüne mouse ile tıklayınca C- harf ve işareti yazılacak. (Devamına sayı girilecek)
3- TextBoxt'an her hücreye veri aktarıyoruzda, Hücredeki veriyi Textbox'a aktarabiliyormuyuz. Örneğin TextBox1'e bir numara yazdık komut ARŞİV sayfasına baktı bu numaradan bulamadı ozaman ENVANTER dosyasındaki (İki sütun B,C biri dolu birisi boş) B kolonundaki ilk yanı boş olan veriyi TextBox2'ye yazsın (Yan C sütunu)

 

[Korhan Ayhan]

Selamlar,

Birinci ve ikinci sorunuzun çözümünü ekteki dosyada bulabilirsiniz. Üçüncü sorunuz içinde örnek dosya ekleyip tarfi edermisiniz.

 

[hassan26]

Sayın Korhan Ayhan teşekkür ederim ilginize
Bir sorun çıktı yazdığınız kod güzel çalışıyor ama CommandButtona atanmış başka komut textboxta yazılı bir değer (C-) görünce işlemi yerine getiriyor. Bunu engellemek için C- den sonra 6 adet sayı daha girmeye zorlayabilirmiyiz. Yani C-850569 tamamlanmadan işlemi gerçekleştirmesin . CommandButton'a atanmış kod içinde textbox boşken işlemi gerçekleştirme yazıyor şimdi C- yi sabitleyince Textbox'ı boş görmüyor. Bu yüzden 6 rakam daha girmeye zorlamam gerekiyor kullanıcıyı.
3. sorum için örneği hazırlayıp göndereceğim.
Saygılar

 

[Korhan Ayhan]

Selamlar,

Kullandığınız butona aşağıdaki sorgulamayı ekleyin.

Private Sub CommandButton1_Click()
    If Len(TextBox1) < 8 Then
    MsgBox "Eksik bilgi giri&#351;i ! L&#252;tfen kontrol ediniz.", vbExclamation, "Dikkat !"
    TextBox1.SetFocus
    Exit Sub
    End If
End Sub

 

[hassan26]

Selam Korhan bey
örneği ekledim bakabilirseniz memnun olurum.
Teşekkürler.
Arkadaşlar buradaki örneği kaldırdım kafa karıştırmaması için.
Geri kaldırdım

 

[hassan26]

Üstad birde
Private Sub TextBox9_Change()
If TextBox9 = "" Then TextBox9 = "C-"
If Len(TextBox9) > 2 And Not IsNumeric(Right(TextBox9, 1)) = True Then
Application.SendKeys "{BACKSPACE}"
End If
TextBox9.SelStart = Len(TextBox1)
Exit Sub
Sheets("KAYIT").Select
Columns("B:B").Select
On Error Resume Next
Selection.Find(What:=TextBox9.Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
True, SearchFormat:=False).Activate
Label5.Caption = ActiveCell.Offset(0, 4).Value
Label6.Caption = ActiveCell.Offset(0, 2).Value
Label7.Caption = ActiveCell.Offset(0, 3).Value
Label4.Caption = ActiveCell.Offset(0, 1).Value
End Sub
Private Sub TextBox9_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 36 Or KeyCode = 37 Then KeyCode = 0
End Sub
kodunda sizin verdiğiniz kod devamında komut yazmayan TextBoxlarda iyi çalışıyor ama yukarıdaki gibi devamında kod yazıyorsa sayıyı tersten yazıyor ne yaptıysam çeviremedim.

 

[hassan26]

Sayın Korhan Üstad ne desen haklısın üstteki soruyu görmezden gelin
TextBox9.SelStart = Len(TextBox1)
kendim çalıp kendim oynuyorum hata gözümün önünde saatlerdir tırmalıyorum.
beynim sulandı özürdiliyorum.

 

[hassan26]

Selam Arkadaşlar
Sevgili korhan üstad ve bu konuya bakan arkadaşlar 1 ve 2'de sorduklarımı soğolsun üstad cevapladı 3. sorumuda sonunda kendim çözebildim.
Yanlış anlaşılma olmasın konuya bakan arkadaşların çözüm üretmek için değerli vakitlerini kaybetmemeleri açısından bu notu yazdım.
Bilgilerinize.
Saygılar.

 

[Korhan Ayhan]

Selamlar,

Soruyu çözdüğünüzü belirtmişsiniz ama fikir vermesi açısından hazıradığım kodu vermek istedim.

Formun UserForm_Initialize olayına kırmızı eklentiyi yapın.

Private Sub UserForm_Initialize()
    TextBox1 = "C-"
    [COLOR=red]TextBox5.Enabled = False[/COLOR]
End Sub

Bu koduda formunuza ekleyip deneyin.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Set SK = Sheets("KAYIT")
    Set SD = Sheets("DATA")
    If TextBox1 <> "" And Len(TextBox1) = 8 Then
    For X = 2 To SK.[A65536].End(3).Row
    If TextBox1 >= SK.Cells(X, 2) And TextBox1 <= SK.Cells(X, 3) Then
    MsgBox "BU SER&#304; DAHA &#214;NCE Z&#304;MMETLENM&#304;&#350;T&#304;R !", vbCritical, "D&#304;KKAT !"
    Exit For
    Else
    TextBox5 = SD.Cells(SD.[C65536].End(3).Offset(1).Row, 2)
    End If
    Next
    End If
End Sub

 

[hassan26]

Sayı Korhan Ayhan teşekkür ederim
uğraştığım bir yer vardı verdiğiniz kodu Textbox5 kısmını kaldırıp burada kullandım ilaç oldu. Diğer kısımları halettim datadan verdiğini siliyor kullanıcıda mecburen comboboxta görüleni seçmek zorunda kalıyor.
İlginize çok teşekkür ederim kalın sağlıcakla.