[Halil_61]

Merhaba değerli hocalar,

Elimde olan makro ile ilgili sizden yardım rica ediyorum.Ekteki dosyayı incelediğinizde sizden öncelikle Grupla butonuna bastığınıza A sütununda bulunan benzer değerlerin hücreleri rastgele renk alıyor ve C sütununa sadeleştirip yazıyor.

Benim sizden ricam ; Projem 12. satırdan başladığı için bir türlü 12. satırdan başlatamadım ve sadeşletirirken sadece benzer olanların C sütununa gelmesini istiyorum benzer olmayan yani renklenmeyen hücrelerin C sütununa yazmasını istemiyorum.

İlgilenebilirseniz çok memnun olurum.
Çok teşekkür ederim.

[şahin]

Ekte

[Halil_61]

Şahin hocam çok çok teşekkür ederim. Fakat benzersiz verilerde yan sütuna geliyor sadece benzer verileri yan sütuna alabilir miyiz? Çok güzel olacak olursa eğer yardımınıza ihtiyacım var tekrar çok teşekkürler.

[Erkan Akayay]

İnceleyin. viewtopic.php?f=37&t=20821

[Halil_61]

Erkan hocam çok başarılı bir çalışma olmuş çok teşekkür ederim.Fakat aradığımı bulamadım.
Örneğin verdiğiniz çalışmadan örnek verecek olursam ; Ben sadece benzer verilerin sadeleşerek yan sütuna gelmesini istiyorum.
Yani örneğiniz de olduğu gibi aşağıdaki isimler benzer olduğundan yan sütuna da sadece bu isimlerin gelmesini istiyorum.
Ali
Kemal
Ömer

Bu durumu benim yüklediğim dosya üzerinden yardımcı olabilir misiniz?
Çok Teşekkürler.

[Halil_61]

Hocam Şahin hocanın verdiği örnek üzerine otomatik macro save yardımı ile işimi çözdüm, eklediği kodlar aşağıdadır.

Kod: Tümünü seç

Range("C12:C10000").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.SpecialCells(xlCellTypeBlanks).Select
    Selection.Delete Shift:=xlUp
    Range("C12").Select

Çok Teşekkürler.
Saygılarımla.

[Halil_61]

Hocam yaptım ama sanırım 15-20 hücreye kadar problem yok , fakat hücre sayısı 200 yukarısı olduğunda hata veriyor. Ekteki Exceli inceleyebilir misiniz? Çoklu sipariş butonuna bastığımızda hata dönüyor hocam.
Yardımınızı rica ederim.

[Kasnic]

Hata için bakınız. /viewtopic.php?t=10985&f=4

[Halil_61]

Hocam ilginiz ilginiz için teşekkür ederim, lakin baktım Missing değerlerim kapalı benim dosyamda çıkan hata kodu Run Time Error '9' şeklinde açıklama ise : Subscript out of range, sanırım hücre renkleri ile ilgili bir çakışma var . Yardım edebilir misiniz rica etsem.
Çok Teşekkürler.

[Kasnic]

Sanırım oldu.

[Halil_61]

Hocam dosyayı indirdim fakat sanırım arşive alırken tam bitirmeden kapatmış dosyayı hata veriyor arşiv dosyası, sizden ricam tekrar gönderebilir misiniz.İlginiz için çok çok teşekkür ediyorum. Saygılarımla

[Kasnic]

Kontrol ettim sıkıntı görünmüyor yinede tekrar ekledim.

[Halil_61]

Hocam sizi yoruyorum belki ama gerçekten yine hata veriyor.Arşiv bulunamadı ekte de ekran görüntüsünü aldım size göstermek için, sizden ricam excel dosya adını değiştirerek basitleştirerek ingilizce karakterle bir kere daha kaydedip gönderebilir misiniz.
Çok Teşekkür Ederim.
Saygılarımla.

[Halil_61]

Yükleyememişim kusura bakmayın lütfen hata dosyası ektedir.

[Kasnic]

Rar bazen öyle şeyler yapıyor. Sizin için hem rar. hem zıp olarak arşivledim. Sorun devam ederse 7-Zıp programı ile dosya çıkarmayı deneyiniz. Muhtemelen çözülecektir.

[Halil_61]

