• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Aynı Verileri Tek hücrede birleştirme

Merhaba,

2 Adet M010126 değeri var, aynı hücrede M010126 M010126 olarak mı birleşecek? yoksa Fazla olanlar silinecek mi?
 
Aslında tüm dosyayı upload edip detaylı bilgi isteyeyim sizden daha anlaşılır olur eminim...
 
Merhaba,

Ürünler sayfası için deneyiniz. Aynı sayfanın D1 hüxresinden itibaren sıralama yapar.

Kod:
Sub Benzersiz()
Sheets("Ürünler").Range("a1:a5000").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("d1"), Unique:=True
End Sub
 
Yaptım bunu farklı birşeymiş bu hiç denememiştim genelde formülle gidiyordum :)
 
Bu konuya uygun olduğunu düşündüğüm başka bir sorum var bilgisi olan varsa yardımcı olsun lütfen.
konu şu excelde birleştirme yaparak oluşturduğum hücre istediğim sonucu vermiyor. örneğin ahmet yazılı hücrenin sonuna 01 yazılı hücre yazdırmak istiyorum fakat birleştirdiğimde ahmet1 diye çıkıyor.Hücreleri biçimlendir'den isteğe uyarlanmış kısmına gelip 00'ı seçmemde sonuç vermiyor. Ne yapabilirim. Şimdiden teşekkürler
 
Merhaba

UGL sayfasında nasıl bir işlem olacak, veriler teke düşürülecek mi? Yoksa bu haliyle mi olacak?
Bu haliyle olacak ise nasıl oalcak?
M010113 ilk gördüğünde toplam alacak diğerleri boş mu görünecek?
Biraz açıklama yapınız.
 
Tamam detaylıca açıklayayım;

1.sayfa ürün kodları olacak sadece ve hepsinden sadece bir adet yani mükerrer olanlar gidecek...

2.sayfada ise aynı ürün kodlarına ait c sütunundaki rakamlar tek satırda toplanacak..yani aynı ürün kodu 3 yerde var ise tek satırda gösterilecek ve 3ünün de karşısındaki rakamlar toplanıp karşısına gelecek.
 
Aynı kodu UGL sayfası için değiştirin, -kendinize göre ayarlayın- o şekilde deneyiniz.

Kod:
Sub BenzersizUGL()
Sheets("UGL").Range("A1:A65536").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("E1"), Unique:=True
End Sub
E sütununa benzersiz alır, F2 hücresine aşağıdaki formülü girin ve yeteri kadar çoğaltın

Kod:
=EĞER(E2="";"";ETOPLA(A:A;E2;C:C))
 
Son düzenleme:
Geri
Üst