üretim tablosunu transpoze etmek.

[daali]

Selamlar,
Uygulanmak istenen ,geçmiş yıllara ait ve her gün güncellenen bir üretim listesi var elimizde.
Bu listeyi ,ekli dosyanın sayfa 2 sindeki gibi transpoze etmek gerekiyor.
Transpoze sutunları 25 sutun olarak sınırlı ve aynı sayıdadır.Zaten değerlerde max. 25 tanedir.
1.sayfadaki değerler min.5 ile 25 tane arasında değişmektedir.Tarih,Taşeron no,saat,hedef değerleri ve diğer değerlerde şekildeki gibi transpoze edilmeli.
Bilemiyorum eğer mümkünse yardımcı olmanızı rica ediyorum.
Saygılarımla.

 

[Ali]

Sayfa2'deki E3:R3 aralığınızı seçiniz.Formül sihirbazından DEVRİK_DÖNÜŞÜM() formülü çağırınız.Dizi kısmından Sayfa1'deki A4:A17 aralığını seçiniz.CTRL+SHIFT+ENTER tuşlarına birlikte basarak formül girişini tamamlayınız.
Böylece Sayfa1'deki A4:A17 aralığındaki verilerinizi transpose haline çevirmiş olacaksınız. Diğerlerinide siz aynı mantık ile yapabilirsiniz.

 

[daali]

Selamlar,
Çok teşekkür ederim sayın Ali,çok makbule geçti açıklamanız.
Fakat,geçmiş yıllara ait listeler ,gelişigüzel ,exceli fazlaca bilmeyen stajyer muhasebeciler tarafından bu şekilde hazırlanmış olması işimizi zorlaştırdı.
Güncel değerler için dediğiniz çözüm uygun.
Şu anda taşeronların elenmesi ve iyi elemanların kadroya dahil edilmek istenmesi nedeniyle bu listenin istatistik raporunu oluşturmak gerekli hale geldiğinden,ve fazlaca liste olduğundan bunun bahsettiğiniz çözümden daha fazlası gerekecek sanırım.
Listenin biçimi tam olarak bu şekilde.Satırlar sayısı her taşeron için eşit değil.Sutunlar 25 tane sabit ve eşit.Liste başlıkları tümü (açık mavi renk ),içerikleri değişiyor, biçimi bu şekilde,hepsinde aynı.
Makrolu bir çözüm önermeniz mümkünmü?
Saygılrımla.

 

[daali]

Daha basit ve açıklayıcı olması bakımından ,listeyi parçaladım ve basit hale getirdim.
Şimdi,zorluğun esasını açıklayayım.
Sayfa 1 deki A,B ve C sutunundaki Tarih,taşeron ,saat , hedef adlı değerleri sayfa 2 de bu şekilde sıralama yapabileceğimiz formüllü yada makrolu bir çözüm yapılabilir mi?
(bu sutunlarda satır sayıları max 25 olarak değişmektedir).
Eğer bu çözüm olabilirse,diğer verileri ayrıca başka bir sayfada transpoze yapıp bir sayfaya toplayabilirim.
Sayın COST CONTROL un transpoze uygulamasını buldum, sanırım bunu uygulayabilirim.Yada elle sizin önerdiğiniz şekilde yapabilirim.Biraz yoracak fakat ne yapim ,mecburum.
Saygılarımla.

 

[Ali]

Excel kendi özelliği yeterlidir diye düşünüyorum.İki türlü yapabilirsiniz.Otomatik süz ile tarihleri,taşeronları,saat ve hedefleri süzüp kopyalayıp Sayfa2'deki ilgili kısımlara yapıştırabilirsiniz.

Diğer yöntem ise şu şekilde anlatayım. Diyelimki hedef olan kısımları kopyalayıp diğer sayfaya yapıştıralım. Sayfa1'deki C sütununu seçin. CTRL+F tuşu ile bul menüsü çağırın aranan kısıma hedef yazın tümünü düğmesini tıklayın ve tüm bulduklarını CTRL+A ile seçin hepsini seçtikten sonra kapatı tıklayıp çıkın sadece hedef yazılı kısımların seçili olduğunu göreceksiniz şimdi bu kısımı kopyalayıp Sayfa2'deki kısıma yapıştırın.

 

[daali]

Selamlar,
Çok teşekkür ederim sayın Ali,uygulamayı yaptım.eksik olmayın.İşim biraz daha rayına girdi.Ekli dosyada ben yönteminizi "renk" seçerek yaptırdım.gayet iyi oldu ,ki formül yada makro çözüm rahat uygulanabilir hale geldi.
Sıralama yapmak için,
Hem formül hemde olabilirse makrolu çözüm yapabilirmisiniz.
Saygılarımla.

 

[Ali]

Yeşil renkli kısımlara ne tür bir uygulama yapılacak.

 

[daali]

Tarih,saat,taşeron adları altalta gelecek şekilde ..Dikkat ederseniz,örneğin Tarih A2,A5,A8,A11 ..... satırlarında yazılı.Her tarih satır arası sabit ve formül uygulanarak bütün tarihler altalta B sutununda yazılmalı.ve diğer saat ve taşeron içinde D ve F sutununda altalta sıralanmalı.
Saygılarımla.

 

[Ali]

Tarih,saat,taşeron adları altalta gelecek şekilde ..Dikkat ederseniz,örneğin Tarih A2,A5,A8,A11 ..... satırlarında yazılı.Her tarih satır arası sabit ve formül uygulanarak bütün tarihler altalta B sutununda yazılmalı.ve diğer saat ve taşeron içinde D ve F sutununda altalta sıralanmalı.
Saygılarımla.

Umarım dediğinizi doğru anladım

..xls)sıralama adlı sayfanız aktif iken yada o sayfaya ekleyeceğiniz buton içine aşağıdaki kodları ekleyip deneyiniz.

Sub test()
k = 2
For i = 2 To 1000 Step 3
Cells(k, 2).Value = Cells(i, 1).Value
Cells(k, 4).Value = Cells(i, 3).Value
Cells(k, 6).Value = Cells(i, 3).Offset(1, 0).Value
k = k + 1
Next
End Sub

Ben 1000 satır ile sınırladım siz verinize göre değiştirirsiniz.

 

[daali]

Selamlar,
Eksik olmayın Ali bey,doğru kavramışsınız.
Şimdi ,koşullu satır renklendirmeyle ilgili soracaktım.Ben "açık mavi" satırları konuyu daha rahat izah etmek için elle yapmıştım.İyi de olmuş.Sizin önerilerinizle çözüm uygulanır hale geldi.
Sizden ricam,
A SUTUNUNDA tüm sutun boyunca,Hücre içinde "tarih",
B SUTUNUNDA tüm sutun boyunca "taşeron" yazılı olan tüm satırı nasıl renklendiririm.Bununla ilgil olarak bir makro çözüm hazırlayabilirmisiniz?
Not::
A sutununda tarih:01.01.2003,.....01.04.2007
B sutununda Taşeron no:1,2,3.....n VE TAŞERON ADLARI yazılı olduğundan ortak olanlar "tarih" ve "taşeron"
Saygılarımla.
DÜZELTME:Tüm bu bahsettiklerim ilk mesajdaki dosya içindir.A sutununu koşullu biçimlendirme ile yaptım ama sadece hücre içini biçimlendirdi.Benim istediğim tüm satırın renklendirilmesi..Ve B sutunuda aynı şekilde içeriklerinde "Tarih" ,"taşeron" yazan tüm satırların her ikisi birden aynı renkle renklendirilmesi.
Saygılarımla

 

[Ali]

DÜZELTME:Tüm bu bahsettiklerim ilk mesajdaki dosya içindir.A sutununu koşullu biçimlendirme ile yaptım ama sadece hücre içini biçimlendirdi.Benim istediğim tüm satırın renklendirilmesi..Ve B sutunuda aynı şekilde içeriklerinde "Tarih" ,"taşeron" yazan tüm satırların her ikisi birden aynı renkle renklendirilmesi.
Saygılarımla

Aşağıdaki kodları deneyiniz.

Sub renklendir()
For i = 1 To 500
If Cells(i, 1) = "TARİH" Then Cells(i, 1).EntireRow.Interior.ColorIndex = 6
If Trim(Mid(Cells(i, 2), 1, 7)) = "taşeron" Then Cells(i, 2).EntireRow.Interior.ColorIndex = 6
Next
End Sub

 

[daali]

İyi hafta sonu dileklerimle,
Teşekkür ediyorum,sağolun Ali bey,
Şimdi acaba diğer kalan ,değerleri transpoze etmek sorununu çözmek için yeni bir başlık açmamın ,form kirliliği açısından mahsuru olur mu ?
Gerçi diğer birkaç farklı başlık altında bu sorunu dile getirmiştim,fakat sanırım pek anlaşılamadı gibi geldi bana.Birde sayın COST CONTROLUN örnek bir uygulamasını dosyama uyarlamaya çalıştım fakat beni aştı.
Eklediğim dosyada satırlardaki sayıları en büyüğünden en küçüğüne sıralayıp numaralandırmak surusu var.Bir vakit bulursanız değerlendirebilirmisiniz.
Saygılarımla.

 

[Ali]

İstediğiniz;

Z2 hücrenize

=TOPLA.ÇARPIM((A3<$A$3:$Y$3)/EĞERSAY($A$3:$Y$3;$A$3:$Y$3&""))+1

Z3 hücresine

=TOPLA.ÇARPIM((A4<$A$4:$Y$4)/EĞERSAY($A$4:$Y$4;$A$4:$Y$4&""))+1

Z4 hücresine

=TOPLA.ÇARPIM((A5<$A$5:$Y$5)/EĞERSAY($A$5:$Y$5;$A$5:$Y$5&""))+1

yazıp sağa çektiğinizde oluşan değerlermidir.

 

[daali]

Selamlar,
Teşekkürler Ali bey,eksik olmayın.Değerlerin karşısındaki satırlara formül uygulanacak.Benim hatam satır kaydırmışım örnek dosyamda.Ben formüllerinizi uyguladım ve ekli dosyada uygulama var.Buna benzer olarak makrolu bir çözüm yapılabilirmi?
Birde transpose ile ilgili olarak uyarlamaya çalıştığım bir kod var ,fakat bu kodlar metin içerikli hücreler için çalışıyor.Eğer bi bakabilirseniz sizde farkedeceksiniz, ki bunu hücre içi ne olursa olsun transpose edebilmeliyim.Yoksa tüm hücre içerikleri "sayı" olan değerlerin başına metinsel bir harf eklemem gerekecek.
Saygılarımla.

 

[Ali]

*.xls indirmede sorunlarım var. Rar ve zip olarak eklermisiniz.

 

[daali]

Biliyordum fakat unutmuşum.Tamam.

 

[daali]

Selamlar Ali bey
Bahsettiğim text sorunu için kodda "xltextvalues" gelen yerlere "xlnumber" yazmıştım fakat excel "1004" hata verdi ve specall cells okuyamıyor uyarısı vermişti.
Saygılarıma.

 

[Ali]

SpecialCells(xlCellTypeConstants, xlTextValues) olan kısımı

SpecialCells(xlCellTypeConstants, 23) olarak değiştirip denermisiniz.

 

[daali]

Teşekkür ederim Ali bey,verdiğiniz kısacık tarif üzerine,bende değişik rakamlar koyarak (41) denedim ve istenilen sonuca ulaştım.Sizin 23 rakamı transpozeyi tüm satırlar boyunca devam ettiriyordu.41 (diğer başka rakamlarda yapabiliyor)rakamı ile altalta yapabiliyor.Hatta End(xlUp)(2, 1) kısmında 3,4,5 gibi rakam değişiklikleri ilede satır atlattırarak transpose yapılabiliyor.Ve dahası kodları süperpose ettiğimdede hemen hemen tüm sutunları transpose etmiş olacağım.
Örnek uygulama ektedir,Umarım benzer sorunu olan forumdaş arkadaşlarda kullanabilir,istifade edebilir.
Önceki sorumdaki (sayfa 1)Formüller için makro uygulaması mümkün kılabilirmisiniz acaba?
Saygılarımla.