Verileri tek satırda ayrı ayrı hücrelere sıralama

[mqzturko]

Sayın excel kullanıcı arkadaşlarım.
Bir raporla başım dertte yardımlarınıza baş vuruyorum.Bilgisi olan arkadaşların acil desteğine ihtiyacım var.Detayı ekte 130 nolu satırda açıklama ekleyerek belirttim.Yinede ek olarak açıklamak istediğim şey 15000 lik bir satır aralığında istediğim verileri tabiri caizse cımbızla söküp almasını ve gereksiz verileri silerek bana tek satırda yan yana ayrı hücrelere vermesini istiyorum.Ne demek istediğim ekli tabloda daha açık ifade edilebilecektir umarım.Şimdiden emek verecek arkadaşlara teşekkürü bir borç bilirim.

 

[Orion1]

Gereksiz hücreleri kaale almayalım demişsiniz.
Ama gereksiz değerler nelerdir.Bu konuda bir şey söylememişsiniz.
Siz söylemezseniz bunu sadece siz bilirsiniz.Bizim bunu bilmemimizi bekleyemezsiniz.Excelde bilemez.Bunu söylemek lazıım.Şu olursa kaale alma şuysa listeleneceklerin içine al diye.Bilmem anlatabildimmi .

 

[mqzturko]

Sn Evren Gizlen ilginiz için teşekkürler,sanırım açıklayıcı olamamışım kusura bakmayın.Ekte renklendirdiğim 120-121-122-123-124-125-126.satırlardan bana a120-a123-a125-d123 deki veriler lazım.Görüldüğü üzere raporda bu veriler farklı satırlarda ve hücrelerde yer alıyor.Aralarda bulunan hücrelerde bazı boş hücreler ve örn:imal edilmiş Spr.Sstm: gibi veya ---- içeren hücreler var.Benim kale almayalım demek istediğim veriler onlar.Bu gereksiz gördüğüm verileri nasıl aralardan çıkarabilirim.Kaldıki 712-0900-1030 yanındaki hücrede KLT 158/B yanındaki hücrede 30 onun yanındada 14,5 olmalı.130.satırdaki gibi olmalı demek istedim.Kısacası örnek olarak boyadığım a120-a126 arası hücrelerin içinde sarı olan hücreleri tek satır haline getirmek istiyorum mümkünse..

 

[Orion1]

O zaman şöyle olmalı.
Bir sütuna ya gerekli değerler yazılmalı,yada gerksiz değerler yazılmalı.
Sorgulama yaparken o sütuna bakıp sorgulama yapılır o takdirde.
Hangizi az ise onu sütuna yazmak daha mantıklıdır.Diyelim ki gereksiz sayısı 5 gerekli sayısı 10 bu durumda sütuna gereksiz hücreleri yazamak daha doğru olur .Tersi durumda gerekli hücreleri yazamak daha doğrudur.Aslında bunları yapsaydınız bu kadar şeyi boşuna yazmamış olacaktık.

 

[mqzturko]

Peki o halde sadece şöyle sorayım.Ekte A1 ile A126 arası değerler içinden bana A6 değerini F1 e A9 değerini G1 e A11 değerini H1 e D9 değerini I1 e daha sonra ise bu A14-A17-A19-D17 değerleri için yine F2-G2-H2-I2 olarak sıralanması mümkün mü?Yine bunu tabiiki aşağıdaki diğerleri içinde uygulamak gerekecek.Ben bu söylediğimi kes yapıştır şeklinde yapmak zorunda kaldığım için bunun bir kısa çözümü varmı diye soruyorum.

 

[mqzturko]

arkadaşlar bu konuda yardımlarınız bekliyorum.İlgilenebilirseniz sevinirim.

 

[Orion1]

Siz benim söylediklerimi kulak arkası ediyorsunuz galiba.
Benim dediklerime bir şey demediniz.Önce benim dediklerim için bir şey deyin ondan sonra çözüm bekleyin.
Böyle muhlak ifadelerle çözüm bulamazsınız.Ben öyle yaparım ama yerleri değişince bu sfer efendim geçen sefre yeri oradayduııddfa fen ondan a11 dedim şimdi a5 oldu derseniz bir daha bir şey yapmam baştan söyeleyeyim.

 

[mqzturko]

6/09 [13:49] a : 45
Turkiye et : 950

----------- ------------
712-0200-1030 e Edilmistir
İmal edilmiş Spr.Sstm :
----------- ------------
KLT 153 15
Hayir
30 Hayir
Hayir
------------ -------------

