Maç kağıdında listeleme, rapor alma vs.

[ahmetcahan1962]

Ekte gönderdiğim mac kagidi.xls dosyasında ;
"bura yapılacak!!! " sheetinde: tarih ve saat, kort, Kategori, 1.Takım Okul adı, 1.sporcu-2.sporcu- 2.Takım, 1.sporcu-2.sporcu ların isimleri yazıldıktan sonra "kayıt" sheetine yazılacak, bu işlem her bir maç yapılınca yapılacak kayıtlar birden fazla olacaktır.
"bura yapılacak!!! " sheetinde: 70 yakın okulun isimlerini liste halinde yazdım ve gizledim. bunları aşağı açılan listeden al seçeneği ile ekliyorum. başka yolu varmı?
"bura yapılacak!!! " sheetinde: baş hakem ve servis hakem i bölümünde listeyi "hakem listesi shettine " kaydettiğim isimlerden çağırma işlemi nasıl olur?

 

[Levent Menteşoğlu]

Ekte gönderdiğim mac kagidi.xls dosyasında ;
"bura yapılacak!!! " sheetinde: tarih ve saat, kort, Kategori, 1.Takım Okul adı, 1.sporcu-2.sporcu- 2.Takım, 1.sporcu-2.sporcu ların isimleri yazıldıktan sonra "kayıt" sheetine yazılacak, bu işlem her bir maç yapılınca yapılacak kayıtlar birden fazla olacaktır.
"bura yapılacak!!! " sheetinde: 70 yakın okulun isimlerini liste halinde yazdım ve gizledim. bunları aşağı açılan listeden al seçeneği ile ekliyorum. başka yolu varmı?

Elbette var, veri doğrulama ile hücrede açılan liste oluşturabilirsiniz. Aşağıdaki linki inceleyin.

VERİ DOĞRULAMA (DATA VALIDATION)

"bura yapılacak!!! " sheetinde: baş hakem ve servis hakem i bölümünde listeyi "hakem listesi shettine " kaydettiğim isimlerden çağırma işlemi nasıl olur?

Aynı şekilde veri doğrulama ile açılan liste oluşturarak yapabilirsiniz.

Ayrıca örnek olarak aşağıdaki linkide inceleyebilirsiniz.

http://www.excel.web.tr/showthread.php?t=22347&highlight=veri+do%F0rulama

 

[ahmetcahan1962]

Verdiğin bilgilerden bayağı faydalandım. eline ve emeğine sağlık.teşekkürler.

Aynı maç kağıdında birkaç işlem daha yapmam gerekiyor.

Maç kağıdının içerisinde her maç için yazdığımda şu işlemleride yapmasını da istiyorum bunları nasıl yapabilirm.

yeniform.xls hazırladım. eskilerinide ekleyerek user form hazırladım. dosyasında Her maç kağıdına işlediğimde;
bilgileri veri sayfasına USER FORMUN kaydetmesi oluyor. ancak: "A2 DEN "kayıtlaın başlaması gerekirken A14ten başlayarak , B 14 , C14, D14, E14, F14, g14,h14,ı14,j14,k14,l14 hücresine kayıt oluyor. Bu hata nasıl düzelir.
Burada aynı zamanda her seferinde "MACKAGIDI"sheetinde ki tabloyu oluşturmasını istiyorum bu nasıl olur?
kodlar:
SİL BUTON KODU:

Private Sub CommandButton1_Click()

son = WorksheetFunction.CountA(Sheets("VERİ").Range("A1:A65536")) + 12
Sheets("VERİ").Cells(son, 1).Value = TextBox1.Value
Sheets("VERİ").Cells(son, 2).Value = TextBox2.Value
Sheets("VERİ").Cells(son, 3).Value = TextBox3.Value
Sheets("VERİ").Cells(son, 4).Value = TextBox4.Value
Sheets("VERİ").Cells(son, 5).Value = TextBox5.Value
Sheets("VERİ").Cells(son, 6).Value = TextBox6.Value
Sheets("VERİ").Cells(son, 7).Value = TextBox7.Value
Sheets("VERİ").Cells(son, 8).Value = TextBox8.Value
Sheets("VERİ").Cells(son, 9).Value = TextBox9.Value
Sheets("VERİ").Cells(son, 10).Value = TextBox10.Value
Sheets("VERİ").Cells(son, 11).Value = TextBox11.Value
Sheets("VERİ").Cells(son, 12).Value = TextBox12.Value
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
TextBox5.Value = ""
TextBox6.Value = ""
TextBox7.Value = ""
TextBox8.Value = ""
TextBox9.Value = ""
TextBox10.Value = ""
TextBox11.Value = ""
TextBox12.Value = ""
End Sub

Private Sub CommandButton2_Click()

End Sub

Private Sub CommandButton3_Click()

End Sub

Private Sub Label3_Click()

End Sub

Private Sub Label4_Click()

End Sub

Private Sub UserForm_Click()

End Sub

kaydet butonu:

Private Sub CommandButton1_Click()

son = WorksheetFunction.CountA(Sheets("VERİ").Range("A1:A65536")) + 12
Sheets("VERİ").Cells(son, 1).Value = TextBox1.Value
Sheets("VERİ").Cells(son, 2).Value = TextBox2.Value
Sheets("VERİ").Cells(son, 3).Value = TextBox3.Value
Sheets("VERİ").Cells(son, 4).Value = TextBox4.Value
Sheets("VERİ").Cells(son, 5).Value = TextBox5.Value
Sheets("VERİ").Cells(son, 6).Value = TextBox6.Value
Sheets("VERİ").Cells(son, 7).Value = TextBox7.Value
Sheets("VERİ").Cells(son, 8).Value = TextBox8.Value
Sheets("VERİ").Cells(son, 9).Value = TextBox9.Value
Sheets("VERİ").Cells(son, 10).Value = TextBox10.Value
Sheets("VERİ").Cells(son, 11).Value = TextBox11.Value
Sheets("VERİ").Cells(son, 12).Value = TextBox12.Value
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
TextBox5.Value = ""
TextBox6.Value = ""
TextBox7.Value = ""
TextBox8.Value = ""
TextBox9.Value = ""
TextBox10.Value = ""
TextBox11.Value = ""
TextBox12.Value = ""
End Sub

Private Sub CommandButton2_Click()

End Sub

Private Sub CommandButton3_Click()

End Sub

Private Sub Label3_Click()

End Sub

Private Sub Label4_Click()

End Sub

Private Sub UserForm_Click()

End Sub


değiştir butonu kodları:

Private Sub CommandButton1_Click()

son = WorksheetFunction.CountA(Sheets("VERİ").Range("A1:A65536")) + 12
Sheets("VERİ").Cells(son, 1).Value = TextBox1.Value
Sheets("VERİ").Cells(son, 2).Value = TextBox2.Value
Sheets("VERİ").Cells(son, 3).Value = TextBox3.Value
Sheets("VERİ").Cells(son, 4).Value = TextBox4.Value
Sheets("VERİ").Cells(son, 5).Value = TextBox5.Value
Sheets("VERİ").Cells(son, 6).Value = TextBox6.Value
Sheets("VERİ").Cells(son, 7).Value = TextBox7.Value
Sheets("VERİ").Cells(son, 8).Value = TextBox8.Value
Sheets("VERİ").Cells(son, 9).Value = TextBox9.Value
Sheets("VERİ").Cells(son, 10).Value = TextBox10.Value
Sheets("VERİ").Cells(son, 11).Value = TextBox11.Value
Sheets("VERİ").Cells(son, 12).Value = TextBox12.Value
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
TextBox5.Value = ""
TextBox6.Value = ""
TextBox7.Value = ""
TextBox8.Value = ""
TextBox9.Value = ""
TextBox10.Value = ""
TextBox11.Value = ""
TextBox12.Value = ""
End Sub

Private Sub CommandButton2_Click()

End Sub

Private Sub CommandButton3_Click()

End Sub

Private Sub Label3_Click()

End Sub

Private Sub Label4_Click()

End Sub

Private Sub UserForm_Click()

End Sub