• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Ad-Soyadı Textboxdan alıp sayfa da birleştirme.

A

Altay3555

Katılım
13 Haziran 2009
Mesajlar
486
Excel Vers. ve Dili
excel 2007 tr
Selamlar arkadaşlar,
Sheets("Onam F").Range("C3" & Bos_Satir).Value = TextBox2.Text 'Adı
TextBox3 de Soyadı kısmı var.Bunların birleşimi nasıl olacak.Onam F da c3 bölümüne yazılacak.Basit birşey gibi ama çözemedim bir el lazım.
Şimdiden teşekkürler.
 
Dosyayı tamamlayıp ekleyecektim ama.

İhsan Tank' Alıntı:
dosya ekleseniz
Genişletmek için tıkla ...

Hocam o zaman dosyayı ekliyorum.Sorunlar var gibi.Şöyle ki,
*Kaydederken bir garip
*Userform geç açılıyor.
*Onam F nda işlem yaptıktan sonra garip bir şekilde uzun bir sürede kaydediyor,kapanıyor ve açılıyor ama uzun sürüyor gibi.
bir iki örnek kayıtla incelerseniz sevinirim.
*Excel haline geçtiğinde bazen hücrelere yazı bile yazamıyorum.Yön tuşları da hareketsiz kalabiliyor.
*Mükerer kayıt kodu eksik.

8.gündeyim ancak bu kadar toparlayabildim.
Dosyamı incelerseniz yorumlarınıza göre gidebilirim.
(Bu arda sizin bazı kodlarınızı kullandım.Ayrıca teşekkür ederim.)

*düzeltme..
Hocam dosyam 105 MB olmuş.Bir önceki 75 KB iken.anlamadım gitti.bir incelermisiniz.beraber yaparız inşallah.
 

Ekli dosyalar

Son düzenleme:
ama dosya yok dosyanızı .rar yada .zip olarak yüklemeye çalışın
ayrıca kodlar benim değil mutlaka (ç)almışımdır.
 
kodlarınızda hata var userform'da işlem yapamıyoruz.
neye göre yaptığınızı açıklarsanız yardımcı olmaya çalışalım
 
