Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Diğer Excel Soruları
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Diğer Excel Soruları Yukarıdaki başlıklara uymayan Excel sorularınızı bu bölüme gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 26-10-2017, 16:04   #1
vtexcel
 
Giriş: 03/03/2017
Şehir: istanbul
Mesaj: 8
Excel Vers. ve Dili:
office 2010 tr
Varsayılan Excel de aynı verilerin yanyana sıralanması

Merhaba, arkadaşlar excel verilerimde aşağıda ki gibi bir işlem yapmak istiyorum. Bir formülü var mıdır.

Mevcut:

XX 01001 976411
XX 01001 980224
YY 01002 1128
YY 01002 1234

Yapmak İstediğim:

XX 01001 976411,980224
YY 01002 1128,1234
vtexcel Çevrimdışı   Alıntı Yaparak Cevapla
Eski 26-10-2017, 16:27   #2
vtexcel
 
Giriş: 03/03/2017
Şehir: istanbul
Mesaj: 8
Excel Vers. ve Dili:
office 2010 tr
Varsayılan

Bu arada 1. Sütun A, 2. Sütun B dir.
vtexcel Çevrimdışı   Alıntı Yaparak Cevapla
Eski 27-10-2017, 00:48   #3
çıtır
 
Giriş: 06/03/2005
Şehir: kdz.ereğli
Mesaj: 856
Varsayılan

Sorudan anladığım kadar ,örnekler A sütunda A1 hücresinden başladığı düşünüldü:Çözüm yardımcı sütun kullanılarak; C1 hücresine kopyalayınız ve çekerek çoğaltınız
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
=SOLDAN($A1;2)
B1 hücresine kopyalayıp çekerek çoğaltınız.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
=EĞERHATA(EĞER(ESAYIYSA(EĞER(EĞERSAY($C$1:C1;C1)>1;KAÇINCI(C1;$C$1:C1;0)));DOLAYLI("A"&KAÇINCI(C1;$C$1:C1;0))&","&PARÇAAL(A1;BUL("*";YERİNEKOY(A1;" ";"*";2));UZUNLUK(A1));"");"")
çıtır Çevrimdışı   Alıntı Yaparak Cevapla
Eski 27-10-2017, 12:02   #4
vtexcel
 
Giriş: 03/03/2017
Şehir: istanbul
Mesaj: 8
Excel Vers. ve Dili:
office 2010 tr
Varsayılan

Merhaba
Mevcut excel yapım şu şekilde;
Her stok Numarasını karşısında OEM numaraları yazıyor.
Bir stoka ait 3 eom var diğer stoğun da 2 oem numarası var.
https://hizliresim.com/g99Ppb

Amacım aşağıda ki gibi referans numaralarına göre OEM numaralarını yan sütunlarda açmak.

https://hizliresim.com/d77LNr


Alıntı:
çıtır tarafından gönderildi Mesajı Görüntüle
Sorudan anladığım kadar ,örnekler A sütunda A1 hücresinden başladığı düşünüldü:Çözüm yardımcı sütun kullanılarak; C1 hücresine kopyalayınız ve çekerek çoğaltınız
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
=SOLDAN($A1;2)
B1 hücresine kopyalayıp çekerek çoğaltınız.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
=EĞERHATA(EĞER(ESAYIYSA(EĞER(EĞERSAY($C$1:C1;C1)>1;KAÇINCI(C1;$C$1:C1;0)));DOLAYLI("A"&KAÇINCI(C1;$C$1:C1;0))&","&PARÇAAL(A1;BUL("*";YERİNEKOY(A1;" ";"*";2));UZUNLUK(A1));"");"")
vtexcel Çevrimdışı   Alıntı Yaparak Cevapla
Eski 27-10-2017, 15:30   #5
çıtır
 
Giriş: 06/03/2005
Şehir: kdz.ereğli
Mesaj: 856
Varsayılan

İsteğiniz bu şekilede yanyana getirmek midir?
http://s6.dosya.tc/server11/5o8b3d/DAGITIM.rar.html
çıtır Çevrimdışı   Alıntı Yaparak Cevapla
Eski 28-10-2017, 08:51   #6
vtexcel
 
Giriş: 03/03/2017
Şehir: istanbul
Mesaj: 8
Excel Vers. ve Dili:
office 2010 tr
Varsayılan

Merhaba, dosyam ektedir. Sizin verdiğiniz formülü uyguladım olmadı.

http://s6.dosya.tc/server11/4kgw4a/Kitap1.zip.html
vtexcel Çevrimdışı   Alıntı Yaparak Cevapla
Eski 28-10-2017, 11:37   #7
çıtır
 
Giriş: 06/03/2005
Şehir: kdz.ereğli
Mesaj: 856
Varsayılan

Alıntı:
vtexcel tarafından gönderildi Mesajı Görüntüle
Merhaba, dosyam ektedir. Sizin verdiğiniz formülü uyguladım olmadı.
Dosyanızın 100000 satırdan fazla olduğunu belirtinde , çözüm üretmeye çalışan insanlarda ona göre çözüm üretsin ve ne yapamak istediğinizide resimden önce dosya ile gönderseydiniz çok daha güzel olurdu.İyi günler.
çıtır Çevrimdışı   Alıntı Yaparak Cevapla
Eski 28-10-2017, 16:11   #8
Emir Hüseyin Çoban
Destek Ekibi
 
Emir Hüseyin Çoban kullanıcısının avatarı
 
Giriş: 11/08/2008
Şehir: Denizli
Mesaj: 5,675
Excel Vers. ve Dili:
Office 2013 Tr - Win8 x64
Varsayılan

