araç denetleme kutusu

[Fuat Şirin]

arkadaşlar ekteki dosyamda sayfada bulunan textbox1 den textbox2 ye enter veya tab ile geçmek istiyorum. Bir de bilgi eklendiğinde yani CommandButton tıklanğında tekrar yeni bir bilgi girmek için başa (TextBox1) dönmesini istiyorum.Gerekli kodu eklerseniz sevinirim. yazıcıdada görünmemesi lazım.

 

[Orion1]

Merhaba.
Dosya ekleyemiyorum.
Sayfa1'in Kod sayfasında ki kodları silin ve aşaığıdaki kodları kopyalayın.
Yazıcıdan yazdırılmaması için tasarım moduna geçin nesnelere sağ klik yapın denetim biçimlendir kilk özellikler klik nesneyi yazdır çekbox'ı içersindeki onayı kaldırın.

Private Sub CommandButton1_Click()
Dim i As Integer
For i = 8 To 32000
    If (Sayfa1.Cells(i, 1) = "") Then
        Sayfa1.Cells(i, 1) = TextBox1.Text
        Sayfa1.Cells(i, 2) = TextBox2.Text
        MsgBox "Bilgi Eklendi !...", vbOKOnly + vbInformation, "Bilgi Ekleme"
        TextBox1.Value = "": TextBox2.Value = ""
        TextBox1.Activate
        Exit Sub
    End If
Next i
End Sub

Private Sub CommandButton1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then Call CommandButton1_Click
If KeyCode = 9 Or KeyCode = 13 Then TextBox1.Activate
End Sub

Private Sub TextBox1_Change()

End Sub

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 9 Or KeyCode = 13 Then TextBox2.Activate
End Sub

Private Sub TextBox2_Change()

End Sub

Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 9 Or KeyCode = 13 Then CommandButton1.Activate
End Sub

 

[Fuat Şirin]

bu konuda da yardımlarınızı bekliyorum

yolladığınız kodara göre bu şekilde bi düzenleme yaptım
ama burda takıldığım 2 yer var combobox lara sayfa 2 den veri almak istiyorum
birde
Textbox4 = TextBox2*TextBox3
bunu yapmak istiyorum
yardımcı olursanız çok sevinirim

 

[Fuat Şirin]

dosya ektedir

dosya ekte kusura bakmayın

 

[emrexcel123]

rowsource

arkadaşım combobox'lara veri alırken hangi sayfa ise başına ismini yazman yeterli olacaktır.örnek:
senin aralığın a2:a69 ise bu şekilde yazarsan aktif sayfadaki verileri alır eğer istediğin sayfa "sayfa2" ise şu şekilde yazman gerekir :
"sayfa2!a2:a69" şeklinde sorunun hallolur ayrıca 2.soruna gelince bu değerleri çarpmak için basit bir yöntem yapabilirsin örnek :
textbox4.value = val(textbox2.value) * val(textbox3.value) şeklinde halledebilirsin...

 

[Fuat Şirin]

ilginize tşk

hocam ddiğinizi formda yaptığımda oluyor
ama excel sayfasında araç denetlemede yapınca olmuyo
bu konuda ekteki dosya üzerinden yardım ederseniz sevinirim

 

[Fuat Şirin]

yardım lütfen

değerli hocalarım kısa bir kod olsa gerek
yardımcı olursanız sevinirim

 

[pitsss]

Merhaba.
Dosya ekleyemiyorum.
Sayfa1'in Kod sayfasında ki kodları silin ve aşaığıdaki kodları kopyalayın.
Yazıcıdan yazdırılmaması için tasarım moduna geçin nesnelere sağ klik yapın denetim biçimlendir kilk özellikler klik nesneyi yazdır çekbox'ı içersindeki onayı kaldırın.

Private Sub CommandButton1_Click()
Dim i As Integer
For i = 8 To 32000
    If (Sayfa1.Cells(i, 1) = "") Then
        Sayfa1.Cells(i, 1) = TextBox1.Text
        Sayfa1.Cells(i, 2) = TextBox2.Text
        MsgBox "Bilgi Eklendi !...", vbOKOnly + vbInformation, "Bilgi Ekleme"
        TextBox1.Value = "": TextBox2.Value = ""
        TextBox1.Activate
        Exit Sub
    End If
Next i
End Sub

Private Sub CommandButton1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then Call CommandButton1_Click
If KeyCode = 9 Or KeyCode = 13 Then TextBox1.Activate
End Sub

Private Sub TextBox1_Change()

End Sub

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 9 Or KeyCode = 13 Then TextBox2.Activate
End Sub

Private Sub TextBox2_Change()

End Sub

Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 9 Or KeyCode = 13 Then CommandButton1.Activate
End Sub

Bukodu yollayan Sezar arkadaşımıza ve soru sorarak bu kodun yollanmasına vesile olan parlemenn arakdaşımıza sonsuz teşekkürlerimi sunuyorum. cok işime yaradı. Teşekkürlerr...

 

[emrexcel123]

farklı

arkadaşım zaten excel üzerine çizdiğin textbox ile userform üzerine çizdiğin textbox'un hiçbir ilgisi yok excel üzerine çizdiğin nesneye sağ tıklayıp (tasarım modunda tabi) kod görüntüle dersen ilgili kodları oraya yazman gerekir...
:icelim:

 

[emrexcel123]

excel yüreği işte

arkadaşım yüreğim dayanmadı cevapsız kalmana buyur eki incele beğenmediğin yönleri münakaşa edelim... :mrgreen:

 

[Fuat Şirin]

hocam ben bu şekilde yaptım

yardımlarınızla dosyayı bu hale getirdim
burda bir sorunum war bu konuda yardımcı olursan gerçekten sevinirim
boyahane sayfasında
giriş yapıyorum
mesela girdiğim verileri düzeltmek için
satırı çift tıklayıp
textboxlara gelmesini
sonra düzeltip kaydetmeyi istiyorum
yardımcı olursan çok dua ederim.
bide neden bu kadar şişti dosya anlamadım.

 

[emrexcel123]

form

arkadaşım double click değilde form yapsak yani bir kontrol gibi çünkü her hücreyi değiştirmek istediğinde bu kod aktif olacaktır bu da senin işini zorlaştıracaktır.olursa cvp vermen yeterli...

 

[Fuat Şirin]

olur tabii

hocam önemli olan kolay bi şekilde girişleri yapmak
form olur tabi neden olmasın
önemli olan seçtiğim satırı değiştir ile değiştirebilmek

 

[emrexcel123]

form değil checkbox

arkadaşım senin kullanım tarzını düşündüm de form ile uğraşmak senin için bir çileye dönüşebilir onun için ben de sayfanın üst kısmına kontrol checkbox 'ı koydum bu nesneyi onaylarsan sayfa kontrol moduna girip çift click yaptığın zaman eğer veriler senin belirlediğin alanda ise ilgili yerlere aktarılacak ve değiştir dediğinde eski yerine koyacak ama sakın "l5" hücresini silme ii çalışmalar...
not :
değiştirme yapmak için sadece üstteki onayı işaretlemen yeterlidir aksi takdirde sayfa normal moda geçecektir...

 

[Fuat Şirin]

harika bişey

hocam gerçekten harikasınız
elinize sağlık

 

[emrexcel123]

rica ederim

rica ederim her şey paylaşım için kolay gelsin ii çalışmalar... :icelim: