[Yardım]  Makro ile koşullu olarak sayfalardan hücre vedeğeri alma.

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Makro ile koşullu olarak sayfalardan hücre vedeğeri alma.

İleti#1)  asım5460 » 13 Nis 2019 21:47

ornek2. exe -.rar

Merhaba
Ben yapmış olduğum metraj sayfalarından içmal yapmak istiyorum.
Metrajlar Excel sayfalarının poz numaraları olarak isimlendirilip bu pozlara göre yapılan imalat metrajlarının çıkarılmasıdır.Bu pozlar yani sayfaların adetleri bir çok sayıda olabiliyor.
Metrajlar açıklama , mahal,ve pozlardan oluşup bunlara göre birimi ve hesapları yapılan adet isim ve miktar hesaplarıdır.Bunların sonucu mahal ve poz miktarlarının dökümü ve sonuçlarını içmaller oluşturmaktadır. Yani bunların içmal sayfasında toplanmasıdır.
Benim burada yapamadığım içmal sayfası ise poz nolarına göre,poz isimleri ve bunlara ait mahal, mahal toplamları ve poz toplamlarının çıkarılmasıdır.
Bunun yapılış şeklini elle yapabiliyorum. Ancak pozlar(sayfalar)ve içerikleri çok fazla olduğu zaman bu sonuçların çıkarılması çok zaman alıyor.
Bu içmallerin dökümü yani çıkarılmasını makro yazılımı ile kısaltmaya çalıştım. Ancak poz nolarını yazdırmanın ilerisine gidemedim.
Bu konuda yardımlarınızı bekliyorum.
Eklemiş olduğum dosyada çıkarılmış olan pozlara göre metraj örnekleri ve sonuçlarını sarı hüçrelerle ve içeriklerini kırmızı yazı ile belirttim.
Yapmak istediğim içmal dosyasını oluşturdum ve yapılış şeklini kırmızı yazılar ile elden kısa örnek olarak belirttim.Bunlarla ilgili açıklamaları yeşil renkli yazı ile yazdım.
İçmalin makro ile otomatik olarak oluşturulmasında gerekli makro yazılımının yapımında yardımlarınızı bekliyorum. Ek olarak az makro ve Excel bilgisiyle araştırarak hazırlamaya çalışdığım dosyayı örnek 2 olarak ekliyorum. Dosyadaki amplemin üzerindeki ünlem işaretinin nedenini bulamadım bu konudada bana bilgi verirseni sevinirim.
Hepinize teşekkürlerimi sunarım. Saygılarımla
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
asım5460
 
Kayıt: 09 Nis 2019 11:57
Meslek: İnş müh.
Yaş: 61
İleti: 5
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kayseri/Kocasinan

Cevap: Makro ile koşullu olarak sayfalardan hücre vedeğeri

İleti#2)  ahmetilhan282 » 15 Nis 2019 22:18

icmal isimli sayfaya sağ tıklayın. Kod görüntüle deyin. Aşağıdaki kodları yapıştırın.
İcmal sayfasındaki İcmal Oluştur butonuna sağ tıklayın. Makro ata deyin. icmalOlustur isimli makroyu seçin ve deneyin.
Kod: Tümünü seç
Sub icmalOlustur()
    Dim sayfa As Worksheet, satir&, ss&, i&, basla&
    satir = 10

    For Each sayfa In ThisWorkbook.Sheets
        With sayfa
            If .Name Like "#*" Then
                Cells(satir, 4) = .Name
                Cells(satir, 5) = .Range("C6")
                ss = .Cells(Rows.Count, 1).End(xlUp).Row
                Cells(satir, "I") = .Cells(ss, "M")
                Cells(satir, "J") = .Cells(ss, "N")
                satir = satir + 1
                basla = 7
                For i = 7 To ss
                    If .Cells(i, 1) = "2" Then
                        Cells(satir, "E") = .Cells(basla, 2)
                        Cells(satir, "G") = .Cells(i, "M")
                        Cells(satir, "H") = .Cells(i, "N")
                        basla = i + 1
                        satir = satir + 1
                    End If
                Next i
            End If
        End With
    Next sayfa

    Set sayfa = Nothing: ss = Empty: satir = Empty: i = Empty: basla = Empty
    MsgBox "İşlem Tamamlandı.", vbInformation, "BİLGİ"
End Sub
Kullanıcı avatarı
ahmetilhan282
Site Dostu
 
Adı Soyadı:Ahmet İLHAN
Kayıt: 15 Oca 2014 00:04
Konum: Adana
Meslek: Güvenlik
Yaş: 29
İleti: 798
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Mersin

Cevap: Makro ile koşullu olarak sayfalardan hücre vedeğeri

İleti#3)  asım5460 » 16 Nis 2019 22:21

Sayın Ahmet ilhan bey
Yardım talebime karşılık yapmış olduğunuz makro proğramını kendi Excel dosyamda tarif ettiğiniz şekilde yükleyip içmal sayfasına makro atayarak çalıştırdım.
Çok güzel olmuş mükemmel olarak çalıştı.
Yardımlarınız ve eklemiş olduğunuz makro proğramı için çok teşekkür ederim.
Burdaki çalışmaların ve uygulamaların takipcisi olacağım.
Bundan sonraki çalışmalarınızdada başarılar dilerim. şkşk
Kullanıcı avatarı
asım5460
 
Kayıt: 09 Nis 2019 11:57
Meslek: İnş müh.
Yaş: 61
İleti: 5
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kayseri/Kocasinan


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe