formuller bozuluyor

[honestguy25]

arkdaşlar ekte koydum dosyayı userformdan veri grince topla formulu çalışmıyor dğer hatarsı verıyor. bakarsanız sevinirim

 

[Ayhan Ercan]

Merhaba

Dosyayı ekleyip bakılmasını arzu etmişsiniz, ancak

açılışta şifre istemektedir...

 

[Fuat Şirin]

tam olarak nerde toplayıp hangi butonla giriş yaptığınızı sölerseniz
birde şifreniz "aha" bunuda belirtin konu açarken

 

[Ayhan Ercan]

Textbox 35 ten sonra Textbox62 ye kadar olan satırlar var

bu satırların sonlarına * 1 ilave ederek deneyiniz..
Aşağıdaki gibi..

Sheets("ÖDEMETABLOSU").Range("d18").Value = TextBox62 [COLOR=red][B]* 1[/B][/COLOR]

 

[honestguy25]

tekrar ozdur dılıyorum şifremi yazmayı unutmuşum. userfoum 5 odeme tablosunda kaydete bastıımda kaydedıyor fakat veri gidğinde ödemetablosu sayfasında formuller bozuluyor. ayhan beyin verdiği ornegı denıycem şimdi teşekkur ederım birde acaba sayfaları arasında nasıl arattırabılırım yine aynı forum da bul tuşuna bastıımda adsoyada gore ilgili sayfayı bulması ve textboxlara ilgili veriyi girmesini istiyorum nasıl yapabılırım? ilginizie hızınıza teşekkurler.

 

[honestguy25]

ayhan bey denedım verdıınız ornegı ilgili kutuların hepsıne sayı gırmek gerekyıor. sayı girilmedıı zaman hata veriyor. her zaman 14 satırada veri girmeyeceğim. teşekkur ederim

 

[Ayhan Ercan]

Tekrar Merhaba

Aşağıdaki gibi deneyiniz..

Sheets("ÖDEMETABLOSU").Range("d18").Value = Val(TextBox62)

 

[honestguy25]

peki ayhan bey program çalıştıgında pek çok isimd yeni sayfa açmış olcam her bir öğrenci için bir ödeme sayfası yani . öğrencinin ismni girdiimde sayfaların içierisnden ilgili A1 hücresinği( kişi isimleri A1 hücresinde ) nasıl bulur? çok aradım bunu bulamadım teşekkur ederım

 

[Ayhan Ercan]

Öğrenci ismini Textbox1 'e yazdığınızı varsayarsak

Sheets(TextBox1.Text).Select
Range("A1").Select

 

[honestguy25]

peki tabloda veriler karışık offset(0,1) olayın kullanamacagımza göre tablodaki verileri nasıl yerleştirebılırım?

 

[Ayhan Ercan]

 [LEFT]Sheets("ÖDEMETABLOSU").Range("d18").Value = Val(TextBox62)[/LEFT]

yerine

 [LEFT][COLOR=red][B]Sheets(Textbox1.Text).[/B][/COLOR]Range("d18").Value = Val(TextBox62)[/LEFT]

 

[honestguy25]

son 2 sorum çok uzattımsa ozur dılerım. bu kodu Kaydete yazcam dımı? bu kodu yazarsam ayrıca textbox1 ısmınde bır sayfa açmama gerek kalmazmı dırect sayfaıya otomatık açıp orayamı kaydeder? 2. sorum Bul kdou nadıl olmalı teşekkur ederım

 

[Ayhan Ercan]

Bu kodu daha önce nerde yazdıysanız oraya yazacaksınız. Yani sizinkiler ile değiştireceksiniz.
Sayfalarıda kendiniz açacaksınız daha önceden, yoksa kod hata verecektir.

Şuan siteden çıkacağım için "Bul" kodu ile herhangi birşey söyleyemeyeceğim...