• Merhaba Ziyaretçi,
    Microsoft 365 Uygulamaları ile ilgili yeni haberler, dikkat çekici konular, ilgi ile takip edeceğiniz yazılar için.

    Abone Olun
  • ESTE - Microsoft Office Eğitimleri

    Yeni yıl Microsoft Office Eğitim planlarınız için bütçenizi oluşturmadan önce ESTE eğitim kalitesi ile tanışın. 🙌
    Kullanıcıların ihtiyacı olan yazılı materyal, dosya ve video kaynağı desteğimiz ile tüm ofis çalışanlarının iş süreçlerini rahatlatacak eğitimler planlayın. 🎯
    Microsoft Office eğitimlerimiz hakkında detaylı bilgi için bize ulaşın.

    👉 Microsoft Office Eğitim Talebi

Çözüldü Sütundaki İfadeye Göre Sayfalara Aktarmak

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

imPRObable

Yeni Üye
Katılım
30 Haz 2018
Mesajlar
5
En iyi yanıt
0
Puanları
3
Yaş
34
Konum
Istanbul
Ad Soyad
Mustafa Eroğlu
Merhabalar Arkadaşlar,

Bir planlama formulu yapmak istiyorum Bu konuyla alakalıda söyle bir formule ihtiyacım var.

Örneğin;


ISIN ISMI

BASKI

KIRIM

PAKETLEME

Sayfa1 de oluşturduğum listeye göre sayfa2'de
Eğer Kırım varsa "ISIN ISMI" Sutununu buraya yaz gibi bi formule ihtiyacım var.
kafamda oluşturdum bu konuda bana yardımcı olabilcek var mı?
 

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,506
En iyi yanıt
13
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Vers.
Office 365 TR+EN
Merhaba hoş geldiniz..

Tabii ki yardımcı olmak isteriz.
Düşeyara ile yapılabilecek basit bir işlem gibi anlıyoruz fakat yine de örnek bir dosya eklerseniz onun üzerinden bir çözüm sunalım.
 

imPRObable

Yeni Üye
Katılım
30 Haz 2018
Mesajlar
5
En iyi yanıt
0
Puanları
3
Yaş
34
Konum
Istanbul
Ad Soyad
Mustafa Eroğlu
Teşekkür ederim.
EK'te kabaca taslak halinde belirtmeye çalıştım.
"IS LISTESI" çalışma sayfasında işin niteliklerin yazdıktan sonra "VAR" yazan nitelikleri kendi çalışma sayfasında sayfalarında sarı ile belirttiğim kısmın otomatik yazılmasını istiyorum. İnşallah anlatabilmişimdir.
 

Ekli dosyalar

  • PLANLAMA TAKIP.xlsx
    14.6 KB · Görüntüleme: 3

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,506
En iyi yanıt
13
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Vers.
Office 365 TR+EN
Dosyanıza baktığımda Matbaa sektöründe çalıştığınızı düşünüyorum.
Şahsen ben de 10 yıl boyunca Fiyatlandırma Uzmanı ve Üretim Plânlama sorumlusu olarak çalıştım.
Her ne kadar 8 sene önce mesleği bıraksam da matbaa ile ilgili birçok konuya hâkimim.
Zamanında matbaa ile hazırladığım birçok program da mevcut.
Hatta bu destek almak istediğiniz konu ile ilgili aynı mantığı da bir Üretim Takip programımda hazırlamıştım..

Excel Arşivi Arama - Excel Arşivi buradaki arama kutucuğuna matbaa yazıp bakabilirsiniz.
Özellikle de bu program sizin istediğinizden çok daha fazlasını verecektir. Matbaa Üretim Takip Stok Programı - Excel Arşivi

Burada Sayfa2'de şu sütunları göreceksiniz.

muc-min.png

Burada sizde de olduğu gibi Var yazıyor.
Hangi iş sürecinde Var yazıyorsa o iş süreci ile ilgili sayfada da o işe ait özellikler yer almakta.
mucellit-min.png
 

imPRObable

Yeni Üye
Katılım
30 Haz 2018
Mesajlar
5
En iyi yanıt
0
Puanları
3
Yaş
34
Konum
Istanbul
Ad Soyad
Mustafa Eroğlu
Siteye üye olup programı indirmiştim.Gerçekten cok kapsamlı bir program
Fakat şuan kendi yazılımı yazdırıyor şirket geçiş sürecinde geçici olarak takip işini yapacağım benimde çok detaylandırmadan söylediğim şekilde yapsam işimi görüyor..
Kabaca bahsettiğim şekilde formulize etmeniz mümkün mü:)
 

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,506
En iyi yanıt
13
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Vers.
Office 365 TR+EN
Peki :)
Gün içinde hazırlayıp gönderirim. (y)
 
Son düzenleme:

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,506
En iyi yanıt
13
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Vers.
Office 365 TR+EN
Bu kodları kullanabilirsiniz. (y)

PHP:
Sub ExcelTurkey()
    Dim i&, a&, son&, sayfa$
    For i = 3 To Sayfa1.Range("A65536").End(3).Row
        For a = 5 To Sayfa1.Cells(i, Columns.Count).End(1).Column
            If Sayfa1.Cells(i, a).Value = "VAR" Then
                sayfa = Sayfa1.Cells(2, a).Value
                son = Sheets(sayfa).Range("A65536").End(3).Row + 1
                Sheets(sayfa).Range("A" & son).Resize(, 4).Value = Sayfa1.Range("A" & i & ":D" & i).Value
                Sheets(sayfa).Columns.AutoFit
            End If
        Next a
    Next i
    sayfa = vbNullString: son = Empty: a = Empty: i = Empty
End Sub
Dosyayı da ek'ten indirebilirsiniz.
 

Ekli dosyalar

  • PLANLAMA TAKIP.rar
    24.5 KB · Görüntüleme: 11
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst Alt