EXCELDE SATIRLARI DİĞER SAYFALARA OTOMATİK YAZDIRMAK

m.ensar

Altın Üye
Katılım
5 Nisan 2016
Mesajlar
339
Excel Vers. ve Dili
office 10 türkçe
Arkadaslar merhaba liste isimli excel tablosunda sütünlar doldurulduktan sonra en son sutuna girilen veriye göre o satırı ilgili veri sayfasına atmasını istiyorum.
örnek sutunlar dolduruldu başvuru nedeni SED diye girdiğimde o satırı sed sayfasına taşısın istiyorum.
sayfa isimleri de başvuru nedeni ile aynı olduğundan başvuru nedenleri buton halinde olabilir mi? diyelim altıncı satırı doldurdum başvuru nedenine geldiğimde manuel SED yazmayalım da filtreliymiş gibi oradan seçelim.
iyi çalışmalar diliyorum
 

Ekli dosyalar

YUSUF44

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,084
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
Ekli dosyayı inceleyiniz:
 

Ekli dosyalar

m.ensar

Altın Üye
Katılım
5 Nisan 2016
Mesajlar
339
Excel Vers. ve Dili
office 10 türkçe
YUSUF44 üstadım elinize emeğinize sağlık çok güzel olmuş
İyi günler diliyorum
 

m.ensar

Altın Üye
Katılım
5 Nisan 2016
Mesajlar
339
Excel Vers. ve Dili
office 10 türkçe
merhaba
Yusuf Bey' in yardımıyla ekte ki tabloyu oluşturduk. tablo üzerinde yapılması gereken bir kaç husus var. yardımcı olur musunuz gerekli açıklamar tablo da ki anasayfa ve sed sayfasında var
iyi çalışmalar diliyorum
 

Ekli dosyalar

YUSUF44

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,084
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
İlk isteğiniz için formül:

=EĞER(YADA(L2="vefat";L2="nakil";L2="onay");"BİTTİ";EĞER(J2="";"";EĞER(BUGÜN()=J2+15;"Bir Hafta Oldu !!!";EĞER(BUGÜN()>J2+15;"SÜRE SONU !!!";"Normal"))))

Koşullu biçimlendirme için kullanacağınız formül:

=VE($N2<>"Bitti";$J2<>"";$J2+15<BUGÜN())
 

m.ensar

Altın Üye
Katılım
5 Nisan 2016
Mesajlar
339
Excel Vers. ve Dili
office 10 türkçe
(L2="vefat";L2="nakil";L2="onay") yusuf hocam ilk formülünüzü gerekli yere yerleştirdim ve kopyaladığım bu kısmı dilediğim şekil değiştirip entegre ediyorum tam istediğim gibi olmuş ancak ikinci formülün =VE($N2<>"Bitti";$J2<>"";$J2+15<BUGÜN()) nerede kullanılacağını çözemedim
 

YUSUF44

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,084
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
Koşullu biçimlendirme yapmayı biliyorsunuz gördüğüm kadarıyla, dosyanızda var çünkü. Önceki koşullu biçimlendirmeleri yaptığınız gibi yeni kural ekleyip formül olarak o formülü kullanacaksınız.
 

m.ensar

Altın Üye
Katılım
5 Nisan 2016
Mesajlar
339
Excel Vers. ve Dili
office 10 türkçe
hocam teşekkür ediyorum zahmet verdim renk içinmiş ikinci formül biraz yoğunluğumda var anlayamadım ilk önce. Anasayfa daki problem için bir çözüm bulamadım hocam mükerrer kayıt yapmaması için
 

YUSUF44

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,084
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
Güncelleme için Listbox1 click kodlarını aşağıdakiyle değiştirin:

PHP:
Private Sub ListBox1_Click()
a = ActiveCell.Row
ActiveCell = ListBox1.Value
ListBox1.Visible = False
ActiveCell.Offset(0, 1).Select
If WorksheetFunction.CountBlank(Range("B" & a & ":K" & a)) > 0 Then
    MsgBox "Lütfen tüm alanları doldurunuz!"
    Set c = Range("A" & a & ":K" & a).Find("")
    If Not c Is Nothing Then c.Select
Else
    For i = 1 To Sheets.Count
        If Sheets(i).Name = Cells(a, "K") Then
            yeni = Sheets(i).Cells(Rows.Count, "B").End(3).Row + 1
            If WorksheetFunction.CountIf(Sheets(i).Range("F1:F" & yeni), Cells(a, "F")) > 0 Then
                sat = WorksheetFunction.Match(Cells(a, "F"), Sheets(i).Range("F1:F" & yeni), 0)
                Range("B" & a & ":K" & a).Copy Sheets(i).Cells(sat, "B")
                MsgBox a - 1 & ". veri " & Cells(a, "K") & " güncellendi.", vbInformation
                Cells(a + 1, "B").Select
                Exit Sub
            Else
                Range("B" & a & ":K" & a).Copy Sheets(i).Cells(yeni, "B")
                Sheets(i).Cells(yeni, "A") = yeni - 1
                Cells(a, "A") = a - 1
            End If
        End If
    Next
End If
MsgBox a - 1 & ". veri " & Cells(a, "K") & " sayfasına aktarıldı.", vbInformation
Cells(a + 1, "B").Select
End Sub
 

m.ensar

Altın Üye
Katılım
5 Nisan 2016
Mesajlar
339
Excel Vers. ve Dili
office 10 türkçe
Yusuf Hocam emeğinin karşılığını ödeyemem bu liste çalıştığım yer için çok önemli idi ve sayende çözüme kavuştu. Allah razı olsun olur da samsun' da bir işin olur bir mesajın yeterli yapabileceğim herşey için teşekkürler
 

