Makro ile Sadeleştirme

[tipitipim]

Merhaba Arkadaşlar;

Excel'e yeni gönül verdim ve sitenizi yeni keşfettim çok teşekkür ederim böyle bir imkan sağladığınız için.

Ek ile yolladığım dosyada Ham Rapor sayfasındaki kırmızı ile belirttiğim satırları, Calismalar sayfasındaki isimlerin karsısına getirmek istiyorum.

Bunu nasıl makro yada formulle yapabilirim yarcımcı olursanız çok sevinirim.


(Dosya boyutu 500kb altına düşürmek için biraz satır sildim)

 

[Ferhat Pazarçevirdi]

Ham Rapor kısmında mükerrer isimler (sanırım) bulunmakta ...

Aşağıdaki kodu bir butona atayıp çalıştırınız. Sonuçlar istediğiniz gibi mi bilemiyorum.

Sub DENEME()
    Dim bul As Range
    Dim adres As String
    Dim i As Integer
    Dim sh As Worksheet
    i = 3
    Set sh = Sheets("Ham Rapor")
    Sheets("Calismalar").Range("C4:I5000").ClearContents
    Set bul = sh.Columns(1).Find("Agent:", Lookat:=xlWhole)
    If Not bul Is Nothing Then
        adres = bul.Address
        On Error Resume Next
        Do
            i = i + 1
            With Sheets("Calismalar")
                .Cells(i, 3) = sh.Cells(bul.Row, 2)
                .Cells(i, 5) = sh.Cells(bul.Row + 10, "R")
                .Cells(i, 6) = sh.Cells(bul.Row + 10, "X")
                .Cells(i, 7) = sh.Cells(bul.Row + 10, "AD")
                .Cells(i, 8) = sh.Cells(bul.Row + 10, "AJ")
                .Cells(i, 9) = sh.Cells(bul.Row + 10, "AN")
            End With
                        
            Set bul = sh.Columns(1).FindNext(bul)
        Loop While Not bul Is Nothing And adres <> bul.Address
        On Error GoTo 0
    End If
    Set bul = Nothing
    Set sh = Nothing
End Sub

 

[Ferhat Pazarçevirdi]

Eğer isimler tek sefer raporlansın derseniz, bu sefer aşağıdakileri kullanabilirsiniz.

Sub DENEME2()
    Dim bul As Range
    Dim adres As String
    Dim i As Integer
    Dim sh As Worksheet
    Dim col As New Collection
    i = 3
    Set sh = Sheets("Ham Rapor")
    Sheets("Calismalar").Range("C4:I5000").ClearContents
    Set bul = sh.Columns(1).Find("Agent:", Lookat:=xlWhole)
    
    If Not bul Is Nothing Then
        adres = bul.Address
        On Error Resume Next
        Do
            col.Add sh.Cells(bul.Row, 2), sh.Cells(bul.Row, 2)
            If Err.Number = 0 Then
                i = i + 1
                With Sheets("Calismalar")
                    .Cells(i, 3) = sh.Cells(bul.Row, 2)
                    .Cells(i, 5) = sh.Cells(bul.Row + 10, "R")
                    .Cells(i, 6) = sh.Cells(bul.Row + 10, "X")
                    .Cells(i, 7) = sh.Cells(bul.Row + 10, "AD")
                    .Cells(i, 8) = sh.Cells(bul.Row + 10, "AJ")
                    .Cells(i, 9) = sh.Cells(bul.Row + 10, "AN")
                End With
            End If
            Err.Number = 0
            
            Set bul = sh.Columns(1).FindNext(bul)
        Loop While Not bul Is Nothing And adres <> bul.Address
        On Error GoTo 0
    End If
    
   
    Set bul = Nothing
    Set sh = Nothing
End Sub

 

[tipitipim]

Çok teşekkür ederim hemen deniyorum.

 

[tipitipim]

Ferhat bey yardımınız için öncelikle ne kadar teşekkür etsem azdır.

Gönderdiğim dosyada sizin formulunuz (2. mesajınızdaki) ile sonuca ulaştım.

Yalnız bu dosya sadece 01 nisan ile 08 nisan arasındaki veri ile çalışıyor, 01-03 nisan eklediğimde veya 23-29 mart eklediğimde çalıştıramadım.

Ham rapora 01 nisan ile 03 nisanın verisini koydugumda isimleri atıyor ama değerleri vermiyor. Bu raporu her gün 01 nisan 1-3-5-8-9-10-11-12.... her gün alacağım ertesi gün bunun çalışmasını nasıl sağlayabilirim. Dosya boyutu buraya sığmadığı için ilk dosyada biraz satır silmiştim. Bu hataya düşmemek için 2-3 er günlük 3 dosya ekliyorum tekrar yarcımınızı rica ediyorum.

Olmayacak birşey istiyorsam dahi yardımlarınız için tekrar tekrar teşekkür ederim.

Hoşçakalın.

 

[Ferhat Pazarçevirdi]

Son gönderdiğiniz dosyalarda da, kodların çalışabilmesi için, aynı sayfa isimlerini kullanmalısınız. Yani "Ham Rapor" ve "Calismalar" diye iki tane sayfa olmalı ....

Ben ilk gönderdiğiniz örnek üzerinden gittiğim için sayfa isimlerini bu şekilde kullandım. Başka bir yöntem uygulamak istiyorsanız, ona göre kodlayalım.

 

