Excel Forum

Excel Forum (http://www.excel.web.tr/index.php)
-   Windows-Word-PowerPoint.... (http://www.excel.web.tr/forumdisplay.php?f=51)
-   -   Word'de Tabloya veri alma (http://www.excel.web.tr/showthread.php?t=166020)

ozkovlu 09-08-2017 16:28

Word'de Tabloya veri alma
 
1 Eklenti(ler)
Merhabalar;
Ekli tabloda İzin Formunun içerisinde Personel statüsü ve İzin türü "Birleşik Giriş Kutusu İçeriği Denetimi" nde seçim yapılıyor. Burada;
- Eğer Personel Statüsü => Memur ve İzin Türü => Yıllık İzin ise,
Açıklama kısmına "657 SAYILI DEVLET MEMURLARI KANUNUN Madde 102-(Değişik:31/07/1970-1327/46 md.) Devlet memurlarının yıllık izin süresi, hizmeti 1 yıldan on yıla kadar (on yıl dahil) olanlar için yirmi gün, hizmeti on yıldan fazla olanlar için 30 gündür." yazsın.
- Eğer Personel Statüsü => Memur ve İzin Türü => Mazeret İzin ise,
Açıklama kısmına 657 SAYILI DEVLET MEMURLARI KANUNUN Erkek memura, karısının doğum yapması sebebiyle isteği üzerine üç gün izin verilir. (Değişik: 12.2.1982-2595/7 md.) Memura isteği üzerine, kendisinin veya çocuğunun evlenmesi, annesinin, babasının, eşinin, çocuğunun veya kardeşinin ölümü halinde beş gün izin verilir. yazsın.
- Eğer Personel Statüsü => Sürekli İşçi ve İzin Türü => Yıllık İzin ise,
4857 sayılı İş Kanununun 55 üncü maddesi uyarınca İşyerinde işe başladığı günden itibaren deneme süresi de içinde olmak üzere en az bir yıl çalışmış olan işçilere yıllık ücretli izin verilir. Yıllık ücretli izin hakkından vazgeçilemez.
İşçilere verilecek yıllık ücretli izin süresi, hizmet süresi;
a) Bir yıldan beş yıla kadar (beş yıl dahil) olanlara ondört günden,
b) Beş yıldan fazla onbeş yıldan az olanlara yirmi günden,
c) Onbeş yıl (dahil) ve daha fazla olanlara yirmialtı günden,
yazsın.
şeklinde veriyi nasıl tabloya aldırabiliriz.
Saygılarımla...

halit3 09-08-2017 18:36

1 Eklenti(ler)
Şimdi küçük bir örne k dosya ekliyorum
Açıklama

Örnek dosyayı rardan çıkart ve her iki dosyada yan yana olsun deneme çalışma.xls dosyasının aç O1 hücresinde açılacak dosya adı yazıyor
O3 hücresinde açılan dosyaya ait açıklama bilgisi altına yazılan yazı.

Veri al düğmesini tıkla sonrada gelen verileri hücrelerde değerlendir ve O3 hücresine yaz veya formülle sonrada verileri aktar düğmesine tıkla sonuçları açık word dosyasından irdele

not burada yapılan küçük bir veri alış verişi buradan ilerleyelim daha sonra ne yapmak istediğinizle ilgili formüllerle sonuca ulaşalım ve en sonunda kodları birleştiririz.

ozkovlu 09-08-2017 22:52

1 Eklenti(ler)
Merhaba halit3;
Öncelikle ilginiz için teşekkür ederim. Bayağı uğraşmışsınız. Fakat benim istediğim excel ile veri alış verişi yapmak değildi. Word dosyasının içerisinde şart sağladığı takdirde tablonun açıklama kısmında şartın gözükmesi idi. Ekli dosyada var.
Yapmak istediğim Word ile olmuyor ise Excell de kod ile nasıl yapılır.

halit3 10-08-2017 06:34

1 nolu mesajınızla ilgili şunumu yapmak istiyorsunuz
Word dosyası açılacak kırmızı ve eflatun renkli hücrelerdeki değerlere bakacak ve açıklamanın altındaki hücreye şartı uyan değer yazılıp kayıt yapıldıktan sonra word dosyası kapanacak

ozkovlu 10-08-2017 09:10

Yapmak istediğim
Alıntı:

Word dosyası açılacak kırmızı ve eflatun renkli hücrelerdeki değerlere bakacak ve açıklamanın altındaki hücreye şartı uyan değer yazılacak

halit3 10-08-2017 09:18

1 Eklenti(ler)
Rar dosyasındaki dosyaları çıkart ve yan yana dursun sonra deneme3.xls dosyasını aç ve komut düğmesine tıkla daha sonra yıllık.doc dosyasını aç ve irdele

ozkovlu 10-08-2017 16:42

