Düğün Listesi

[cagdaser]

Merhabalar,

Ekte görebileceğiniz üzere 50 adet masadan oluşan ve bu masalarda oturacak kişilerin kolayca yazılabileceği, silinebileceği ve bulunabileceği bir excel dosyası oluşturmak istiyorum. Yeni başlayan biri olarak bi kaç şey yaptıktan sonra işin içinden çıkamadım. şu anda istediğim masaya alt alta kişileri ekliyorum fakat bunu 10 ile sınırlamayı başaramadım mesela isim yazdıkça aşağı doğru eklemeye devam ediyor. Ayrıca aynı isim yazıldığında uyarı vermesi meselesi de benim için oldukça karışık bi konu. Uzman arkadaşlardan ricam bu dosyayı inceleyip bi çıkış yolu bulabilirler mi? diğer taraftan kişi bulma, kişi silme ve rapor alma gibi konuları da aslında nasıl yapacağım konusunda kafamda net fikirler yok yardımcı olabilirseniz çok sevinirim.

Teşekkürler

 

[halit3]

bu kodu denermisiniz.

Private Sub CommandButton1_Click()
If ComboBox1.Value = "" Then MsgBox "aranacak masayı yazmadınız.?": Exit Sub
ad = ComboBox1.Value
Set Sh = Sheets("Form")
yer = xlValues
yer1 = xlWhole
If WorksheetFunction.CountA(Sh.Cells) > 0 Then
satır = Sh.Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Else
satır = 1
End If
With Sh.Range(Sh.Cells(4, 1), Sh.Cells(satır, "j"))
Set d = .Find(What:=ad, After:=.Cells(.Cells.Count), LookIn:=yer, lookat:=yer1, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
If Not d Is Nothing Then
FirstAddress = d.Address
Do
d.Select
j = d.Column
m = 0
For i = d.Row + 1 To d.Row + 11
m = m + 1
If m <= 10 Then
If Cells(i, j).Value = "" Then
Cells(i, j).Value = TextBox1.Text
Exit For
End If
Else
MsgBox " Bu masa dolu"
Exit For
End If
Next

Set d = .FindNext(d)
Loop While Not d Is Nothing And d.Address <> FirstAddress
End If
End With
Set Sh = Nothing

End Sub

 

[cagdaser]

Teşekkürler

Elinize Sağlık üstad çok güzel olmuş

 

[halit3]

Elinize Sağlık üstad çok güzel olmuş

iyi çalışmalar

 

[aqif1]

bu kodu denermisiniz.

merhaba usdat

şu verdiğiniz kodu dosyaya ekleyip koysanız bizahmet. ben yapıyorum olmuyo.

 

[halit3]

merhaba usdat

şu verdiğiniz kodu dosyaya ekleyip koysanız bizahmet. ben yapıyorum olmuyo.

dosyaya bir bakınız bazı kodlarda ileve edilmiştir.

 

[aqif1]

teşekkür ederim hocam

 

[halit3]

teşekkür ederim hocam

iyi çalışmalar

 

[Merhum İdris SERDAR]

.

Alternatif olarak bir de buraya bakın.

http://www.excel.web.tr/f122/davet-masa-oturma-plany-t92726.html



.