userform-option button-ScrollBar hk.

[Erhan Üstünel]

slm, hazırladığım user formda bulamadığım bazı sıkıntılarım oldu,
ScrollBar - option button ve frame içindeki textbox hakkında,

yardımcı olabilecek arkadaşlar hangi soruya cevap verebiirse gerekli düzeltmemi yaparım,


1) Textbox4 e yazdığım tutar opsion button a göre ilgili sutuna yazabilirmi
- option button1 ( özmal seçiliyse K sutununa)
- option button2 ( organizasyon seçiliyse L sutununa)

2) texbotx2 de fatura numarası girişi yapıyorum bu tutar her kaydet tuşuna bastıkdan sonra sonra 1 artabilirmi ve boş geçiceğim bazı numaralarda ScrollBar ile 1 artırabilirmiyim..


3) frame içinde textbox a bilgi aldırıyorum ama excel tablomdan bilgileri almıyor
- ilk kullanımda bilgiyi alıyor daha sonra almıyor..

yardımcı olabilecek arkadaşlara şimdiden teşekkür ediyorum..

 

[Ferhat Pazarçevirdi]

1) Textbox4 e yazdığım tutar opsion button a göre ilgili sutuna yazabilirmi
- option button1 ( özmal seçiliyse K sutununa)
- option button2 ( organizasyon seçiliyse L sutununa)

Kodlarınızdaki şu satıların altına;

Cells(son, "p") = TextBox8
Cells(son, "q") = TextBox9

şunları da yerleştirin.

If OptionButton1 Then
    Cells(son, "K") = TextBox4
Else
    Cells(son, "L") = TextBox4
End If

2) texbotx2 de fatura numarası girişi yapıyorum bu tutar her kaydet tuşuna bastıkdan sonra sonra 1 artabilirmi ve boş geçiceğim bazı numaralarda ScrollBar ile 1 artırabilirmiyim..

Az önce ilave ettiğiniz yeni satırların altına aşağıdaki satırı da ilave ediniz. Bu, her kaydedişten sonra sıra numarasını bir artırır.

TextBox2 = "A " & Right(Cells(son, 3), 6) + 1

Sıra numarasını artırmak için ScrollBar kullanılmaz. Bunun yerine SpinButton kullanın... ScroolBar'ı silin.

UserForma yeni ilave ettiğiniz SpinButton'un adının SpinButton1 olduğu kabulü ile, UserForm Kod modülüne aşağıdakileri de yerleştirin.

Private Sub SpinButton1_SpinDown()
    son = Cells(65536, "b").End(xlUp).Row
    TextBox2 = "A " & Right(TextBox2, 6) - 1
End Sub

Private Sub SpinButton1_SpinUp()
    son = Cells(65536, "b").End(xlUp).Row
    TextBox2 = "A " & Right(TextBox2, 6) + 1
End Sub

3) frame içinde textbox a bilgi aldırıyorum ama excel tablomdan bilgileri almıyor
- ilk kullanımda bilgiyi alıyor daha sonra almıyor..

Bunun ne olduğunu anlamadım... Frame içindeki TextBox ifadesi, Sarı Çizmeli Memet ağa gibi birşey olmuş ...


.

 

[unalh]

Bu kod sanırım işinizi görecektir.

Private Sub ComboBox1_Click()
On Error Resume Next
Dim i As Long
If ComboBox1 = Empty Then TextBox5 = Empty: TextBox6 = Empty:
For i = 2 To Sheets("VERİ").Range("A65536").End(3).Row
If ComboBox1.Text = Sheets("VERİ").Cells(i, 1) Then
TextBox5 = Sheets("Veri").Cells(i, 2)
TextBox6 = Sheets("Veri").Cells(i, 3)
End If
Next i
End Sub

 

[Erhan Üstünel]

Bu kod sanırım işinizi görecektir.

Private Sub ComboBox1_Click()
On Error Resume Next
Dim i As Long
If ComboBox1 = Empty Then TextBox5 = Empty: TextBox6 = Empty:
For i = 2 To Sheets("VERİ").Range("A65536").End(3).Row
If ComboBox1.Text = Sheets("VERİ").Cells(i, 1) Then
TextBox5 = Sheets("Veri").Cells(i, 2)
TextBox6 = Sheets("Veri").Cells(i, 3)
End If
Next i
End Sub

ünal bey çok teşekkür ederim, 3 nolu sorum olan frame olayındaki problem çözüldü.. sağolun varolun

 

[Erhan Üstünel]

Ferhat Hocam öncelikle çok teşekkür ediyorum yardımlarınız için..

hocam burda option button 1 seçili olduğunda sadece K hücresine
option button 2 seçiliyken hem K hem L hücrelerine kayıt kapıyor ??

Kodlarınızdaki şu satıların altına;

Cells(son, "p") = TextBox8
Cells(son, "q") = TextBox9

şunları da yerleştirin.

If OptionButton1 Then
    Cells(son, "K") = TextBox4
Else
    Cells(son, "L") = TextBox4
End If

.

textbox2 daki otomatik fatura nosuna kayıttan sonra 1 artır komutunu çalıştıramadım, kayıttan sonra text içi siliniyor..
.

TextBox2 = "A " & Right(Cells(son, 3), 6) + 1

.

 

[unalh]

ünal bey çok teşekkür ederim, 3 nolu sorum olan frame olayındaki problem çözüldü.. sağolun varolun

Rica ederim.

İyi Çalışmalar.

 

[Erhan Üstünel]

ben bi tarafı eksik yapıyorum ama neresi çözemedim

 

[Erhan Üstünel]

Option button ile ilgili problemi çözdüm

değer artıranıda buldum sonunda
ne olduğunu bilmediim

TextBox2 = Empty: ibaresini silince düzeldi


peki bi sorum daha olucak, formu kapatıp açınca textbox2 deki bilginin sabit kalmasını nasıl sağlayabiliriz. kaydettikten sonra yine +1 verecek şekilde işleyişe devam edecek.