kod ile bulunan sonuçların benzerleri yazılmasın

[asterix1234]

Merhaba,
Ekteki dosyada bir butona bağlanmış Korhan hocamızın vermiş olduğu kodlar mevcut amacı; servis kullanan departmanların kadlarını bulup yazmak.

Çalışma şekli: servis tutarı dolu ise kodlar çalışmaya başlıyor sorgulamayı başka sayfadan yapmakta, mesala kadıköy servisinde olupta Satış departmanında olanların masraf kodlarını yazıyor birden fazla sonuç varsa her bulduğu masraf kodu arasına "/" işaretini koyarak yazıyor.

Sorum: Masraf kodlarını yazıyor fakay kriterlere uyan masraf kodları arasında aynılarıda var bunları teke indirmek

Örnek : ty450/ty800/ty200/ty450 çıkan bir sonuç şöyle olmalı ty450/ty800/ty200

teşekkürler,

 

[asterix12345]

Yardımcı olabilecek yokmu ?

 

[asterix1234]

Helpp, Help meee

 

[asterix1234]

Korhan hocam sizin yardımınızla yapmıştık, teşekkür ederim fakat işleyişte bir sıkıntım var bulunan değerlerin aynıları var ise birini yazması mümkün mü ? ilgilenirseniz minettar kalacağım. teşekkürler.

 

[janveljan]

Birde bunu deneyin

 

[asterix1234]

Birde bunu deneyin

Janveljan ilgin için teşekkür ederim ama nerede değişiklik yaptığınızı anlayamadım ! butona basıldığında bulunan değerlerin aynısı yeniden yazıyor.

benim ricam şu idi; butona basıldığında bir hücrede bulunan değerlerden mesala ty500 iki veya daha fazla varsa sadece bir tane yazılması diğerlerinin yazılmaması

yinede ilginiz için teşekkür ederim.

 

[asterix1234]

arkadaşlar nerdesiniz ??

 

[janveljan]

Kusura bakma geçen sefer kodlarda bir yeri ters yazmışım, yaptığım şey instr fonksiyonu ile yeni eklenecek string değerin ekleneceği yerde olup olmadığını kontrol edip var ise işlemi yaptırmamak oldu, umarım olmuştur. Kodlara ekleme yaptığım yer aşağıda, yeni dosya ekte

If S2.Cells(Y + 1, SÜTUN) = "" Then
                    S2.Cells(Y + 1, SÜTUN) = S1.Cells(BUL.Row, "FC")
                    Else
                        If InStr(1, S2.Cells(Y + 1, SÜTUN), S1.Cells(BUL.Row, "FC")) = 0 Then
                        S2.Cells(Y + 1, SÜTUN) = S2.Cells(Y + 1, SÜTUN) & "/" & S1.Cells(BUL.Row, "FC")
                        End If

 

[asterix1234]

Kusura bakma geçen sefer kodlarda bir yeri ters yazmışım, yaptığım şey instr fonksiyonu ile yeni eklenecek string değerin ekleneceği yerde olup olmadığını kontrol edip var ise işlemi yaptırmamak oldu, umarım olmuştur. Kodlara ekleme yaptığım yer aşağıda, yeni dosya ekte

If S2.Cells(Y + 1, SÜTUN) = "" Then
                    S2.Cells(Y + 1, SÜTUN) = S1.Cells(BUL.Row, "FC")
                    Else
                        If InStr(1, S2.Cells(Y + 1, SÜTUN), S1.Cells(BUL.Row, "FC")) = 0 Then
                        S2.Cells(Y + 1, SÜTUN) = S2.Cells(Y + 1, SÜTUN) & "/" & S1.Cells(BUL.Row, "FC")
                        End If

Hay, Allah bin razı olsun.... Ellerine sağlık janveljan, bu arada Cosette nerde

 

[asterix1234]

konu sonuçlanmıştır.