1 Eklenti(ler)
Sayın halit3;
Sizleri de çok uğraştırdık. Hakkınız helal edin.
Bu iş tek başına Word ile olmayacak anladığım kadarıyla. Sizin yaptığınız istediğim şekilde olmuş fakat işin içerisine excel de giriyor.
Ben yeni İzin formatı düzenledim excelde. Açıklama kısmına aşağıdaki formül ile veriyi aldırıyorum.
Alıntı:

EĞER(VE($C$6=Kanun!$C$1;$C$9=Kanun!B3);Kanun!C3;EĞ ER(VE($C$6=Kanun!$C$1;$C$9=Kanun!B4);Kanun!C4;EĞER (VE($C$6=Kanun!$C$1;$C$9=Kanun!B5);Kanun!C5;EĞER(V E($C$6=Kanun!$C$1;$C$9=Kanun!B6);Kanun!C6;EĞER(VE( $C$6=Kanun!$C$1;$C$9=Kanun!B7);Kanun!C7;EĞER(VE($C $6=Kanun!$C$1;$C$9=Kanun!B9);Kanun!C9;EĞER(VE($C$6 =Kanun!$C$1;$C$9=Kanun!B10);Kanun!C10;EĞER(VE($C$6 =Kanun!$C$1;$C$9=Kanun!B11);Kanun!C11;EĞER(VE($C$6 =Kanun!$C$1;$C$9=Kanun!B12);Kanun!C12;EĞER(VE($C$6 =Kanun!$C$1;$C$9=Kanun!B13);Kanun!C13;EĞER(VE($C$6 =Kanun!$C$1;$C$9=Kanun!B14);Kanun!C14;EĞER(VE($C$6 =Kanun!$C$1;$C$9=Kanun!B15);Kanun!C15;EĞER(VE($C$6 =Kanun!$C$1;$C$9=Kanun!B16);Kanun!C16;EĞER(VE($C$6 =Kanun!$C$1;$C$9=Kanun!B17);Kanun!C17;EĞER(VE($C$6 =Kanun!$C$1;$C$9=Kanun!B18);Kanun!C18;EĞER(VE($C$6 =Kanun!$C$1;$C$9=Kanun!B19);Kanun!C19;EĞER(VE($C$6 =Kanun!$C$1;$C$9=Kanun!B20);Kanun!C20;EĞER(VE($C$6 =Kanun!$C$1;$C$9=Kanun!B21);Kanun!C21;EĞER(VE($C$6 =Kanun!$C$1;$C$9=Kanun!B22);Kanun!C22))))))))))))) ))))))
Sizden istediğim, bu formül ile ancak 1 tane Personel statüsü seçebiliyorum. Seçim yapılacak 5 adet daha statü var. Bunları aynı formüle nasıl ekleyebilirim veya Makro ile oluyorsa nasıl yapılabilir.

Saygılarımla...

halit3 10-08-2017 19:27

Keşke bunu en baştan yapsaydınız wordden veri almak ve aktarmak baya uğraştırıyor.

KTF kod:

Kod:

Function izin(PersonelStatüsü, yıllıkizin)

For i = 3 To 8
If PersonelStatüsü = Sheets("kanun").Cells(1, i).Value Then

For j = 3 To 22
If yıllıkizin = Sheets("kanun").Cells(j, 2).Value Then

izin = Sheets("kanun").Cells(j, i).Value
Exit Function
End If
Next j
End If
Next i

End Function


bu da makro kodu:

Kod:

Sub izin_bul()

For i = 3 To 8
If Sheets("Form").Cells(6, 3).Value = Sheets("kanun").Cells(1, i).Value Then

For j = 3 To 22
If Sheets("Form").Cells(9, 3).Value = Sheets("kanun").Cells(j, 2).Value Then
Sheets("Form").Cells(11, 2).Value = Sheets("kanun").Cells(j, i).Value
Exit Sub
End If
Next j
End If
Next i

End Sub


halit3 10-08-2017 19:39

Bu uygulamada farklı kodu sayfanın kod bölümüne kopyala C6 ve C9 hücrelerinden seç kod kendisi otomatik işlem yapacaktır.

Kod:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [c6,c9]) Is Nothing Then Exit Sub
For i = 3 To 8
If Sheets("Form").Cells(6, 3).Value = Sheets("kanun").Cells(1, i).Value Then

For j = 3 To 22
If Sheets("Form").Cells(9, 3).Value = Sheets("kanun").Cells(j, 2).Value Then
Sheets("Form").Cells(11, 2).Value = Sheets("kanun").Cells(j, i).Value
Exit Sub
End If
Next j
End If
Next i
End Sub


ozkovlu 11-08-2017 09:51

Sayın Halit bey;
Tam istediğim şekilde, 10 numara 5 yıldız olmuş. Bilginize gönlünüze sağlık. Teşekkür ederim.
Bir kaç ekleme daha yapmayı düşünüyorum. Yardımcı olursanız iyi olur.
Kolay gelsin.


Saat 04:04

Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.