[tipitipim]

Ferhat bey şu anda aldığım ham rapor bu şekilde ben diğerinde olmasını istediğim şekli vermiştim sizi yanıltacağını düşünmeden.

Diyelimki 1-3 nisanı Ham Rapor ve Calismalar olacak şekilde 2 sayfaya böldük ve sorunsuz çalıştı.

2 gün sonra Ham Rapor kısmında olanın üzerinde 1-7 nisanı yapıştırsam Calismalar sekmesinde 1-7 nisanı görebilmek istiyorum.

Benim elimde bir taslak olsun ben raporu çekip ekledikçe Calismalar sekmesindeki değerler son eklediğim rapora göre kendisini düzeltsin.

Tam olarak anlatmayı başarabilmişimdir umarım.

Teşekkürler.

 

[Ferhat Pazarçevirdi]

Olayın ne olduğunu tam olarak anlayamamakla birlikte, şunu söyleyebirim.

"Ham Rapor" sayfasına aynı formatta istediğiniz kadar bilgi yükleyebilirsiniz. Excel'in son satırı doluncaya kadar sayfanın üstüne ham verilerinizi ilave edebilirsiniz.

Makroyu çalıştırdığınız zaman, "Calismalar" sayfasina, "Ham Rapor" sayfasinda ne kadar veri okunduysa o kadar veri gelecektir. (Tabi mükerrer kayıtlar elendikten sonra ...)

Ama şunu söyleyeyim, yazdığımız makro ile 1-3 arası alınan rapor ile 1-7 arasındaki rapor arasında bir fark göremeyeceksiniz ... En azından yeni eklenen isimler yoksa ... Benim anladıklarımdan tahmin edebildiğim bu ...

 

[tipitipim]

Ferhat bey sabrınız ve hızınız için teşekkür ederim.

Olayı biraz açıklamam gerekiyor sanırım. Bu veriler bir çağrı merkezinin santralinin ham raporudur. Yapmak istediğim Mükerrer kayıtları silmek ve günlük olarak arkadaşlara çalışma sürelerini sadeleştirip göstermektir.

Şimdi eklediğim dosyada 1-4 nisan arasında çalışan arkadaşların verileri var.
Dosyayı iki sayfaya ayırdım Ham rapor ve Calismalar olarak.Ham rapor sayfasında kırmızı ile belirtilen bölmeyi her arkadaş için Calismalar sayfasında göstermek istiyorum.

Konuyu açtığımdaki format ham rapor formatı değil buraya yollanabilmek için bazı satır ile sutunları silinmiş bir formattı ve bu yüzden ertesi günün raporunu eklediğimde sanıyorum makro çalışmadı. Bu son yolladığım dosya tamamen ham rapordur 2. mesajınızdaki gibi ayarlarsanız diğerleride çalışacaktır sanıyorum.

Umarım açıklayabilmişimdir, istediğini anlatabilmek bile öğrenmeyi gerektiriyor.

Yardımlarınız için çok teşekkürler.

 

[tipitipim]

Dosyayı eklemeyi unutmuşum özür dilerim

 

[Ferhat Pazarçevirdi]

Dosyayı inceleyiniz. Ham Rapor sayfasındaki buton basmanız gerekiyor.

Daha sonra da 1-7 tarihli raporu alın ve bunun üzerine yapıştın ve deneyin. Sanırım, bu ham çağrı raporları kümülatif sonuçları gösterdiğinden, üretilen rapor da doğru olacaktır.

NOT : Dosyalarınızı sıkıştırarak (zip, rar gibi...) gönderirseniz, forum alanından da tasarruf etmiş oluruz

 

[tipitipim]

Ferhat Bey,

Dosyayı şimdi aldım açtım ve kullanıyorum, sorunda yok. Size nasıl teşekkür etsem azdır.

Ellerinize gözlerinize sağlık.

Keşke böyle hazır olmasa ben öğrenip kendim yapsam. Hazırcılığı hiç sevmiyorum ama bunun mantığının anlatılmasıda uzunca bir iştir sanıyorum.

Excel'e yeni gönül veren birisi olarak bu siteninde müdavimlerinden olacağım kesin.

Saygılarımla.

 

[Ferhat Pazarçevirdi]

Rica ederim, İşinize yaradığına sevindim.

Öğrenme konusunda aceleci davranmayın. Yoksa kafanız iyice karışır ...

Yabancı bir dili öğrenmek için bile, önce derdinizi anlatacak kelimeyi ve daha sonra da bir miktar grameri öğrenmelisiniz.

VBA'da da aynı şey geçerli ... Kelimeler var ve bu kelimelere -mesela- komut deniyor. Bu kelimeleri belirli bir kurala göre ardı ardına dizerek cümle oluşturmaya "gramer bilgisi" diyebiliriz. Gramerleri doğru kullandığınızda bir sürü cümle kurabiliyorsunuz ve buna da yukarıdaki gibi "VBA kodu" deniyor.

Yavaş yavaş bunları öğrenmeye ve aşinalık kazanmaya çalışın. Forumu takip edin ... İlk başlarda "Makro Kaydet" komutu siz çok şey kazandıracaktır.

"Makro Kaydet", VBA'nın tercümanıdır

 

[tipitipim]

Çok teşekkür ederim tekrar yardımlarınız ve tavsiyeleriniz için.

Saygılarımla...