Ekteki dosyadaki Makro ile ilgili

[abbasonline]

Dosya ekte, ayrıca sayfalara düyme eklemeden çalışması için ne yapmam gerekli.

 

[abbasonline]

makroları yazamadım.

 

[abbasonline]

Birde Sayfa 2 de c, d, e sütunlarındaki hücrelere yazılacak olan rakamlar birden fazla olduğu zaman (Örn; 2 tane rakam yok 3 ile 4 bunları olmayan sütunundaki tek hücreye yazdırmak. Örn; 3 tane, 5 var Mükerrer sütununda ki karşılığı olan hücrenin içine yazması gibi.)

 

[abbasonline]

Halen daha beceremedim.

 

[abbasonline]

makrolarla böyle bir dosya yapılabilirmi.

 

[abbasonline]

Evren bey, makrolarla böyle bir dosya yapılabilirmi.

 

[Orion1]

Evren bey, makrolarla böyle bir dosya yapılabilirmi.

Ben bundan hiç bir şey anlamdım.
Öyle anlaşılıyor ki sadece ben değil başkalrıda anlamamış.
Çünkü çok kişi bakmış ama bir cevap gelmemiş.
Böyle durumlarda soruda bir problem vardır yada sorunuz excelde yapılamıyordur.
Bana bazı çelişkilerde var gibi geliyor.
Böyle sorulara pek girmek istemiyorum.
Durumu aydınlatmak soruyu çözmekten daha zor oluyor.
Bir sürü yazışma sonunda ancak konu anlaşılıyor.
Belki başka bir arkadaş size yardımcı olacaktır.

 

[abbasonline]

Evren bey ilgilendiğiniz için teşekkürler birazdaha Excel sayfasının içene açıklama yapsam uygun olurmu, veyahut foruma,

 

[Orion1]

Evren bey ilgilendiğiniz için teşekkürler birazdaha Excel sayfasının içene açıklama yapsam uygun olurmu, veyahut foruma,

Yapın ama bir garantide vermem.

 

[abbasonline]

tabloyu yeniden düzenledim, önceki biraz karmaşıktı, ilgilenenlere teşekkürlür.

 

[Excelmy]

Sayın abbasonline,

Bu kontrollerin kayıt esnasında yapılması daha mantıklı olur.
İkinci bir sayfaya aktarılıp bakılmasından ziyade, sıra numarasının otm. olması gibi.

 

[abbasonline]

Hayır numaraları evraktan yazıyorum evrakta bazen numara atlanabiliyor veyahut mükerrer de verebiliyorlar, isimlerde sıralı değil geleni yazıyorum onunu için bir düzen olmuyor.

 

[abbasonline]

Evren bey, dosyadaki çözüme yakın başkaca bir çözüm olabilirmi, ada göre mükerrerleri, olmayan sayıları ve toplam kaç rakam olduğunu başkaca nasıl öğrenebiliriz, akıl akıldan üstündür, ayrıca tecrübede çok önemli, teşekkür ederim.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub VERİ_KONTROL()
    Dim S1 As Worksheet, S2 As Worksheet, X As Long, Y As Integer
    Dim İLK As Integer, SON As Integer, SAY As Integer, Son_Satır As Long
    
    Application.ScreenUpdating = False
    
    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets("Sayfa2")
    
    S2.Range("B5:E65536").ClearContents
    
    S1.Range("C6:C65536").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=S2.Range("B4"), Unique:=True
    
    Son_Satır = S1.Range("C65536").End(3).Row
    
    For X = 5 To S2.Range("B65536").End(3).Row
        If WorksheetFunction.CountIf(S1.Range("C:C"), S2.Cells(X, 2)) > 0 Then
            İLK = Evaluate("=MIN(IF(Sayfa1!C7:C" & Son_Satır & "=Sayfa2!B" & X & ",Sayfa1!G7:G" & Son_Satır & "))")
            SON = Evaluate("=MAX(IF(Sayfa1!C7:C" & Son_Satır & "=Sayfa2!B" & X & ",Sayfa1!G7:G" & Son_Satır & "))")
            
            For Y = İLK To SON
                SAY = Evaluate("=SUMPRODUCT((Sayfa1!C7:C" & Son_Satır & "=Sayfa2!B" & X & ")*(Sayfa1!G7:G" & Son_Satır & "=" & Y & "))")
                If SAY = 0 Then
                    If S2.Cells(X, "C") = "" Then
                        S2.Cells(X, "C") = Y
                    Else
                        S2.Cells(X, "C") = S2.Cells(X, "C") & " - " & Y
                    End If
                ElseIf SAY > 1 Then
                    If S2.Cells(X, "D") = "" Then
                        S2.Cells(X, "D") = Y
                    Else
                        S2.Cells(X, "D") = S2.Cells(X, "D") & " - " & Y
                    End If
                    S2.Cells(X, "E") = SON
                End If
            Next
        End If
    Next
    Set S1 = Nothing
    Set S2 = Nothing
    
    Application.ScreenUpdating = True
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[abbasonline]

Korhan bey kusura bakmayın internetteki problemden dolayı foruma bağlanamamıştım, ilginiz için teşekkürler, makro çalışıyor, ancak bir düğme ekleyerek çalıştırdım makro otomatik düğme eklemeden çalıştırabilirmiyim birde mükerrer olanları aynı hücreye yazıyor ancak hücreyi biçimlendiremediğim için bazen tarih yazıyor bazende alakasız rakam yazıyor, birde makro toplam rakam sayısını sürekli yazmıyor, sadece mükerrer olursa yazıyor, olmayan rakamıda yazdığı zaman, toplam rakam sayısını yazmıyor, sadece mükerer olursa her üçünüde dolduruyor,düzeltebilirmiyiz. kolay gelsin.

 

[abbasonline]

Sayfa1 deki rakamların hepsi 1 olduğunda Sayfa2 deki toplam rakam sayılarının olduğu yerlere 1 yazıyor halbuki, sayfa1 de KAPI da sadece 6 rakam var.