verileri tabloya aktarma

[aIi]

( c d e ) sutunundaki bilgileri
( k l m n o ) sutunundaki tabloya yerleştirmek istiyorum
bana bu konuda yardımcı olursanız sevinirim

tablo birdeki değerleri tablo ikideki yerlere yerleştirmek istiyorum . yanlız sarı olarak boyanmış yerler değişmeyecek sıralama olarakytl,usd,euro dışındakiler değerler sutununa yerleşecek.eğer diğer efektif cinslerinin adları yanlarına yazılacak ve diyelimki örnekte olduğu gibi 911 şubeenin hem gbp hemde nok u varsa alt alta yazılacak .biliyorum karışık iş ama bana bu konuda yardım ederseniz beni büyük bir yükten kurtarırsınız.not :burada belirtiğim şubeler aslında küçük bir örnek aslında yüzlerce şube var dolayısı ile bunları tabloya aktarmak çok uzun süre aldığından böyle bir formüle ihtiyacım var

 

[ziya]

Sn. busitecaliyormu (evet bu site çalışıyor)
Dosyanız ekte, umarım isteğiniz yerine gelmiştir. (nick'inizi yazmak dosyayı düzenlemekten daha zormu&#351
Selamlar,

 

[aIi]

Sn. busitecaliyormu (evet bu site çalışıyor)
Dosyanız ekte, umarım isteğiniz yerine gelmiştir. (nick'inizi yazmak dosyayı düzenlemekten daha zormuş)
Selamlar,

Öncelikle yardımlarınızdan ve ilginizden dolayı çok teşekür ederim.

fakat tablo birdeki değerler ve sıralama değişiyo her seferinde.
Benim istediğim tablo ikideki sıralama (sarı renklerle belirttiğim hücreler) değişmemesi gerekiyor o kodların sıralaması benim için önemli
ve diğer dövizlerinde (diğer dövizler sutununda olması gerekiyor) nedeni ise hem çok fazla işlem görmüyor hemde tek bir sayfada tümünü görebilmek için aksi halde çok fazla uzuyor listem.
ilgin ve çalışman için gerçekten çok teşekür ederimmm.

 

[Merhum İdris SERDAR]

Dosyanız ekte.

Pivot Table - Özet Tablo ile yapılmıştır.

.

 

[ziya]

yurttas hocam, muhteşem, çok örneğinizi inceledim (son zamanlarda verdiğiniz hemen hemen tüm örnekleri) , anlatımlarınızı dikkatle okudum, beceremiyorum şu "özet tablo" oluşturmasını. (Yolun sonu gözüküyor ya ...)

 

[aIi]

Dosyanız ekte.

Pivot Table - Özet Tablo ile yapılmıştır.

.

yurttaş bey;
ilginizden dolayı size teşekür ederim,
ancak istediğim tam olarak bu değil özel tablo ile yaptığım zaman tablo ikideki sıralama değişiyor.(diyelimki gün içerisinde 211 kodlu şubenin herhangi bir isteği olmamış) dolayısıyla özel tablo ile hazırlandığında 211 şubeyi göremiyorsunuz. kaldıki ytl usd euro ve diğerleri diye ayrı ayrı sutunlarda olması gerekiyor.
ben ikinci tabloyu çok basit birşekilde cizdim aslında örnek olsun diye
eğer bunu yapacak bir formül varsa ben bunu oraya uygulayacağım

 

[Ferhat Pazarçevirdi]

Kodlarla hazırlanmış bir çalışma isterseniz, ekteki örneği inceleyiniz.

Aşağıdaki makro kodları kullanılmıştır.

[COLOR=blue]Option Explicit[/COLOR]
[COLOR=blue]Sub[/COLOR] Tabloya_Getir()
    [COLOR=blue]Dim [/COLOR]col [COLOR=blue]As[/COLOR] [COLOR=blue]New[/COLOR] Collection
    [COLOR=blue]Dim [/COLOR]i [COLOR=blue]As[/COLOR] [COLOR=blue]Integer[/COLOR], k [COLOR=blue]As[/COLOR] [COLOR=blue]Integer[/COLOR]
    [COLOR=blue]Dim[/COLOR] arrD(), arrV()
    [COLOR=blue]Dim[/COLOR] bul [COLOR=blue]As[/COLOR] Range
    [COLOR=blue]Dim[/COLOR] adr [COLOR=blue]As[/COLOR] String
 
    arrD = Array("YTL", "USD", "EURO", "DİĞERLERİ")
 
    [COLOR=blue]On Error Resume Next[/COLOR]
    k = 4
    [COLOR=blue]For[/COLOR] i = 4 To Cells(65536, 2).End(xlUp).Row
        col.Add Str(Cells(i, 2)), Str(Cells(i, 2))
        [COLOR=blue]If[/COLOR] Err.Number = 0 Then
            k = k + 1
            Cells(k, "G") = Cells(i, "B")
        [COLOR=blue]Else[/COLOR]
            Err.Number = 0
        [COLOR=blue]End If[/COLOR]
    [COLOR=blue]Next[/COLOR] i
    [COLOR=blue]On Error GoTo 0[/COLOR]
 
    Range("H4").Resize(, [COLOR=blue]UBound[/COLOR](arrD) + 1) = arrD
 
    Range("H5:K1000").ClearContents
 
    For i = 1 To col.Count
        [COLOR=blue]Set[/COLOR] bul = Columns(2).Find([COLOR=blue]CDbl[/COLOR](col.Item(i)), Lookat:=xlWhole)
        [COLOR=blue]If Not[/COLOR] bul [COLOR=blue]Is Nothing[/COLOR] Then
            adr = bul.Address
            [COLOR=blue]Do[/COLOR]
                [COLOR=blue]Select Case[/COLOR] Cells(bul.Row, 4)
                    [COLOR=blue]Case[/COLOR] arrD(0): Cells(i + 4, 8) = Cells(bul.Row, 3)
                    [COLOR=blue]Case[/COLOR] arrD(1): Cells(i + 4, 9) = Cells(bul.Row, 3)
                    [COLOR=blue]Case[/COLOR] arrD(2): Cells(i + 4, 10) = Cells(bul.Row, 3)
                    [COLOR=blue]Case[/COLOR] [COLOR=blue]Else[/COLOR]
                        Cells(i + 4, 11) = Cells(bul.Row, 3) & " " & Cells(bul.Row, 4) & vbLf & Cells(i + 4, 11)
                        Cells(i + 4, 11) = Mid(Cells(i + 4, 11), 1, Len(Cells(i + 4, 11)) - 1)
                [COLOR=blue]End Select[/COLOR]
                [COLOR=blue]Set[/COLOR] bul = Columns(2).FindNext(bul)
            [COLOR=blue]Loop While Not[/COLOR] bul [COLOR=blue]Is Nothing[/COLOR] And adr <> bul.Address
        [COLOR=blue]End If[/COLOR]
    [COLOR=blue]Next[/COLOR] i
    [COLOR=blue]Set[/COLOR] bul = [COLOR=blue]Nothing[/COLOR]
[COLOR=blue]End Sub[/COLOR]

 

[1Al2Ver]

Sayın busitecalısıyormu, nick'inizi seçerken özel bir denediniz mi vardı, merak ettim doğrusu, bu nick'in site admin ve üyelerine garip geleceğini ve bu nedenle de tuhaf karşılanacağını az da olsa düşündünüz mü, elbetteki her kişi gibi sizinde nick seçme özgürlüğünüz var ve bizler buna marjinal ve ayıp kabul edilenlerin dışında olması koşuluyla saygı duyarız, inanın gerçekten merak ediyorum, özel bir nedeni mi var , cevaplarsanız memnun olurum, saygılarımla

 

[ziya]

Sn. busitecaliyormu,
Kalıcı bir şey yapabilmek için soruyorum. Sizin banka şube kodlarınızın yüzler basamağı (211 in 2 si, 803'ün 3) hangi sayı ile başllyor hangi sayı ile bitiyor. Genellersek 1 ile başlıyor 9 ile bitiyor diyebilirmiyiz.
Selamlar,

 

[Orion1]

Nickinizi değiştirdiğiniz için teşekkür ederim.
Kilit açılmıştır.

 

[aIi]

Sayın Ferhat Pazarçevirdi
öncelikle teşekür ederim elinize sağlık fakat diğerleri sutunundaki döviz kısaltmalarının sadece iki herfi gözüküyor bunu nasıl düzeltebiliriz
ilginizden dolayı çok teşekür ederim

 

[Ferhat Pazarçevirdi]

Sayın Ferhat Pazarçevirdi
öncelikle teşekür ederim elinize sağlık fakat diğerleri sutunundaki döviz kısaltmalarının sadece iki herfi gözüküyor bunu nasıl düzeltebiliriz
ilginizden dolayı çok teşekür ederim

Aşağıdaki kodu kullanabilirsiniz. Değişiklikler kırmızı ile gösterilmiştir.

Option Explicit
Sub Tabloya_Getir()
    Dim col As New Collection
    Dim i As Integer, k As Integer
    Dim arrD(), arrV()
    Dim bul As Range
    Dim adr As String
[COLOR=red]    Dim m As Integer[/COLOR]
    
    arrD = Array("YTL", "USD", "EURO", "DİĞERLERİ")
    
    On Error Resume Next
    k = 4
    For i = 4 To Cells(65536, 2).End(xlUp).Row
        col.Add Str(Cells(i, 2)), Str(Cells(i, 2))
        If Err.Number = 0 Then
            k = k + 1
            Cells(k, "G") = Cells(i, "B")
        Else
            Err.Number = 0
        End If
    Next i
    On Error GoTo 0
    
    Range("H4").Resize(, UBound(arrD) + 1) = arrD
    
    Range("H5:K1000").ClearContents
    
    For i = 1 To col.Count
        Set bul = Columns(2).Find(CDbl(col.Item(i)), Lookat:=xlWhole)
        If Not bul Is Nothing Then
            adr = bul.Address
            Do
                Select Case Cells(bul.Row, 4)
                    Case arrD(0): Cells(i + 4, 8) = Cells(bul.Row, 3)
                    Case arrD(1): Cells(i + 4, 9) = Cells(bul.Row, 3)
                    Case arrD(2): Cells(i + 4, 10) = Cells(bul.Row, 3)
                    Case Else
[COLOR=red]                        m = m + 1[/COLOR]
                        Cells(i + 4, 11) = Cells(bul.Row, 3) & " " & Cells(bul.Row, 4) & vbLf & Cells(i + 4, 11)
                        [COLOR=red]If m = 1 Then: [/COLOR]Cells(i + 4, 11) = Mid(Cells(i + 4, 11), 1, Len(Cells(i + 4, 11)) - 1)
                End Select
                Set bul = Columns(2).FindNext(bul)
            Loop While Not bul Is Nothing And adr <> bul.Address
[COLOR=red]            m = 0[/COLOR]
        End If
    Next i
End Sub

 

[ziya]

Sn AIi
Ustalar herkese olduğu gibi size de ziyadesiyle yardımcı olmuşlar, size söz verdiğim için ben de çalışmamı ekledim.
Nick'inizi değiştimeniz hepimizi rahatlattı. (Evet busiteçalışıyor ve daima)
Kolay gelsin, selamlar,

 

[sokolniki]

Pivotta metni data olarak aktarma

Merhaba,

Soyle bir sorunum var. elimdeki bir tabloda datalarin bazilari sayi bazilari ise metin. Mesela arabanin calisma saati "8" bu bir sayi. Yalniz bazen calisma saati olarak "arizali" ya da "operatorYok" gibi metinler data olarak giriliyor. Bu tabloyu pivota aktardigim zaman bu metinler sifir olarak gozukuyor pivotta. Halbuki ben bunlarinda aynen metin olarak gecmesini istiyorum. Bunu nasil yapabilirim. Bir fikri olan varsa, yardim ederse sevinirim.