. . .

Dosyanız ektedir.
Ortalama işlem süresi 3-3.5 Dk...

Ekran Görüntüsü:


Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub KOD()
    Application.ScreenUpdating = False
    Dim SD As Worksheet: Set SD = Sheets("Sayfa1")
    Dim SO As Worksheet: Set SO = Sheets("Sayfa2")
    Dim liste(), dizi()

    son = SD.Cells(Rows.Count, "A").End(3).Row
    SD.Range("A2:B" & son).Sort SD.Range("A2"), xlAscending
    liste = SD.Range("A1:B" & son).Value
    Set dic = CreateObject("scripting.dictionary")

    For x = 1 To UBound(liste, 1)
        aranan = liste(x, 1)
        If Not dic.exists(aranan) Then
            dic.Add aranan, ""
        End If

    Next x

    SO.Cells.ClearContents
    SO.Range("A1").Resize(dic.Count, 1) = Application.Transpose(dic.keys)
    SO.Range("B1") = "Oem_No > > > "

    For i = 2 To SO.Cells(Rows.Count, "A").End(3).Row
        ilk = WorksheetFunction.Match(SO.Cells(i, "A"), SD.Range("A:A"), 0)
        son = WorksheetFunction.CountIf(SD.Range("A:A"), SO.Cells(i, "A")) + ilk - 1

        SD.Range("B" & ilk & ":B" & son).Copy
        SO.Cells(i, "B").PasteSpecial _
                Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=True, Transpose:=True

    Next i
    SO.Cells.EntireColumn.AutoFit
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
    MsgBox " B i t t i"
End Sub
. . .
Eklenmiş Dosyalar
Dosya Türü: rar Kitap1_01.rar (386.5 KB, 4 Görüntülenme)
__________________
.
Cüzzi Ücretlerle Sorularınıza Özel Destek Almak İçin Özel Mesaj Yazabilirsiniz...

e-mail: huseyincobann@gmail.com
Tel: 0531-285-06-15

http://www.excel.web.tr/private.php?do=newpm&u=101759

Örnek Dosya Hazırlarken Dikkat Edilmesi Gerekenler için link:
https://goo.gl/ckn2NC
_

İyi Günler...

Türkçe konuşup, Excel'ce yazıyoruz!..
...:::: Diren #Excel.Web.Tr :::....


Emir Hüseyin Çoban Çevrimdışı   Alıntı Yaparak Cevapla
Eski 29-10-2017, 01:07   #9
Ziynettin
Altın Üye
 
Giriş: 17/04/2008
Şehir: istanbul
Mesaj: 394
Excel Vers. ve Dili:
office2010
Varsayılan

Alternatif;

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Option Explicit
Sub yan_sutunlara()
Dim a(), b(), c(), tbl(), d As Object, d1 As Object, deg As Variant
Dim i As Long, j As Byte, Say As Long, Sut_Liste(), Sut As Byte, s As Double
Sheets("Sayfa1").Activate
Application.ScreenUpdating = 0
s = TimeValue(Now)

Set d = CreateObject("scripting.dictionary")
Set d1 = CreateObject("scripting.dictionary")
a = Range("A2:B" & Cells(Rows.Count, 1).End(3).Row)

ReDim b(1 To UBound(a), 1 To 3)
    For i = 1 To UBound(a)
        If Not d.exists(a(i, 1)) Then
            Say = Say + 1
            d(a(i, 1)) = Say
            b(Say, 1) = a(i, 1)
        End If
        b(d(a(i, 1)), 2) = b(d(a(i, 1)), 2) & "|" & a(i, 2)
        b(d(a(i, 1)), 3) = b(d(a(i, 1)), 3) + 1
    Next i
    
tbl = Array(b)
    For i = 1 To d.Count
    deg = (tbl(0)(i, 3))
        If Not d1.exists(deg) Then
            d1(deg) = tbl(0)(i, 3)
        End If
    Next i
Sut_Liste = d1.keys
Sut = Application.Max(Sut_Liste)
ReDim c(1 To d.Count, 1 To Sut + 1)
Say = 0
    For i = 1 To d.Count
        Say = Say + 1
        c(Say, 1) = tbl(0)(i, 1)
        deg = Split(tbl(0)(i, 2), "|")
        For j = 1 To UBound(deg)
            c(Say, j + 1) = deg(j)
        Next j
    Next i
With Sheets("Sayfa2")
.Cells.ClearContents
.[A2].Resize(d.Count, Sut + 1).NumberFormat = "@"
.[A2].Resize(d.Count, Sut + 1) = c
.Cells.EntireColumn.AutoFit
.Select
End With
Application.ScreenUpdating = 1
MsgBox "İşleminiz tamamlandı..." & vbLf & vbLf & _
    CDate(TimeValue(Now) - s), vbInformation
End Sub

http://www.dosya.tc/server10/56ak7e/Kitap1-1.rar.html
Eklenmiş Dosyalar
Dosya Türü: rar Kitap1-1.rar (2.05 MB, 4 Görüntülenme)
Ziynettin Çevrimdışı   Alıntı Yaparak Cevapla
Eski 30-10-2017, 08:36   #10
vtexcel
 
Giriş: 03/03/2017
Şehir: istanbul
Mesaj: 8
Excel Vers. ve Dili:
office 2010 tr
Varsayılan

Herkese çok teşekkür ederim. Ellerinize sağlık.
vtexcel Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 11:28


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Palet- Çerkezköy Palet- Çorlu Prefabrik- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri- Çorlu Çelik Konstruksiyon-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden