Dershane Kayıt Form / program

[serul]

Yazdır butonuna tıkladığımda "snt" sayfasına taksitleri alt alta sıralamasını istiyorum. "snt" sayfasından çıktı alıp müşteriye imzalatıp dosyalayacağım.

[Bülent Öztürk]

Önceki mesajımda verdiğim şekilde kodları uyarlamayı denediniz mi?

Aynı şekilde snt sayfası için de şu şekilde kullanabiliriz:

Kod: [Seç]

say = ThisWorkbook.Worksheets("snt").Range("A65530").End(xlUp).Row + 1Örneğin B sütunu için Range("A65530") yerine B65530 yazacaksınız.

Kayıtları da alt alta göndermek için:

Kod: [Seç]

ThisWorkbook.Worksheets("snt").Range("A" & say) = TextBox2 ' VELİ ADI
ThisWorkbook.Worksheets("snt").Range("A" & say+1) = TextBox1 ' ÖĞRENCİ ADI
ThisWorkbook.Worksheets("snt").Range("A" & say+2) = TextBox3 ' VELİ CEP TEL
' ... şeklinde devam edecek...
İlk boş satırı, say değişkenine atayıp, ilgili hücreye veri gönderebiliriz.
Sonraki alanları birer alta yazdırmak için say değişkenine sırayla; 1, 2, 3 vs. ekleriz...
Yani,
Range("A" & say) --> A2 hücresine denk gelirse
Range("A" & say+1) --> A3 hücresine denk gelir
Range("A" & say+2) --> A4 hücresine denk gelir.

[serul]

Sonunda hallettim Bülent Bey !  Excelimde problem vardı sanırım yeni sayfa oluşturarak problemi çözdüm.Akşam çalışmanın son halini yükleyeceğim diğer arkadaşlarında ihtiyacı olabilir.

[Bülent Öztürk]

Yapacağınıza şüphem yoktu zaten. 

İşi çözdünüz. Tebrik ediyorum. 

[serul]

Bülent Bey öncelikle size , formu bu sayfaya kadar sabırla okuyan yeni/eski arkadaşlara sabır ve ilgilerinden dolayı teşekkür ediyorum. Formda VBA şifresi vardır. Şifre: excelce.net
(Bülent Bey formu kullandıkça ufak tefek düzeltmelere ihtiyaç duyuyorum. Belirlenen fiyata indirim yaptıktan sonra küsürlü toplam fiyat ve/veya küsürlü taksitler çıkıyor. Bunları yukarıya yuvarlamak için kodlarıma ne eklemeliyim ?)

[Bülent Öztürk]

Rica ederim Serkan Bey. Sizin azminiz de takdire değer. 

Ben de bunu ne zaman soracaksınız diye merak ediyordum. 

Yuvarlama için şu şekilde çözüm bulabilirsiniz:

AYLIK = Round(CDbl(TextBox1), 2)
Kırmızı boyalı 2 değeri, kaç basamak alınacağını, yeşil yazılı Round ise yuvarla fonksiyonunu belirtiyor.

[serul]

 

[serul]

Otomatik senet numarası ve DATA sayfasında sınıf bilgilerine göre renklendirme eklenmiş hali !

[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

[serul]

Arkadaşlar ekte sıkıntımı yazdım. Hücreye elle rakam girince satırları girdiğim sayı kadar dolduruyor. Başka bir hücredeki sayıyı kopyalayınca kafası karışıyor !

[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

[Bülent Öztürk]

D3 hücresinde formülü şu şekilde değiştirip aşağı sürükleyin:

Kod: [Seç]

=EĞER(EHATALIYSA(EĞER(D2+1<=SAYIYAÇEVİR($E$1);D2+1;""));"";EĞER(D2+1<=SAYIYAÇEVİR($E$1);D2+1;""))
E1 sayı olarak görünmediği için hatalı sonuç verdiğinden dolayı, SAYIYAÇEVİR fonksiyonunu kullandık.

[serul]

Anladım. Hücre özelliklerinden E1 i sayı olarak tanımlamıştım ama olmamıştı.

Kod: [Seç]

faturano = faturano + 1
ThisWorkbook.Worksheets("snt").Range("J2") = faturano 'Fatura Nobu sadece 1 artırıyor sonra artırmıyor. Bütün yeni senetlerde senet numarası 1 de kalıyor ?!

[serul]

Kendim sordum kendim cevaplıyorum kusura bakmayın 

Kod: [Seç]

Sheets("snt").[J2] = Sheets("snt").[J2] + 1ile sorunu çözdüm.