User Formdaki Verileri Excele Nasil Aktarabilrim.

[AKTAY27]

Mrb. Arkadaşlar user formda hazırlamış olduğum personel özlük doyasına ait tablolar var ben bu tablolara girdiğim verilerin excele aktarılmasını istiyorum aynı zaman da butonlarla değiştirme, silme, düzeltme, yeni kayıt, vs. işlemleride yapmak istiyorum. bu konu hakkına yardımılarınızı bekliyorum ilgilenne arkadaşlara şimdiden teşekkürler.

 

[AKTAY27]

örnek dosya

örnek dosyayı gönderiyorum

 

[h2001]

Ekli dosya bu forumdan alıntıdır. Yararlanabilirsiniz.

 

[Recep İpek]

Ekli dosyanızı inceleyiniz.Eksik yerleri siz kendinize göre tamamlayabilirsiniz.

 

[AKTAY27]

ripek hocam;

yardımlarından ötürü teşekkür ederim.

1- 1. sayfa kimlik bilgilerini excele atıyor 2. işyeri bilgileri,3. ücret bilgileri vs.sayfaları işleme dahil etmiyor.

2- personel kartını kaydet dediğim zaman işyeri kodu hatası veriyor?

3- Bul butonu'nu referans numarasından değilde isim olarak getirebilirmi?

4- Option butonuna kaynak ekleyebilirmiyiz. örnek olarak erkek-bayan hangisi işaretlenirse onu yazsın.

saygılarımla

 

[Recep İpek]

Fazla zamanım olmadığı için sadece başlangıç olarak hazırladım.
Siz diğer alanların(ücret,işyeri vb...) kodlarını aynı mantıkla yazabilirsiniz.

 

[AKTAY27]

Ben Burda Hazirladim Ama DedİĞİm Gİbİ Excele Aktarmiyor Ve İŞyerİ Kodu Hatasi Verİyor İŞİn İÇİnden ÇikamadiĞim İÇİn Sİze BaŞvurmak Zorunda Kaldim.

 

[AKTAY27]

SİZİN GÖDERDİĞİNİZ KODLARIN ALTINA EKLEMEYE ÇALIŞTIM AMA HATA VERİYOR İSTERSENİZ HATA YAPTIĞIM YERİ SÖYLERSENİZ DEVAM EDEBİLİRİM.
-------------------------------------------------------------------------
Sub VeriAl()
'Kimlik Bilgileri
Me.RefNo = ActiveCell.Offset(0, 0).Value
Me.kartno = ActiveCell.Offset(0, 1).Value
Me.dosyano = ActiveCell.Offset(0, 2).Value
Me.adısoyadı = ActiveCell.Offset(0, 3).Value
Me.ssksicilno = ActiveCell.Offset(0, 4).Value
Me.tckimlikno = ActiveCell.Offset(0, 5).Value
Me.telefonno = ActiveCell.Offset(0, 6).Value
Me.adres = ActiveCell.Offset(0, 7).Value
Me.doğumyeri = ActiveCell.Offset(0, 8).Value
Me.doğumtarihi = ActiveCell.Offset(0, 9).Value
Me.babadı = ActiveCell.Offset(0, 10).Value
Me.anaadı = ActiveCell.Offset(0, 11).Value
Me.nüfusakayıtlıolduğuil = ActiveCell.Offset(0, 12).Value
Me.nüfusakayıtlıolduğuilçe = ActiveCell.Offset(0, 13).Value
Me.mahalleköy = ActiveCell.Offset(0, 14).Value
Me.ciltno = ActiveCell.Offset(0, 15).Value
Me.ailesırano = ActiveCell.Offset(0, 16).Value
Me.sırano = ActiveCell.Offset(0, 17).Value
Me.medenidurumu = ActiveCell.Offset(0, 18).Value
Me.Erkek = ActiveCell.Offset(0, 19).Value
Me.Bayan = ActiveCell.Offset(0, 19).Value

'İşyeri Bilgileri
Me.işyerikodu = ActiveCell.Offset(0, 210).Value
Me.işyeriünvanı = ActiveCell.Offset(0, 22).Value
Me.görevyeri = ActiveCell.Offset(0, 23).Value
Me.sigortalıolduğıyer = ActiveCell.Offset(0, 24).Value
Me.departmanı = ActiveCell.Offset(0, 25).Value
Me.görevi = ActiveCell.Offset(0, 26).Value
Me.işegiriştarihi = ActiveCell.Offset(0, 27).Value
Me.sskişebaşlamatarihi = ActiveCell.Offset(0, 28).Value
Me.iştençıkıştarihi = ActiveCell.Offset(0, 29).Value
Me.ayrılmanedeni = ActiveCell.Offset(0, 30).Value

'Ücret Bilgileri
Me.mesaisaatıuygulması = ActiveCell.Offset(0, 31).Value
Me.aylıkücreti = ActiveCell.Offset(0, 32).Value
Me.ocak = ActiveCell.Offset(0, 33).Value
Me.şubat = ActiveCell.Offset(0, 34).Value
Me.mart = ActiveCell.Offset(0, 35).Value
Me.nisan = ActiveCell.Offset(0, 36).Value
Me.mayıs = ActiveCell.Offset(0, 37).Value
Me.haziran = ActiveCell.Offset(0, 38).Value
Me.temmuz = ActiveCell.Offset(0, 39).Value
Me.ağustos = ActiveCell.Offset(0, 40).Value
Me.eylül = ActiveCell.Offset(0, 41).Value
Me.ekim = ActiveCell.Offset(0, 42).Value
Me.kasım = ActiveCell.Offset(0, 43).Value
Me.aralık = ActiveCell.Offset(0, 44).Value