712-0200-1030 KLT 153 30 15

Alt alta ya da bir yan hücreye gelmiş verileri tek satırda yan yana yazdırmak istiyorum.712-0200-1030 bir hücreye KLT 153 ü yanına 30 u onun yanına 15 i de onun yanına diğerlerinin arasından almasını istiyorum.İstenmeyen değer yada hücre sayısı veya işaretleme gibi birşey yapamam ki 15000 satırlık bir tabloda işe yaramayacak hücreleri işaretlemek ne mümkün.Gerekli olan hücrelerin numaralarını zaten veriyorum.Bu işlemi bir aralık için yapabilirsek devamınında ona göre getirebiliriz diye düşünüyorum.Kaldıki tabloda grekli ve gereksiz olanları ayırmak içinde bir örnek renklendirmem var.Başka ne diyebilirim bilemiyorum.Yinede ilgilenip cevap yazma zahmeti gösterdiğinizden teşekkür ederim.

 

[Orion1]

Ben zaten istenmeyen veriler şart demedim.
Hangisi azsa onu yazmak daha uygun dedim.
Başka türlü olmaz.
Siz bir sütuna alt alta İstenmeyen veya istenen verileri yazınız ve dosyayı ekleyiniz.
Ve istenen verilermi istenmeyen verilermi olduğunuda belirtiniz.
Bu şekilde olursa çözülebilir.Başka türlüde olmaz.Çünkü o sütuna ben worksheetfunction countif uygulayacam.Şimdi neden bir sütuna yazılması gerektiğiniz umarım anlatabilmişimdir.

 

[Necdet]

Merhaba,

Eğer KLT sözcüğü anahtar sözcük ise aşağıdaki kodları kullanabilirsiniz.
Düzenlenen bilgiler Sayfa2 de oluşur.

Option Explicit
Sub Duzenle()
Dim Bul As Range
Dim Adres As Variant
Dim Bas As Long
Dim i As Long, Sat As Long
Dim s1 As Worksheet, s2 As Worksheet
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
s1.Select
s2.Range("A2:A65536").ClearContents
Application.ScreenUpdating = False
Sat = 1
With s1.Range("A:A")
    Set Bul = .Find("KLT", LookIn:=xlValues)
    If Not Bul Is Nothing Then
        Adres = Bul.Address
        Do
            Sat = Sat + 1
            s2.Cells(Sat, "A") = s1.Cells(Bul.Row - 3, "A")
            s2.Cells(Sat, "B") = s1.Cells(Bul.Row, "A")
            s2.Cells(Sat, "D") = s1.Cells(Bul.Row, "D")
            s2.Cells(Sat, "C") = s1.Cells(Bul.Row + 2, "A")
            Set Bul = .FindNext(Bul)
        Loop While Not Bul Is Nothing And Bul.Address <> Adres
    End If
End With
Application.ScreenUpdating = True
s2.Select
MsgBox "Düzenleme Tamamdır", vbOKOnly, "[URL="http://www.excel.web.tr/"]www.excel.web.tr[/URL] 20 Haziran 2009 Cumartesi"
End Sub

Doğrudan Sayfa Üzerinde de düzeltme yapılabilir.

Option Explicit
Sub SayfadaDuzenle()
Dim Bul As Range
Dim Adres As String
Dim Bas As Long
Dim i As Long
Dim s1 As Worksheet
Set s1 = Sheets("Sayfa1")
s1.Select
Application.ScreenUpdating = False
With s1.Range("A:A")
    Set Bul = .Find("KLT", LookIn:=xlValues)
    If Not Bul Is Nothing Then
        Adres = Bul.Address
        Do
            Cells(Bul.Row - 3, "B") = Cells(Bul.Row, "A")
            Cells(Bul.Row - 3, "D") = Cells(Bul.Row, "D")
            Cells(Bul.Row - 3, "C") = Cells(Bul.Row + 2, "A")
            Set Bul = .FindNext(Bul)
        Loop While Not Bul Is Nothing And Bul.Address <> Adres
    End If
End With
Columns("B:B").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Application.ScreenUpdating = True
MsgBox "Düzenleme Tamamdır", vbOKOnly, "[URL="http://www.excel.web.tr/"]www.excel.web.tr[/URL] 20 Haziran 2009 Cumartesi"
End Sub

 

[Necdet]

Arkadaş soruyu sorduktan sonra kaboldu sanki

 

[mqzturko]

Necdet bey elinize sağlık tam istediğim gibi olmuş.Emeği geçen herkese teşlekkür ederim.