Kayıt konusunda yardım

[fatih34]

Personelle alakalı şikayetleri içeren bir veri girişi hazırlamaya çalışıyorum.
Şuanki sorunum
Gelen evrakta şikayet edilen personel sayısı 1 den fazla bulunduğundan teker teker girip kayıt yapmaktansa aynı anda bilgileri tek seferde girip kayıt yapmak amacım. örnek dosyada anlatmaya da çalıştım.

 

[fatih34]

Sorum değerli form üyeleri tarafından incelenmiş ancak her halde tam olarak anlatamadığımdan cevap gelmediğini düşünüyorum.

Yapmak istediğimi tekrardan dilimin döndüğünce örnek dosyamda açıklamaya çalıştım.

Gelen evraktaki bilgiler
Gelen Evrak : B satırına
Tarihi : C satırına
Müracaatçı :E satırına
Soruşturma Konusu : F satırına
Personelin Adı : G satırına
Soyadı : H sütünuna kayıt yapıyor.

Bir evrakta birden fazla personel olduğu her personelin adını soyadını girip kayıt yapıyordum. Bu kayıtta A satırına mükerrer sayı vermemek için de B,C, E,F,G sütunları önce girdiğim bilgilerle aynı olduğundan a satırına otomatik sayı vermeyip önceki verdiği sayıya birleştirerek kayıt yapıyordum.

Ancak bu Personel kaydında zaman aldığından personel adı ve soyadına ek olarak 3 adet daha texbox ekleyip bu şekilde giriş yapıp örnekteki gibi yapmak istiyorum.

İnşallah bu sefer anlata bilmişimdir.

 

[fatih34]

Bu konuda bir yardım sayın forum üyeleri

 

[halit3]

Sorum değerli form üyeleri tarafından incelenmiş ancak her halde tam olarak anlatamadığımdan cevap gelmediğini düşünüyorum.

Yapmak istediğimi tekrardan dilimin döndüğünce örnek dosyamda açıklamaya çalıştım.

Gelen evraktaki bilgiler
Gelen Evrak : B satırına
Tarihi : C satırına
Müracaatçı :E satırına
Soruşturma Konusu : F satırına
Personelin Adı : G satırına
Soyadı : H sütünuna kayıt yapıyor.

Bir evrakta birden fazla personel olduğu her personelin adını soyadını girip kayıt yapıyordum. Bu kayıtta A satırına mükerrer sayı vermemek için de B,C, E,F,G sütunları önce girdiğim bilgilerle aynı olduğundan a satırına otomatik sayı vermeyip önceki verdiği sayıya birleştirerek kayıt yapıyordum.

Ancak bu Personel kaydında zaman aldığından personel adı ve soyadına ek olarak 3 adet daha texbox ekleyip bu şekilde giriş yapıp örnekteki gibi yapmak istiyorum.

İnşallah bu sefer anlata bilmişimdir.

Kodun çalışması için dosyanızdaki textbox nesneleri ardışık olmalı
kod sizin dosyanızdaki nesnelere bağlı olarak dört satır aktarma yapmaktadır

Private Sub CommandButton1_Click()
Sheets("Sayfa1").Select
satır = Range("b65536").End(3).Row + 1
son = WorksheetFunction.CountA(Range("A2:A65000")) + 1
son1 = 0
For i = 1 To 5
If Controls("TextBox" & i).Text = "" Then
Controls("TextBox" & i).SetFocus
Exit Sub
End If
Next
    
satır1 = satır
   
For i = 1 To 4
If Controls("TextBox" & i + 5).Text <> "" Then
Cells(satır, "B") = TextBox1.Text
Cells(satır, "C") = TextBox2.Text
Cells(satır, "D") = TextBox3.Text
Cells(satır, "E") = TextBox4.Text
Cells(satır, "F") = TextBox5.Text
Cells(satır, "G") = Controls("TextBox" & i + 5).Text
Cells(satır, "H") = Controls("TextBox" & i + 9).Text
satır = satır + 1
son1 = son1 + 1
Cells(satır1, "A") = son
End If
Next
Range("A" & satır1 & ":A" & son1 + satır1 - 1).Merge
MsgBox "işlem tamam"
End Sub

 

[halit3]

4 nolu mesajdaki dosyayı yeniden güncelledim.

 

[fatih34]

Hocam ilginize ve emeğinizden dolayı teşekkür ederim.

 

[halit3]

Hocam ilginize ve emeğinizden dolayı teşekkür ederim.

Yukarıdaki mesajımda belirtmiştim textbox nesneleri ardışık olmalı
ben eklediğim dosyada bunları düzelttim kontrol ediniz.

 

[fatih34]

Anlaşıldı hocam kontrol ediyor ve çalışmama uyarlamaya çalışıyorum.

 

