Hücrelere Kayit

[osmanfenerli1907]

İyi günler
Ben userform1deki commandbutton1e tıklayınca label1de yazan sayfa adına textbox1 textbox2 ve textbox3 kaydetmesini istiyorum.Ama ikinci kez tıklayınca o sayfada bir sonraki satıra kaydedecek.
Teşekkürler
İyi günler.

 

[zafer]

Merhaba

label1 de yazan sayfa ismine göre Textbox'ları o sayfadaki son satıramı kaydetmesini istiyorsunuz.

Konuyu biraz daha açabilirmisiniz.

 

[osmanfenerli1907]

Sorum Ekte

 

[zafer]

Merhaba

Aşağıdaki dosyayı ve Veri yönetimi linkini inceleyiniz.


http://www.excel.web.tr/forumdisplay.php?f=119

 

[osmanfenerli1907]

Sy hocam çok teşekkür ediyorum.
Harikasınız tam istediğim gibi.
iyi günler

 

[osmanfenerli1907]

SY hocam sizin gönderdiğiniz dosya düzgün ve istediğim gibi çalışıyordu.Ancak kendi dosyama uyarladığımda aşağıdaki hatayı veriyor.

 

[zafer]

Merhaba

Hata verdiğinde Debug'a basınız. Sarı renkli satırı buraya yazınız

 

[osmanfenerli1907]

Cells(B, 1) = TextBox3

 

[zafer]

Merhaba

Cells ile başlayanların başına
Sheets("sayfa ismi").cells(B,1)=textbox.....

yazın

Olmazsa dosyayı ekleyebilirmisiniz.

 

[osmanfenerli1907]

Dosyamı ekliyorum.
birde programın gidişatını değerlendirirseniz
sevinirim
İyi günler

 

[zafer]

Merhaba


sayfa = TextBox5
Sheets(sayfa).Select
B = Sheets(sayfa).Cells(65536, 1).End(xlUp).Row + 1
Cells(B, 1) = TextBox3
Cells(B, 2) = TextBox2
Cells(B, 3) = TextBox4
Cells(B, 4) = PUAN

Userform1 de Textbox5'e sayfa adını yazıyorsunuz.
textbox2 kutusuı yok ayrıca Textbox3 ve 4'e ise birşey yazmıyor.


Siz verilen cevaba göre kaydet tuşuna basınca textbox5 ile seçtiğiniz sayfaya hangi kutudaki bilgilerin gelmesini istiyorsanız o kutuyu belirleyip
yukarıdaki cells .... yanına onların isimlerini yazmalısınız.

 

[osmanfenerli1907]

sy hocam dosyamı bir daha ekliyorum.Bakarsanız sevinirim.

 

[osmanfenerli1907]

SY hocam yardımcı olabilr misiniz?
iyi günler

 

[zafer]

Merhaba

Dosyanız ektedir.

Çok güzel bir çalışma olmuş.Ellerinize sağlık

 

[osmanfenerli1907]

öncelikler teşekkür ediyorum ilginizden dolayı.
SY hocam sheets("A") yazıldığından A sayfasına kayıt yapılıyor.
Benim istediğim ise textbox3te yazılan sayfa ismine göre kayıt yapsın
İYİ günler

 

[zafer]

Merhaba

Private Sub CommandButton3_Click() deki

son = Sheets("a").Cells(65536, 1).End(xlUp).Row + 1 satırını

son = Sheets(SAYFA).Cells(65536, 1).End(xlUp).Row + 1

olarak değiştirin

 

[osmanfenerli1907]

SAYIN hocam
İlginize çok teşekkür ediyorum.
İYİ günler

 

[osmanfenerli1907]

İYİ GÜNLER
sy hocam sonradan farkettim d hücrelerine göre büyükten küçüğe diziyor ama 45 sayısı 215 ten önce geliyor.yani ilk basamağının büyüklüğüne göre diziyor.
YARDIMLARINIZI bekliyorum.
iYİ GÜNLER

 

[zafer]

Merhaba

Textbox kutularına veride girseniz hücrelere metin olarak aktarılır.

Puan textboxlarını aşağıdaki gibi değiştiriniz.
Cells(son, 4) = PUAN * 1

Puan textbox'ınızın değerinide ilk soruda yanlış cevap geldiğinde hataya düşmemek için 0 yapınız.

 

[osmanfenerli1907]

çok teşekkür ediyorum.Sorunum kalmadı.