YUSUF44

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,084
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
Teşekkürler, hayırlı işlerde kullanın inşallah.
 

m.ensar

Altın Üye
Katılım
5 Nisan 2016
Mesajlar
339
Excel Vers. ve Dili
office 10 türkçe
hocam listbox kutucuğunun boyutunu büyütebilir miyiz
 

YUSUF44

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,084
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
Listbox açıkken tasarım modunu açın, ondan sonra istediğiniz boyuta getirebilirsiniz. Tasarım modu geliştirici sekmesinde bulunuyor.
 

m.ensar

Altın Üye
Katılım
5 Nisan 2016
Mesajlar
339
Excel Vers. ve Dili
office 10 türkçe
Üstadlarım ne yaptımsa olmadı ekteki resimde ki şekil listbox kutusu sıkısıp kaldı. bu düzeltilebilir mi sayfa boyutunu yükselttiğimde ancak seçebiliyorum içeriğindeki veriyi ama sayfa normal %100 veya 80 90 iken bu şekilde
 

Ekli dosyalar

YUSUF44

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,084
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
Selection kodlarında additem satırlarından sonra aşağıdaki satırları ekleyin:. Width ile genişliği, height ile yüksekliği ve font ile yazı tipi boyutunu değiştirebilirsiniz:

ListBox1.Width = 100
ListBox1.Height = 150
ListBox1.Font.Size = 16
 

m.ensar

Altın Üye
Katılım
5 Nisan 2016
Mesajlar
339
Excel Vers. ve Dili
office 10 türkçe
Yusuf44 hocam büyük desteğin ile ekte olan tabloyu oluşturmaya çalışıyorum. tablo üzerinde bulunan I (SORUMLU MESLEK ELEMANLARI) ve J (AÇIKLAMA) sutunlarındaki verileri de L (BAŞVURU TALEBİ) sutunundaki gibi listbox haline getirilebilir mi? bir de hocam KMÇ SED CİMER gibi alttaki sayfalarda N (kontrol) sutununda bazı sayfalarda SÜRE SONU kırmızı oluyor bazılarında olmuyor tüm sayfalarda süre sonu kırmızı olamaz mı? meslek elemanı sutunu ve açıklama sutunu neden önemli şöyle verileri 4 arkadaş giriyor standart olmayınca gercek sayıları da bulamıyoruz dosyanın kimde olduğunu da
 

Ekli dosyalar

YUSUF44

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,084
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
Sayfanıza bir tane daha listbox ekleyin (adı Listbox2 olmalı) ve sorumlular için selection kodlarını aşağıdakiyle değiştirin:

PHP:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Count > 1 Then Exit Sub
If Intersect(Target, Range("L2:L" & Rows.Count)) Is Nothing Then
    ListBox1.Visible = False
    GoTo 10
End If
ListBox1.Clear
ListBox1.AddItem "SED"
ListBox1.AddItem "KMÇ"
ListBox1.AddItem "ALO183"
ListBox1.AddItem "CİMER"
ListBox1.AddItem "HUZUREVİ"
ListBox1.AddItem "DANŞMNLK"
ListBox1.AddItem "ŞEHİT"
ListBox1.AddItem "ENGELLİ"
ListBox1.Width = 150
ListBox1.Height = 180
ListBox1.Font.Size = 12
T = Target.Cells.Offset(1, 0).Top
L = ActiveCell.Left
ListBox1.Top = T
ListBox1.Left = L
ListBox1.Visible = True

10:
If Intersect(Target, Range("I2:I" & Rows.Count)) Is Nothing Then
    ListBox2.Visible = False
    Exit Sub
End If

son = Sheets("TABLO BİLGİLERİ").Cells(Rows.Count, "F").End(3).Row
ListBox2.Clear
For i = 2 To son
    ListBox2.AddItem Sheets("TABLO BİLGİLERİ").Cells(i, "F")
Next
ListBox2.Width = 150
ListBox2.Height = son * 15
ListBox2.Font.Size = 12
T2 = Target.Cells.Offset(1, 0).Top
L2 = ActiveCell.Left
ListBox2.Top = T2
ListBox2.Left = L2
ListBox2.Visible = True
End Sub
Renkle ilgili isteğinize uygun sayfada uyguladığınız koşullu biçimlendirmeyi diğer sayfalarda da uygulamanız gerekir.
 

m.ensar

Altın Üye
Katılım
5 Nisan 2016
Mesajlar
339
Excel Vers. ve Dili
office 10 türkçe
Yusuf44 Üstadım emeğine sağlık mükemmel oldu çok teşekkür ediyorum
 

m.ensar

Altın Üye
Katılım
5 Nisan 2016
Mesajlar
339
Excel Vers. ve Dili
office 10 türkçe
Merhaba hocam hayırlı günler ekteki listeyi yusuf44 hocam sayesinde yapmıştık. bu listede anasayfaya girilen verileri ilgili sayfaya aktarıyoruz. istediğim ANASAYFA üzerinde herhangi bir satırda adres değişikliği tarih değişikliği veya herhangi bir değişiklik yaptık ve onu daha önce aktardığımız sayfaya yeniden aktardığımızda eski satır üzerinde güncelleme yapmasın sıradaki satıra yeni veri olarak atansın. yardımcı olabilir misiniz
 

Ekli dosyalar

Üst