End Sub

Sub VeriVer()
'Kimlik Bilgileri
ActiveCell.Offset(0, 1).Value = Me.kartno * 1
ActiveCell.Offset(0, 2).Value = Me.dosyano * 1
ActiveCell.Offset(0, 3).Value = Me.adısoyadı
ActiveCell.Offset(0, 4).Value = Me.ssksicilno * 1
ActiveCell.Offset(0, 5).Value = Me.tckimlikno * 1
ActiveCell.Offset(0, 6).Value = Me.telefonno * 1
ActiveCell.Offset(0, 7).Value = Me.adres
ActiveCell.Offset(0, 8).Value = Me.doğumyeri
ActiveCell.Offset(0, 9).Value = Me.doğumtarihi
ActiveCell.Offset(0, 10).Value = Me.babadı
ActiveCell.Offset(0, 11).Value = Me.anaadı
ActiveCell.Offset(0, 12).Value = Me.nüfusakayıtlıolduğuil
ActiveCell.Offset(0, 13).Value = Me.nüfusakayıtlıolduğuilçe
ActiveCell.Offset(0, 14).Value = Me.mahalleköy
ActiveCell.Offset(0, 15).Value = Me.ciltno
ActiveCell.Offset(0, 16).Value = Me.ailesırano
ActiveCell.Offset(0, 17).Value = Me.sırano
ActiveCell.Offset(0, 18).Value = Me.medenidurumu
ActiveCell.Offset(0, 19).Value = Me.Erkek
ActiveCell.Offset(0, 19).Value = Me.Bayan

'İşyeri Bilgileri
ActiveCell.Offset(0, 21).Value = Me.işyerikodu * 1
ActiveCell.Offset(0, 22).Value = Me.işyeriünvanı
ActiveCell.Offset(0, 23).Value = Me.görevyeri
ActiveCell.Offset(0, 24).Value = Me.sigortalıolduğıyer
ActiveCell.Offset(0, 25).Value = Me.departmanı
ActiveCell.Offset(0, 26).Value = Me.görevi
ActiveCell.Offset(0, 27).Value = Me.işegiriştarihi
ActiveCell.Offset(0, 28).Value = Me.sskişebaşlamatarihi
ActiveCell.Offset(0, 29).Value = Me.iştençıkıştarihi
ActiveCell.Offset(0, 30).Value = Me.ayrılmanedeni

'Ücret Bilgileri
ActiveCell.Offset(0, 31).Value = Me.mesaisaatıuygulması
ActiveCell.Offset(0, 32).Value = Me.aylıkücreti
ActiveCell.Offset(0, 33).Value = Me.ocak
ActiveCell.Offset(0, 34).Value = Me.şubat
ActiveCell.Offset(0, 35).Value = Me.mart
ActiveCell.Offset(0, 36).Value = Me.nisan
ActiveCell.Offset(0, 37).Value = Me.mayıs
ActiveCell.Offset(0, 38).Value = Me.haziran
ActiveCell.Offset(0, 39).Value = Me.temmuz
ActiveCell.Offset(0, 40).Value = Me.ağustos
ActiveCell.Offset(0, 41).Value = Me.eylül
ActiveCell.Offset(0, 42).Value = Me.ekim
ActiveCell.Offset(0, 43).Value = Me.kasım
ActiveCell.Offset(0, 44).Value = Me.aralık

End Sub

 

[Recep İpek]

Yazdığınız kodları ekleyebilirmisiniz?

 

[Recep İpek]

'Me.Erkek = ActiveCell.Offset(0, 19).Value
'Me.Bayan = ActiveCell.Offset(0, 19).Value

Optionbutton'un alacağı değer True veya False olacağı için ActiveCell.Offset(0, 19).Value hücresinin değerininin bir tanesini True, diğerini ise False yapmanız gerekmektedir.

Me.işyerikodu = ActiveCell.Offset(0, 210).Value
Me.ComboBox1 = ActiveCell.Offset(0, 22).Value
Me.ComboBox2 = ActiveCell.Offset(0, 23).Value
Me.sigortalıolduğıyer = ActiveCell.Offset(0, 24).Value
Me.departmanı = ActiveCell.Offset(0, 25).Value
Me.görevi = ActiveCell.Offset(0, 26).Value

Buradaki hatalar ise Combobox'ların isimlerini değiştirmediğiniz için oluşmaktadır.

Örneğin İşyeri adı Userformda Combobox1 olarak görünüyor.

 

[AKTAY27]

ÖzÜr Dİlerİm Onu SÖylemeyİ Unuttum Bİlgİsayarimda Kayitli Olan Dosyadan DeĞİŞtİrdİm.İstersenİz Sİze Bendekİ Dosyanin Son Şeklİnİ GÖndereyİm.

 

[AKTAY27]

Personel Karti Son Şeklİ

Sİzİn EklemİŞ OlduĞunuz Kodlarin Altina EkledİĞİm Dosyayi GÖnderİyorum.