Duseyara ve fonksiyonlarla ilgili sorunum...

[Aksed]

Merhaba;

Excell konusundaki hakimiyetinizi bildigim icin ekteki excell calısmasında yardımcı olabılecek birileri var ise onlar sizlerden biri olmalı diye dusundum. ekte duseyara ve fonksiyonlarla ilgili bir calısmam var yardımınızı rica ederim.
Simdiden tesekkurler

 

[Levent Menteşoğlu]

Bu istediğinizi VBA ile çözmek daha kolay. Aşağıdaki kodu deneyin.

Sub aktar()
For a = 2 To [a65536].End(3).Row
say = WorksheetFunction.CountIf(Range("I:I"), Cells(a, "a"))
If say = 0 Then
sat = [I65536].End(3).Row + 1
Cells(sat, "I") = Cells(a, "a")
Cells(sat, "J") = Cells(a, "b")
Cells(sat, "K") = Cells(a, "c")
Cells(sat, "L") = Cells(a, "d")
Cells(sat, "M") = Cells(a, "e")
Else
sat = WorksheetFunction.Match(Cells(a, "a"), [I:I], 0)
ilave = WorksheetFunction.CountA(Range("j" & sat & ":m" & sat))
Cells(sat, 10 + ilave) = Cells(a, "b")
Cells(sat, 11 + ilave) = Cells(a, "c")
Cells(sat, 12 + ilave) = Cells(a, "d")
Cells(sat, 13 + ilave) = Cells(a, "e")
End If
Next
MsgBox "İşlem Tamamlandı."
End Sub

Not: İşlem sayısı fazla olduğundan çalışması uzun sürebilir bitmesini bekleyin.

 

[Aksed]

Levent Bey merhaba;

Oncelikle donusunuz icin cok tesekkur ederim.Formulu vba olarak yazip kosturdum ancak dogru sonucu vermedi.Komut sonucuna gore x y z d sutunlarinda bulunan degerler toplamda 3038 adet olmasi gerekirken vba sonucu degerleri toplarsak 2355 adet cikiyor yani bircok data eksik cikiyor .Ornegin 876 icin yan yana 2202 degerini yazmasi gerekirken vba sonucunda sadece 1 adet 2202 yazmis.Gelistirme sansimiz var midir ?Sayenizde cozum icin cok yaklasmis gorunuyoruz .Tekrar tesekkur ederim.

iyi calismalar...

 

[Levent Menteşoğlu]

Üstteki kodu yeniledim tekrar deneyin.

 

[Aksed]

Tesekkurler....

Harikasiniz cok tesekkurler ;

Formul sonucuna gore 3038 adet datamdan (x y z d) vba ile 3036 adedini dogru olarak aktardiginiz gorunuyor 2 adet data nereye gitti bulamadim ama problem degil bu da yeter bana .Ama o iki degerin neden kaynakli oldugunu soylerseniz de sevinirim bazi yerlerde 3 adet alt alta site no degeri vardi ondan kaynaklanmis olabilir mi?

Tekrar tesekkur ederim,sizler oldukca eminim hickimsenin sorunu kalmayacak.

iyi calismalar

 

[Levent Menteşoğlu]

Hata, 3006 ve 26529 nolu sitelerdedir çünkü bu sitelerde 5 adet magazin görünüyor,kod sadece 4 taneyi dikkate alıyor.