Userformu oluşturduk,Kişileri Form araclığı ile "Veri" sayfasına kaydedip,Sadece RİA uygulama tarihi olanlara (o anda o kayıt yapılmışsa,Kaydet dedikten sonra "Onam Formu"nu yazdırmamız gerekiyor.Yukarıda yazdım ama mükerrer kayıt önemli değil.Birde büyük harf problemi var,Tüm yazılanlar büyük harf olmalı.Temizle bölümüm de var.(Textboxları temizleyip yeni kayıt için)
(Benim yaptığım çalışma o kadar hantal çalışıyor ki anlatamam.102 MB olmuş nasılsa.)
Bu gönderdiğim ilk çalışmamamın başlangıcı,az olanı.yedek dosya idi.
Kodları da şu şekilde idi....
Private Sub CommandButton1_Click() 'KAYDET BUTONU
If TextBox1.Text = Empty Then MsgBox "TC No Giriniz.", , "İhsan Tank": Exit Sub
If TextBox2.Text = Empty Then MsgBox "Adı Giriniz.", , "İhsan Tank": Exit Sub
If TextBox3.Text = Empty Then MsgBox "Soyadı Giriniz.", , "İhsan Tank": Exit Sub
If TextBox4.Text = Empty Then MsgBox "Doğum Tarihi Giriniz.", , "İhsan Tank": Exit Sub
If TextBox5.Text = Empty Then MsgBox "Adresi Giriniz.", , "İhsan Tank": Exit Sub
If TextBox11.Text = Empty Then MsgBox "Uygulayanın Adı Soyadını Giriniz.", , "İhsan Tank": Exit Sub
cevap = MsgBox("Kayıt Etmek İstediğinizden Eminmisiniz!", vbYesNo, "İhsan Tank")
If cevap = vbNo Then Exit Sub
Son_Dolu_Satir = Sheets("Veri").Range("A65536").End(xlUp).Row
Bos_Satir = Son_Dolu_Satir + 1
Sheets("VERİ").Range("A" & Bos_Satir).Value = _
Application.WorksheetFunction.Max(Sheets("Veri").Range("A:A")) + 1
Sheets("Veri").Range("B" & Bos_Satir).Value = TextBox1.Text
Sheets("Veri").Range("C" & Bos_Satir).Value = TextBox2.Text
Sheets("Veri").Range("D" & Bos_Satir).Value = TextBox3.Text
Sheets("Veri").Range("E" & Bos_Satir).Value = TextBox4.Text
Sheets("Veri").Range("F" & Bos_Satir).Value = TextBox5.Text
Sheets("Veri").Range("G" & Bos_Satir).Value = TextBox6.Text
Sheets("Veri").Range("H" & Bos_Satir).Value = TextBox7.Text
Sheets("Veri").Range("I" & Bos_Satir).Value = TextBox8.Text
Sheets("Veri").Range("J" & Bos_Satir).Value = TextBox10.Text
Sheets("Veri").Range("K" & Bos_Satir).Value = TextBox11.Text
MsgBox "Kayıt Yapıldı", , "İhsan Tank"
Sheets("Veri").Select
ActiveWorkbook.Save
End Sub
Private Sub CommandButton4_Click() 'Yazdır Komutu
Sheets("Onam F").Range("C3" & Bos_Satir).Value = TextBox2.Text 'Adı Soyadı
Sheets("Onam F").Range("C3" & Bos_Satir).Value = TextBox3.Text 'Adı Soyadı
Sheets("Onam F").Range("C4" & Bos_Satir).Value = TextBox4.Text 'Doğum Tarihi
Sheets("Onam F").Range("C5" & Bos_Satir).Value = TextBox12.Text 'Kayıt No
Sheets("Onam F").Range("C6" & Bos_Satir).Value = TextBox1.Text 'TC NO
Unload Me
sor = MsgBox(" Yazmadan Önce bir Bakalım... ", vbYesNoCancel)
If sor = vbYes Then
Application.ScreenUpdating = False
Worksheets("Onam F").PrintPreview
Application.ScreenUpdating = True
UserForm1.Show 0
sor2 = MsgBox(" Beğendiyseniz Yazdırayım mı? ", vbYesNo)
If sor2 = vbYes Then
Application.ScreenUpdating = False
Worksheets("Onam F").PrintOut
If sor2 = vbNo Then
UserForm1.Show
End If
End If
End If
If sor = vbNo Then
Application.ScreenUpdating = False
Worksheets("Onam F").PrintOut
UserForm1.Show
End If
If sor = vbCancel Then
UserForm1.Show
End If
End Sub
Private Sub CommandButton5_Click() 'TextBoxları temizler.
For Each nesne In UserForm1.Controls
If TypeOf nesne Is MSForms.TextBox Then
nesne.Text = ""
End If
Next
End Sub
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1 = ListBox1.List(ListBox1.ListIndex, 0) 'ListBox'a tıkladığımızda değerleri textbox'lara alıyoruz.
TextBox2 = ListBox1.List(ListBox1.ListIndex, 1)
TextBox3 = ListBox1.List(ListBox1.ListIndex, 2)
TextBox4 = ListBox1.List(ListBox1.ListIndex, 3)
TextBox5 = ListBox1.List(ListBox1.ListIndex, 4)
TextBox6 = ListBox1.List(ListBox1.ListIndex, 5)
TextBox7 = ListBox1.List(ListBox1.ListIndex, 6)
TextBox8 = ListBox1.List(ListBox1.ListIndex, 7)
TextBox10 = ListBox1.List(ListBox1.ListIndex, 8)
TextBox11 = ListBox1.List(ListBox1.ListIndex, 9)
End Sub
Private Sub CommandButton2_Click()
Unload UserForm1
End Sub
Private Sub CommandButton3_Click() 'Sil Butonu
If ListBox1.ListIndex >= 0 Then
cevap = MsgBox("Bilgi Silinecek... Emin misiniz?", vbYesNo, "SİLME ONAYI")
If cevap = vbYes Then
Silinecek_Satir = ListBox1.ListIndex + 1
Sheets("Veri").Rows(Silinecek_Satir).Delete
End If
End If
End Sub
Private Sub TextBox1_Change()
End Sub
Private Sub UserForm_Activate() 'Aktif Tarih ve Saat
Do
Label14.Caption = Format(Now, "dd.mm.yyyy - hh:mm:ss")
DoEvents
Loop
End Sub
Private Sub TextBox5_Change()
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
MsgBox "Çıkış'ı Kullanınız !...!"
Cancel = True
End If
End Sub
Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 10
ListBox1.ColumnWidths = "65;60;80;50;130;50;50;50;50;50;"
ListBox1.RowSource = "Veri!B2:K200" & Sheets("Veri").Range("A65536").End(xlUp).Row
End Sub
 
Hocam 75KB lık ekli dosyayı aldım,tüm kodları sildim,yukarıdaki kodları yapıştırdım,107 MB olan dosya nasıl oldu bilemedim ama 100 KB oldu.
Kaydet komutu çok uzun çalışıyor.
Hata olarak sadece listbox da sil dediğimiz zaman bir altı yada üstü siliyor,seçili kayıdı silmiyor.
Seçtiğim kayıt için yazdırma Onam F yazdıracağım ama soyadını göremiyorum.
Bir de ListBox da en üst satır boş görünüyor.
Yardım ederseniz,sevinirim.
 

Ekli dosyalar

Son düzenleme:
Altay3555' Alıntı:
Hocam 75KB lık ekli dosyayı aldım,tüm kodları sildim,yukarıdaki kodları yapıştırdım,107 MB olan dosya nasıl oldu bilemedim ama 100 KB oldu.
Kaydet komutu çok uzun çalışıyor.
Hata olarak sadece listbox da sil dediğimiz zaman bir altı yada üstü siliyor,seçili kayıdı silmiyor.
Seçtiğim kayıt için yazdırma Onam F yazdıracağım ama soyadını göremiyorum.
Bir de ListBox da en üst satır boş görünüyor.
Yardım ederseniz,sevinirim.
Genişletmek için tıkla ...

eki inceler misiniz
 

Ekli dosyalar

Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst