Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 25-09-2017, 14:51   #11
cenkozkurt
Altın Üye
 
Giriş: 04/02/2017
Şehir: Nürnberg
Mesaj: 35
Excel Vers. ve Dili:
2010
Varsayılan

Teşekkürler bilgi için. Buarada bir önceki mesajıma dosyayı tekrar ekledim. Zamanınız olduğunda bakarsanız sevinirim.
cenkozkurt Çevrimiçi   Alıntı Yaparak Cevapla
Eski 25-09-2017, 17:31   #12
Ömer BARAN
Uzman
 
Giriş: 08/03/2011
Şehir: ANKARA / İSTANBUL
Mesaj: 9,301
Excel Vers. ve Dili:
Office 2013 TÜRKÇE
Varsayılan

Tekrar merhaba.

Son cevabınızdaki isteğiniz çok net anlaşılmıyor doğrusu.
Soru sorarken olması gereken nihai sonucun ne olduğunu net şekilde ifade eder ve örnek belge
üzerinde elle yazarak örneklendirirseniz, daha hızlı yol alınır.

Aşağıdaki şekilde işlem yaparsanız, tekrarlanan birim fiyatların hangi saat aralıklarında olduğu,
ilgili verinin satırında listelenir.

Belgeniz açıkken ALT+F11 tuşlarına basarak VBA ekranını görüntüleyin.
Açılan VBA ekranında üst taraftaki menü çubuğundan INSERT=>MODULEyi seçin.
Sağdaki boş alana aşağıdaki kod'u yapıştırın ve F5 düğmesine tıklayarak kod'u çalıştırın.
Kod'da yer alan son NEXT satırından sonraki kısım sadece biçimlendirmeye yöneliktir.

Önemli: Kod Sayfa1'de önceki işleme ilave olarak N sütunundaki değerlerin Sayfa2'de karşılık geldiği saat dilimlerini, R sütunundan itibaren sağa doğru listeler.
R ve devamı sütunlarda verileriniz varsa o alandaki verileri başka bir yere aktarmadan kod'u çalıştırmayın.
.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub BARAN()
Set S1 = Sheets("Sayfa1"): Set s2 = Sheets("Sayfa2")
son = S1.Cells(Rows.Count, "M").End(3).Row
S1.Range("Q1:IV" & son).ClearContents: S1.[Q1] = "NPT KODU"
    For msat = 2 To son
        m = S1.Cells(msat, "M")
        ilk = Evaluate("=MATCH(""ZZZ"",Sayfa1!Q:Q,1)") + 1
        For psat = ilk To son
                p = p + S1.Cells(psat, "P")
                S1.Cells(psat, "Q") = "M" & msat
                aranan = Replace(S1.Cells(psat, "N"), ".", ",")
                    s2.Range("A1:C" & Rows.Count).AutoFilter Field:=3, Criteria1:=aranan
                    For satt = 2 To s2.Cells(Rows.Count, 1).End(3).Row
                        If s2.Cells(satt, 3) = aranan + 0 Then
                        sut = S1.Cells(psat, Columns.Count).End(xlToLeft).Column + 1
                            S1.Cells(1, sut) = "SAAT DİLİMİ" & Chr(10) & sut - 17
                            S1.Cells(psat, sut) = s2.Cells(satt, 1).Text & "-" & s2.Cells(satt, 2).Text
                        End If
                    Next
                If p > m Then
                    S1.Cells(psat + 1, "P") = S1.Cells(psat + 1, "P") + (p - m)
                    p = 0: fark = 0
                    Exit For
                End If
        Next
    Next
    sonsut = S1.Cells(1, 256).End(xlToLeft).Column
    S1.Range(S1.Cells(1, "Q"), S1.Cells(1, sonsut)).Borders.LineStyle = xlContinuous
    S1.Range(S1.Cells(1, "Q"), S1.Cells(1, sonsut)).Font.Bold = True
    With S1.Range(S1.Cells(1, 17), S1.Cells(S1.Cells(Rows.Count, "P").End(3).Row, sonsut))
        .Font.Size = 10: .VerticalAlignment = xlCenter: .HorizontalAlignment = xlCenter
    End With
    s2.Range("A1:C" & Rows.Count).AutoFilter Field:=3
    S1.Rows("1:1").WrapText = True: S1.Columns("Q:IV").AutoFit
MsgBox "İşlem tamamlandı.", vbInformation, "..::.. Ömer BARAN ..::.."
End Sub
__________________
.
☾✭ İnadına TÜRKÇE ✭☽

-- Sorunuzu, gerçek belgenizle aynı yapıda ve olması gereken sonuçların elle yazıldığı örnek belge ile destekleyiniz.
-- ALTIN ÜYELİK öneriyorum. / FORUM KURALLARInı mutlaka okuyunuz.
-- ALTIN ÜYE olmayanlar, örnek belgeyi dosya.tc, dosya.co gibi bir siteye yükleyip, belgeye erişim adresini verebilir.
-- Özel mesaj ile soru sormayınız. / Geri bildirimde bulunulmayan cevaplarımı siliyorum.
Ömer BARAN Çevrimdışı   Alıntı Yaparak Cevapla
Eski 26-09-2017, 21:53   #13
cenkozkurt
Altın Üye
 
Giriş: 04/02/2017
Şehir: Nürnberg
Mesaj: 35
Excel Vers. ve Dili:
2010
Varsayılan

Teşekkürler Ömer Bey, evet biraz karışık anlatmışım sanırım. Saat dilimi olarak yaptığınız istediğim şekilde olmuş açıkcası. Tek eksik olan "M2" hücresi 252 dakika sürüyor yani "U4" hücresindeki "19:15-19:30" şeklinde değil onun yerine "19:15-19:27" olmalı. M2 hücresinki işlem bittiği içinde bir alt satıra inmeli ve V4,W4,X4 hücrelerindeki toplam 45 dakikayı ve bir önceki işlemden kalan 3 dakikayı bir alt işleme eklemeli.

Dosyanın içerisinde de örneklerle anlatmaya çalıştım. Zamanınız olduğunda bakabilirseniz çok sevinirim. Şimdiden emeğinize teşekkürler.
Eklenmiş Dosyalar
Dosya Türü: xlsm Soru_v1.xlsm (35.6 KB, 3 Görüntülenme)
cenkozkurt Çevrimiçi   Alıntı Yaparak Cevapla
Eski 27-09-2017, 00:07   #14
Ömer BARAN
Uzman
 
Giriş: 08/03/2011
Şehir: ANKARA / İSTANBUL
Mesaj: 9,301
Excel Vers. ve Dili:
Office 2013 TÜRKÇE
Varsayılan

Aslında siz kafanızda bir plan kurmuşsunuz ve adım adım ilerlemeye çalışıyorsunuz sanırım.
Neticede ulaşılacak nihai sonucu hala belirtmiyorsunuz.

Nihai sonucu söyleyin, buna ulaşılırken uygulanan işlemleri hücrelere yazdırmak gördüğünüz gibi mesele değil.

Npt nedir bilemiyorum.
Örneğin M2'deki 252 sayısının karşısına =[(120*0,15)+(75*0,16)+(57*0,17)] => 39,69'u mu elde etmeye çalışıyorsunuz acaba?
Tabi birim fiyat dakika için mi saniye için mi vs bilemediğim için yukarıdaki gibi çarpma toplama işlemi öngördüm.
Son cevabınızda belirttiğiniz sayı "19:15-19:30"=> 0,00833 değil 0,0833 olmayacak mı (virgül kısmı hatalı değil mi)?
.
__________________
.
☾✭ İnadına TÜRKÇE ✭☽

-- Sorunuzu, gerçek belgenizle aynı yapıda ve olması gereken sonuçların elle yazıldığı örnek belge ile destekleyiniz.
-- ALTIN ÜYELİK öneriyorum. / FORUM KURALLARInı mutlaka okuyunuz.
-- ALTIN ÜYE olmayanlar, örnek belgeyi dosya.tc, dosya.co gibi bir siteye yükleyip, belgeye erişim adresini verebilir.
-- Özel mesaj ile soru sormayınız. / Geri bildirimde bulunulmayan cevaplarımı siliyorum.
Ömer BARAN Çevrimdışı   Alıntı Yaparak Cevapla
Eski 27-09-2017, 00:55   #15
cenkozkurt
Altın Üye
 
Giriş: 04/02/2017
Şehir: Nürnberg
Mesaj: 35
Excel Vers. ve Dili:
2010
Varsayılan

Ulaşmak istediğim son aşama yukarıdaki ve örnek dosyada anlattığım şekilde aslında. Npt: Bir ürünün toplam üretim süresi olarak kısaltabiliriz.

Bu programın ana amacı şöyle baştan anlatayım sizde ona göre bir fikir vermek istersiniz belkide. Program belirli zaman dilimlerinde elektrik fiyatları üretiyor şuanda deneme olduğu için rastgele sayılarla. Size gönderdiğim örnekte bu dilim 15 dakika. Üretimi elektrik fiyatlarına göre planlamak için böyle bir yol izliyorum.

Npt'ler aslında farklı ürün gruplarını simgeliyorlar. Bu yüzden hem hangi ürünün hangi aralıkta üretileceğini görmeliyim hemde ne kadara mal olduğunu sizinde bir önceki mesaj yaptığınız gibi fiyatı hesaplayacağım (tek fark saat cinsinden olacak). Ama dediğim gibi zaman aralıkları cok önemli hangi ürün hangi zaman aralığında işlenmeli.

Zaman aralıkları ardışık sayılar değil o yüzden onları ayrıntılı olarak örnekte gösterdiğim gibi göstermeli.
cenkozkurt Çevrimiçi   Alıntı Yaparak Cevapla
Eski 27-09-2017, 01:07   #16
Ömer BARAN
Uzman
 
Giriş: 08/03/2011
Şehir: ANKARA / İSTANBUL
Mesaj: 9,301
Excel Vers. ve Dili:
Office 2013 TÜRKÇE
Varsayılan

Sanırım biraz daha anladım.
Olayı sakin kafayla bir değerlendireyim, mutlaka ilgileneceğim.
Cevap yazmazsam "NASIL üzerinde düşünüyorum" demektir.
Şimdilik hoşçakalın.
__________________
.
☾✭ İnadına TÜRKÇE ✭☽

-- Sorunuzu, gerçek belgenizle aynı yapıda ve olması gereken sonuçların elle yazıldığı örnek belge ile destekleyiniz.
-- ALTIN ÜYELİK öneriyorum. / FORUM KURALLARInı mutlaka okuyunuz.
-- ALTIN ÜYE olmayanlar, örnek belgeyi dosya.tc, dosya.co gibi bir siteye yükleyip, belgeye erişim adresini verebilir.
-- Özel mesaj ile soru sormayınız. / Geri bildirimde bulunulmayan cevaplarımı siliyorum.
Ömer BARAN Çevrimdışı   Alıntı Yaparak Cevapla
Eski 27-09-2017, 11:54   #17
cenkozkurt
Altın Üye
 
Giriş: 04/02/2017
Şehir: Nürnberg
Mesaj: 35
Excel Vers. ve Dili:
2010
Varsayılan

İlginiz için teşekkür ederim Ömer Bey. Tekrar anlaşılmayan bir yer olursa göstermeye çalışırım. Hoşçakalın.
cenkozkurt Çevrimiçi   Alıntı Yaparak Cevapla
Eski 04-10-2017, 01:52   #18
Ömer BARAN
Uzman
 
Giriş: 08/03/2011
Şehir: ANKARA / İSTANBUL
Mesaj: 9,301
Excel Vers. ve Dili:
Office 2013 TÜRKÇE
Varsayılan

Tekrar merhaba.

Hazırladığım dosya ekte.
İnceleyiniz, denemeler yapınız.

Sonucu konu sayfasına yazarsınız.
.
Eklenmiş Dosyalar
Dosya Türü: rar cenkozkurt_BRN1.rar (58.6 KB, 6 Görüntülenme)
__________________
.
☾✭ İnadına TÜRKÇE ✭☽

-- Sorunuzu, gerçek belgenizle aynı yapıda ve olması gereken sonuçların elle yazıldığı örnek belge ile destekleyiniz.
-- ALTIN ÜYELİK öneriyorum. / FORUM KURALLARInı mutlaka okuyunuz.
-- ALTIN ÜYE olmayanlar, örnek belgeyi dosya.tc, dosya.co gibi bir siteye yükleyip, belgeye erişim adresini verebilir.
-- Özel mesaj ile soru sormayınız. / Geri bildirimde bulunulmayan cevaplarımı siliyorum.
Ömer BARAN Çevrimdışı   Alıntı Yaparak Cevapla
Eski 05-10-2017, 16:09   #19
cenkozkurt
Altın Üye
 
Giriş: 04/02/2017
Şehir: Nürnberg
Mesaj: 35
Excel Vers. ve Dili:
2010
Varsayılan

Merhabalar çok teşekkürler, hala inceliyorum, çok teşekkürler en kısa zamanda size geri dönüş yapacağım.
cenkozkurt Çevrimiçi   Alıntı Yaparak Cevapla
Eski 09-10-2017, 00:30   #20
cenkozkurt
Altın Üye
 
Giriş: 04/02/2017
Şehir: Nürnberg
Mesaj: 35
Excel Vers. ve Dili:
2010
Varsayılan

Emeğiniz için tekrar çok teşekkür ederim. Hazırladığınız dosya tam istediğim gibi. Sizin yazdığınız kodları kendi orjinal dosyama kopyaladım ancak calısmıyor. Nedeni hakkında yardımcı olursanız sevinirim. Orjinal dili Türkçe olmadığı için gerekli yerleri çevirdim.

Programın çalışması için; Berechnung>PP Start>Prozess 1
Burada ürün için "Produkte" sayfasındaki herhangi bir ürün yazılabilir. Sayısıda seçildikten sonra ekleye basmalısınız.

Soru 1: Daha sonra program gerekli hesaplamaları yapıyor. Ancak bu esnada bazı makrolar düzenli çalışmıyor. VBA'ya girip makroları tek tek çalıştırdığımda sorun düzeliyor. Nedeni hakkında yardımcı olabilir misiniz?

Soru 2: Sizin hazırladığınız dosya da bazı sayfaların adını değiştirmem gerekti. Sayfa2-->stammdaten, BARAN-->Druckluftbedarf ve SAAT--> Zeit. Ancak kod başka yere kopyaladığımda çalışmadı.

Sizin yaptığınız dosyada değiştirmek istediğim hazırladğınız şekilde gösterim butonuyla değil, onun yerine "saat" kısmının ve "maliyet" kısmının sürekli olarak dosyada kalmasını istiyorum. Ayrıca "maliyet" kısmındada her ürün için toplam fiyatı göstermek istiyorum. Örneğin; M2 kodlu npt için toplam ne kadar harcanmış.

Burada bulunan değerlerde "Berechnung" sayfasında L7 hücresinden itibaren sağa ve aşağıya doğru yazılabilir ve suandaki mevcut hücrelere ihtiyacım yok (L7'den sonrakiler için).

Son olarak "BARAN" sayfasında "Npt kodu" olarak belirttiğiniz yere "druckluftbedarf" sayfasındaki "ürün" sütunu altındaki numaralar gelebilir?
Eklenmiş Dosyalar
Dosya Türü: rar PA_v2.rar (116.7 KB, 2 Görüntülenme)
cenkozkurt Çevrimiçi   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 20:07


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

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım -- Beylikdüzü mali müşavir - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- 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- Gebze Emlak- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri- Çorlu Çelik Konstruksiyon- Çorlu Dans- Edirne Serbest Muhasebeci- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden