Düşey satırları yataya çevirme

[quantum32]

Merhabalar,

Ekteki dosyaya bakılacak olursa;

A sütununda Turuncu renkli başlıkların altındaki Mavi renkli alt değerlerini, Turuncu renkli verinin karşısına gelecek şekilde yatay olarak yazdırılmasını nasıl sağlayabiliriz.

Teşekkürler.

 

[Ömer]

Merhaba,

Butona bağlayarak çalıştırınız.

Sub AltListe()
 
Dim sons As Long, suts As Integer, i As Long, sat As Long, sut As Integer
 
sons = Cells(Rows.Count, "A").End(xlUp).Row
suts = ActiveSheet.UsedRange.Columns.Count [COLOR=red]+ 1[/COLOR]
 
Range(Cells(2, 2), Cells(sons, suts)).ClearContents
 
For i = 2 To sons
    If Cells(i, "A").Font.ColorIndex = 46 Then
        sat = i
        sut = 2
    Else
        Cells(sat, sut) = Cells(i, "A")
        sut = sut + 1
    End If
Next i
 
End Sub

.

 

[quantum32]

cavap

Ömer bey,

verdiğiniz makroyu çalıştırıyorum ancak tüm değerleri siliyor.

sebebi ne olabilir veya örnek dosya üzerinde yardımcı olabilirmisiniz?

teşekkürler.

 

[Ömer]

Silinen yer neresi,

Range(Cells(2, 2), Cells(sons, suts)).ClearContents

Bu satıra aralık verebilirsiniz.

Range("B2:G20").ClearContents

gibi.

Uygulamada hata yaparsanız aralıkları silen dosyanızı ekleyiniz.

Not : Aynı konuyla ilgili birden fazla konu başlığı açmamanızı rica ederim.

.

 

[quantum32]

cevap

merhabalar,

makronun eklendiği dosyayı yolluyorum. bakabilirmisiniz?

( Birde Turuncu ve mavi renkli veriler değişebiliyor. Yeni turuncu ve maviler veya mevcut turuncuların altına maviler girebilir. )


Konu ile ilgili olarak başlık yeri değiştirilmiş ve silindi şeklinde algılayarak tekrar yazmıştım. özür dilerim.

 

[Ömer]

Dosyanız eklenmemiş. Ayrıca eğer ölçüt renk değilse nedir? Bunun açıklamanız gerekir.

 

[quantum32]

cevap

ölçütümüz renk tabiki. ben yanlış ifade ettim sanırım. demek istediğim verinin bu kadar olmadığı, eklenen ve çıkan değerlerin olacağı.

sizin anladığınız doğrudur.

 

[Ömer]

#2 nolu mesajda ilaveyi kırmızı ile işaretledim. O şekilde deneyiniz.

Ayrıca kodu ThisWorkbook'a değil module kopyalayınız.

.