Hocam bu sefer .zip'le açabildim fakat rar hata verdi yine, konumuza gelecek olursam. Hocam benim dosyamı detaylı incelerseniz sadece benzer verileri yanında ki sütuna alır ve benzer olan hücreleri aynı renk ile boyar. Size çok teşekkür ediyorum fakat dosyanıza baktığımda benzer olan hücreler aynı renk değil ve benzersizlerin hepside yan sütuna gelmiş. Aslında programın çalışma mantığını ekteki dosyamı inceleyebilirseniz test dosyamdan daha iyi anlayabilirsiniz.Bu durumu yukarıda paylaştığım gerçek projemde yaptığımda daha hacimli bir liste olduğu için sanırım hata veriyor. Yardımınız için şimdiden çok teşekkür ederim.

[Kasnic]

Faturalı dosyanızın içine öncekini silip bunu yapıştırınız. Her grubu farklı renklendirecek ve J sütununa listeleyecek. Benzersizler gelmeyecek.

Kod: Tümünü seç

Sub grupla()
Dim yaz As Integer
Dim renk As Integer
Range("J12:J1000000").ClearContents
Range("I12:I" & Rows.Count).Interior.ColorIndex = 0
Range("J12:J" & Rows.Count).Interior.ColorIndex = 0
yaz = 12
renk = 12
For a = 12 To Range("I1000000").End(xlUp).Row
   If Cells(a, "I").Interior.ColorIndex > 0 Then GoTo atla
   For i = a + 1 To Range("I1000000").End(xlUp).Row
   'On Error Resume Next
        If Cells(a, "I").Value2 = Cells(i, "I").Value2 And Cells(i, "I") <> "" Then
        Cells(yaz, "J") = Cells(a, "I")
            Cells(yaz, "J").Interior.ColorIndex = renk
            Cells(a, "I").Interior.ColorIndex = renk
            Cells(i, "I").Interior.ColorIndex = renk
renk = renk + 1

End If
   Next i

yaz = yaz + 1
atla:
Next a

    Range("J12:J100000").Select
    'Range(Selection, Selection.End(xlDown)).Select
    Selection.SpecialCells(xlCellTypeBlanks).Select
    Selection.Delete Shift:=xlUp
    Range("J12").Select

End Sub

[Halil_61]

Hocam size çok teşekkür ediyorum emeğinize sağlık istediğim gibi olmuştur. Hocam birde aynı projemde şuanda anlamsız bir şey yaşıyorum aynı dosya olduğu için size danışmak istiyorum. Dosya içerisinde Benzersiz Fatura list butonlu makro "L" sütununa benzersizleri listeler ve Crystal Reports için hızlı bir rapor alabilmek adına "L" sütununda ki Fatura Numaralarını aralarına "," ekleyerek "M12" hücresinde birleştirerek yazar. Enteresandır ki "L73" hücresi ve sonrasında hiçbir problem yok doğru birleştirme yapıyor. Ama verileri "L72" dahil ve daha az olursa anlamsız bir ifade getiriyor. Ekteki dosyamda "L72" ye kadar hücreler dolu ve baktığınızda birleştirmediğini göreceksiniz. Ama size zahmet "L73" e bir fatura numarası yazın ve Benzersiz Fatura list butonuna basıp makroyu çalıştırdığınızda da doğru şekilde birleştirdiğini göreceksiniz.

Hocam çok oldum belki ama hakkınızı helal edin çok teşekkür ediyorum, çok uğraştım string değerleri integer yaptım dolu hücreleri saydırdım ama olmadı çok iyi değilim vba'da yardımınız için çok çok teşekkür ederim.

[Kasnic]

Helal olsun. Elimden geldiği kadar yardımcı olmaya çalışıyorum.
Soruna geri dönersek nedeni konusunda bende meraka düştüm açıkçası. Ama çözümü Virgül "," yerine Nokta "." kullanmakta buldum. Umarım işinize yarar.

Kod: Tümünü seç

xStr = xStr & IIf(Len(xStr) = 0, "",".") & cll.Value

[Halil_61]

Hocam çok teşekkür ederim, kusura bakmayın geç dönüş yaptım. Virgül muhakkak elzemdi hocam, basit bir excel fonksiyonu ile noktaları, virgül yaparım dedim ama yine bilinmez sayı hatası verince, excel noktalama ayarlarından şüphelendim ve noktalama ayarlarından çözdüm sanırım, yada hücre içi sayı olan ifadeyi Metinsel yaptım bundan dolayıda olmuş olabilir. Sonuç olarak çözdüm çok teşekkürler.
Başarılar dilerim, Saygılarımla.