[fatih34]

Verileri Otomatik almak için forma Combobox ekledim. Ancak hata verdi. Formdan öğrendiğim bir kaç örnek deneme yaptım lakin beceremedim. Comboboxsu koda eklemek için nerede düzenleme yapmam lazım.
Örnek dosyam ektedir.

 

[halit3]

Verileri Otomatik almak için forma Combobox ekledim. Ancak hata verdi. Formdan öğrendiğim bir kaç örnek deneme yaptım lakin beceremedim. Comboboxsu koda eklemek için nerede düzenleme yapmam lazım.
Örnek dosyam ektedir.

Öncelikle yukarıdaki mesajımda gönderdiğim dosya ve kod işinizi görüp görmediğini yazmamışsınız ve eklemeler yaparak tekrar sorunuzu yöneltmişsiniz.

Sorularınızın içeri değiştiği zaman yeni bir konu açıp farklı bir başlık altında sorunuzu göneltiniz.

User formun içindeki kodların hepsini silin ve aşağıdaki kodu ekleyin

kod:

Private Sub CommandButton1_Click()
Sheets("Sayfa1").Select
satır = Range("b65536").End(3).Row + 1
son = WorksheetFunction.CountA(Range("A2:A65000")) + 1
son1 = 0
son2 = 0
For i = 1 To 5
If Controls("TextBox" & i).Text = "" Then
Controls("TextBox" & i).SetFocus
Exit Sub
End If
Next
    
satır1 = Range("b65536").End(3).Row + 1
For i = 1 To 4
If Controls("ComboBox" & i).Text <> "" Then
If Controls("TextBox" & i + 9).Text <> "" Then
If Controls("TextBox" & i + 5).Text <> "" Then
Cells(satır, "B") = TextBox1.Text
Cells(satır, "C") = TextBox2.Text
Cells(satır, "D") = TextBox3.Text
Cells(satır, "E") = TextBox4.Text
Cells(satır, "F") = TextBox5.Text
Cells(satır, "G") = Controls("TextBox" & i + 5).Text
Cells(satır, "H") = Controls("TextBox" & i + 9).Text
Cells(satır, "I") = Controls("ComboBox" & i).Text
satır = satır + 1
son2 = son2 + 1
Cells(satır1, "A") = son
End If
End If
End If
Next
son1 = son2
If son2 > 0 Then son1 = son1 - 1
'MsgBox Range("A" & satır1 & ":A" & son1 + satır1).Address
Range("A" & satır1 & ":A" & son1 + satır1).Merge
Range("A" & satır1 & ":I" & son1 + satır1).Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlContinuous
Selection.Borders(xlEdgeTop).LineStyle = xlContinuous
Selection.Borders(xlEdgeBottom).LineStyle = xlContinuous
Selection.Borders(xlEdgeRight).LineStyle = xlContinuous
Selection.Borders(xlInsideVertical).LineStyle = xlContinuous
If son2 > 1 Then Selection.Borders(xlInsideHorizontal).LineStyle = xlContinuous
Range("A" & satır1).Select
MsgBox "işlem tamam"
End Sub
     
Private Sub CommandButton2_Click()
UserForm1.Hide
End Sub
Private Sub UserForm_Initialize()
Sheets("Sayfa1").Select
ComboBox1.AddItem "Memur"
ComboBox1.AddItem "İşçi"
ComboBox2.AddItem "Memur"
ComboBox2.AddItem "İşçi"
ComboBox3.AddItem "Memur"
ComboBox3.AddItem "İşçi"
ComboBox4.AddItem "Memur"
ComboBox4.AddItem "İşçi"
    
    
End Sub

 

[fatih34]

Hocam önceden göndermiş olduğunuz kod çok büyük işime yaradı ve kullanmaya başladım. Hatta gönderdiğiniz örnek dosyaya bir kaç adet daha textbox ekleyip kullanmaya başladım. Ancak sabir bilgileri textboxlarla girmek yerine comboboxlarla girmek istediğimden yeniden bir düzenleme yaptım.
Tekrardan ilginize ve emeğinize teşekkür ederim. Emeğinize büyük saygım vardır.

 

[selimmanav]

bu exceli kullanım alanı

fatih bey merhaba
bu excel doyasını inceledim fakat kullanamıyorum. oluşturulan form nasıl kullanılıyor biraz bilgi verebilirmsiniz?

 

[fatih34]

merhabalar selim bey, gelen evrak bilgilerini kayıt yapıyorum,
Ayrıca Halit hocam 10 mesajınızda vermiş olduğunuz örnek çalışmaya ekstra textbox ve combobox eklersem kodun nerelerinde ne gibi değişiklik yapmam gerekir.