Textbox istediğim hücreden itibaren yazsın

[iso07]

Private Sub CommandButton1_Click()
sheets(ComboBox1.Text).Select
sonsat = [a65536].End(3).Row + 1
Rows(sonsat).Select
Selection.Insert Shift:=xlDown
Cells(sonsat, 1) = sonsat - 1
Cells(sonsat, 3) = TextBox2
Cells(sonsat, 5) = TextBox3 * 1

Forumda araştırıp bulduğum kodlarla istediğimi biryere kadar yapabildim fakat takıldığım birkaç yer var.
Yukarıdaki kodlarla combobox'da seçtiğim sayfaya textbox'dan girdiğim veriyi 1 satır ekleterek yazdırabiliyorum.

1-İstediğim satırdan itibaren başlatarak verileri giremedim, mesela textbox2 b8.den ya da b33.den başlayarak sağa doğru yazsın.

2-sonsat = [a65536].End(3).Row + 1
Cells(sonsat, 1) = sonsat - 1
bu kodun mantığını öğrenmek istiyorum.

3-TextBox6.Value = Format(TextBox6, "%0.00")
Bu textboxa veri girdiğimde %3,5 şeklinde görünüyor fakat kaydete bastığımda bu satırda hata veriyor. Textbox * 1 (say&#305 şeklinde tanımlı olmasından kaynaklanabilir mi?

4-Textboxlarla 4 işleme bir örnek verirseniz, onu da kendime göre düzenlemek istiyorum. Mesela Textbox1 ile Textbox2 yi topla Textbox3e yaz

İlgilenen arkadaşlara şimdiden teşekkür ederim.

 

[Levent Menteşoğlu]

Dosyanızı ekleyebilirmisiniz.

 

[herguder]

Sanırım ekli dosyamda dördüncü sorunuza cevap olabilecek bir çalışmam var.

 

[iso07]

Levent hocam dosyam ekte;
100 tane müşteri sayfasını gezerek veri girmektense userform ile yapılabilir diye düşündüm ve bu işe kalktım.
Combobox'dan seçtiğim müşterinin sayfasına b8.den başlayarak verileri alt alta giricem, veriyi girdikten sonra bir satır eklensin ki b9.da ki toplam satırı bozulmasın.
Verileri girdiğimde hesaplanması gerekenleri textboxlarla mı yoksa hücrelere yazılacak formülleri okutarak mı yapmak kolay bilmiyorum.
Oluşturduğum userform sadece satışlar için şu an da, alışlar içinde aynı formdan düzenleyip ilgili yere yazdırmak istiyorum, ya da aynı userform üzerinden yapılabilirse o şekilde. Checkbox ile olabilir mi?

Userformu daha da geliştirip görsellikte katmak istiyorum sizlerin yardımıyla.

 

[iso07]

Sayın herguder,

Örnek dosyayı inceledim emeğinize sağlık, yanlız sizde işlemler command buton ile yapılıyor benim istediğim mesela textbox1 ve 2'ye değeri girdiğimde 3'de sonucu görmeliyim ya da hücrelerde formülleri yazıp textbox'a alabilmeliyim.

 

[Levent Menteşoğlu]

textbox1 ve 2'ye değeri girdiğimde 3'de sonucu görmeliyim ya da hücrelerde formülleri yazıp textbox'a alabilmeliyim.

Textbox1'e aşağıdaki kodu yazın.

Private Sub TextBox1_Change()
deg = TextBox1
deg2 = TextBox2
If TextBox1 = "" Then deg = 0
If TextBox2 = "" Then deg2 = 0
TextBox3 = Replace(deg * 1 + deg2 * 1, ".", ",")
End Sub

Textbox2 yede aşağıdaki kodu yazın.

Private Sub TextBox2_Change()
TextBox1_Change
End Sub

 

[iso07]

Levent hocam dosyayı inceleyebildiniz mi? diğer sorunlar hakkında yardımcı olabilirseniz sevinirim.

 

[Levent Menteşoğlu]

Cevaplarım aşağıdaki gibidir.

1-Kaydet butonuna aşağıdaki yazın. Yalnız textboxların yerleri doğru değil onu düzeltirsiniz.

Private Sub CommandButton1_Click()
On Error Resume Next
sheets(ComboBox1.Text).Select
sonsat = WorksheetFunction.Match("Toplam", [b:b], 0)
Rows(sonsat).Insert
Cells(sonsat, 1) = sonsat - 1
Cells(sonsat, 3) = TextBox2
Cells(sonsat, 5) = TextBox3 * 1
Cells(sonsat, 6) = TextBox4 * 1
Cells(sonsat, 7) = TextBox5
Cells(sonsat, 8) = TextBox6 * 1
Cells(sonsat, 9) = TextBox7 * 1
Cells(sonsat, 10) = TextBox8 * 1
Cells(sonsat, 11) = TextBox9 * 1
Cells(sonsat, 12) = TextBox10 * 1
Cells(sonsat, 13) = TextBox11 * 1
Cells(sonsat, 14) = TextBox12 * 1
Cells(sonsat, 15) = TextBox13
Cells(sonsat, 16) = TextBox14
End Sub

2- sonsat = [a65536].End(3).Row + 1
A sütunundaki sonsatırın satır nosunu bulur ve bir ekler, bu bir rakamı taloya göre değişir.

Cells(sonsat, 1) = sonsat - 1

Bu satırda tabloya sıra nosu vermek içindir.

3-Evet bir ile çarpmayın.

4-Bu sorunuzu bir önceki mesjımda yanıtlamıştım.

 

[iso07]

Hocam cevaplar için tşk. ederim

Textbox5=Textbox3*Textbox4
Textbox7=Textbox5*Textbox6/100
Textbox8=Textbox9/Textbox3
Textbox10=(Textbox5-Textbox7)+Textbox9
Textbox11=Textbox10*18/100
Textbox12=Textbox10*Textbox11

Örnek dosyadaki tabloya göre bu işlemleri yapmam gerekiyor, önceki verdiğiniz kodla birini yaptım diğerlerine uygulamaya çalıştım fakat hata verdi. Sanırım aynı Textbox'ları birden fazla işlemde kullandığım için.

Birde formülleri hücrelere yazsam Textbox da görünmesini nasıl sağlarım.

 

[iso07]

Arkadaşlar bu işlemler için fikir verecek yok mu?

 

[Levent Menteşoğlu]

Eğer textboxların change olayına kod yazıyorsanız ve bu textboxları birden fazla işlemde kullandı iseniz, her değişiklik tüm change olaylarını çalıştıracağından sorun çıkarabilir. Bunu engellemek için iyi bir düzenleme yapmak gerekir. Birde her prosedürün başına "on error resume next" satırını ilave edebilirsiniz.

 

[iso07]

Levent hocam değişik şekillerde düzenledim fakat netice alamadım, biraz daha uğraşacağım. Uğraşması zevkli olduğu kadar sinir bozucu da

Yine beceremezsem sizi tekrar rahatsız edicem artık. Teşekkür ederim.