Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > Diğer Yazılımlar > Windows-Word-PowerPoint....
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Windows-Word-PowerPoint.... Excel haricindeki Ofis programları ile ilgili konular.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 09-08-2017, 16:28   #1
ozkovlu
Altın Üye
 
Giriş: 22/10/2011
Şehir: GÜMÜŞHANE
Mesaj: 208
Excel Vers. ve Dili:
2013
Lightbulb Word'de Tabloya veri alma

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...
Eklenmiş Dosyalar
Dosya Türü: zip Yillik_izinFormatı(Bilgisayar).zip (26.1 KB, 6 Görüntülenme)
ozkovlu Çevrimdışı   Alıntı Yaparak Cevapla
Eski 09-08-2017, 18:36   #2
halit3
Uzman
 
halit3 kullanıcısının avatarı
 
Giriş: 18/01/2008
Mesaj: 10,489
Excel Vers. ve Dili:
2003 excel türkçe
Varsayılan

Ş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.
Eklenmiş Dosyalar
Dosya Türü: rar deneme.rar (24.1 KB, 6 Görüntülenme)
__________________





Forum Kuralları
halit3 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 09-08-2017, 22:52   #3
ozkovlu
Altın Üye
 
Giriş: 22/10/2011
Şehir: GÜMÜŞHANE
Mesaj: 208
Excel Vers. ve Dili:
2013
Varsayılan

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.
Eklenmiş Dosyalar
Dosya Türü: xlsx denemem.xlsx (54.8 KB, 2 Görüntülenme)
ozkovlu Çevrimdışı   Alıntı Yaparak Cevapla
Eski 10-08-2017, 06:34   #4
halit3
Uzman
 
halit3 kullanıcısının avatarı
 
Giriş: 18/01/2008
Mesaj: 10,489
Excel Vers. ve Dili:
2003 excel türkçe
Varsayılan

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
__________________





Forum Kuralları
halit3 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 10-08-2017, 09:10   #5
ozkovlu
Altın Üye
 
Giriş: 22/10/2011
Şehir: GÜMÜŞHANE
Mesaj: 208
Excel Vers. ve Dili:
2013
Varsayılan

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

Bu mesaj en son " 10-08-2017 " tarihinde saat 10:34 itibariyle ozkovlu tarafından düzenlenmiştir....
ozkovlu Çevrimdışı   Alıntı Yaparak Cevapla
Eski 10-08-2017, 09:18   #6
halit3
Uzman
 
halit3 kullanıcısının avatarı
 
Giriş: 18/01/2008
Mesaj: 10,489
Excel Vers. ve Dili:
2003 excel türkçe
Varsayılan

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
Eklenmiş Dosyalar
Dosya Türü: rar deneme3.rar (19.3 KB, 3 Görüntülenme)
__________________





Forum Kuralları
halit3 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 10-08-2017, 16:42   #7
ozkovlu
Altın Üye
 
Giriş: 22/10/2011
Şehir: GÜMÜŞHANE
Mesaj: 208
Excel Vers. ve Dili:
2013
Varsayılan

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...
Eklenmiş Dosyalar
Dosya Türü: xlsx İZİN FORMAT YENİ.xlsx (25.3 KB, 7 Görüntülenme)
ozkovlu Çevrimdışı   Alıntı Yaparak Cevapla
Eski 10-08-2017, 19:27   #8
halit3
Uzman
 
halit3 kullanıcısının avatarı
 
Giriş: 18/01/2008
Mesaj: 10,489
Excel Vers. ve Dili:
2003 excel türkçe
Varsayılan

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

KTF kod:

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
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: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
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
__________________





Forum Kuralları
halit3 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 10-08-2017, 19:39   #9
halit3
Uzman
 
halit3 kullanıcısının avatarı
 
Giriş: 18/01/2008
Mesaj: 10,489
Excel Vers. ve Dili:
2003 excel türkçe
Varsayılan

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: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
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
__________________





Forum Kuralları
halit3 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 11-08-2017, 09:51   #10
ozkovlu
Altın Üye
 
Giriş: 22/10/2011
Şehir: GÜMÜŞHANE
Mesaj: 208
Excel Vers. ve Dili:
2013
Varsayılan

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.
ozkovlu Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 09:56


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Palet- Çerkezköy Palet- Çorlu Prefabrik- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri- Çorlu Çelik Konstruksiyon-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden