aynı satırdaki verileri düşey olarak sıralamak

[euphrates55]

örnek dosyada gerekli isteklerimi sıraladım. yardımcı olursanız sevinirim.

http://we.tl/8SSR4bpMCX

 

[Ömer BARAN]

Merhaba.
ALTIN ÜYELİK olmadığına göre; örnek belgenizi burası veya burası gibi bir paylaşım sitesine yükleyip,
oradan alacağınız erişim bağlantısını burada paylaşırsanız daha çabuk ve net cevap alacağınızı düşünüyorum.

Örnek belgenizi yüklediğiniz site biraz farklı geldi ve belgeyi inceleyemedim ancak, verileriniz B2'den K2'ye kadarki hücrelerde ise;
bu verileri A3 hücresinden itibaren aşağı doğru listeleyiblmek için A3 hücresine;

=EĞER(SATIRSAY($A$1:A2)>=12;"";DOLAYLI(ADRES(2;SATIRSAY($A$1:A2);4)))

veya

=EĞERHATA(İNDİS($B$2:$K$2;1;SATIRSAY($A$2:A2));"")

formülünü uygulayıp, bu formülü aşağı doğru kopyalayınız.

 

[euphrates55]

http://s6.dosya.tc/server/hoemm0/ORNEK_SORU.xlsx.html

iş yerinde birçok siteye upload yapamıyorum. şimdi önerdiğiniz siteye yükledim. inceleyebilirseniz sevinirim.

 

[Ömer BARAN]

Tekrar merhaba.

Dosyaya buradan veya buradan ulaşabilirsiniz.

 

[euphrates55]

insanoğlu neler yapıyor. valla helal olsun. benim için kötü olansa herhangi bir değişiklikte neler yapacağımı bilememem. teşekkür ettim. yine fakat bazı yerlerde formüller var, normal toplama çıkarma. sanırım onları dikkate almadınız. bazı yerlerde eksi değerler çıkıyor. muhtemelen onlarda bir hücreden değer alıyor. emeğinize sağlık. iyi geceler.

 

[Ömer BARAN]

Hangi hücrede sorun varsa söyleyin hazır dosyaya aşina iken bakayım.
Çarpı 2 ve + - işlemlerinde paranteze dikkat etmemiş olabilirim.
Örnek veri söylerseniz bakabilirim.

Belge açıkken ALT+F11 tuuşlarına basın açılan ekranda F8 tuşuna aralıklarla basarak adım adım işlemi takip edin, sorunlu satırı bulabilirsiniz bence.

 

[Ömer BARAN]

Kod çok karmaşık değil aslında a ve b değişkenlerinin aldığı değerleri izleyerek, kod satırlarında olan işlemi anlayabilirsiniz sanırım.

Kodların başındaki sayfa adı tanımlamalarına bakın önce,
ardından da a ve b değişkenlerinin aldığı değerleri F8 tuşuna adım adım basarak takip edin (fareyle üstüne gittiğinizde aldığı değer görülebilir).

 

[euphrates55]

ilk tabloda yani verileri alan ilk kısımın satır 10 14 15 ve 16 sında formül var. 10. satırda hem genel tablodan hemde mevcut tablodan değer alarak topluyor. zahmet vermemek için birşey dememiştim ama sanırım benim harcım değil ????

 

[Ömer BARAN]

Kodları ALT+F11 tuşlarına basarak görünür hale getirin, sonra sol taraftan Module1'e çift tıklayın sonra da sağ taraftaki kodların tümünü silip aşağıdakini aynı yere yapıştırın.
İlk grup veri için kontrol ettim sorun yok sanırım.

Sub AKTAR()
Dim gt As Worksheet
Dim ist As Worksheet
Set gt = Sheets("GENEL TABLO")
Set ist = Sheets("İSTENEN")
son = gt.[B65536].End(3).Row

For a = 11 To son
    b = 6
    For b = 6 To (son - 10) * 12
        ist.Range("C" & b) = gt.Range("B" & a)
        ist.Range("C" & b + 1) = gt.Range("C" & a) & " " & gt.Range("H" & a)
        ist.Range("D" & b + 2) = gt.Range("AF" & a)
        ist.Range("D" & b + 3) = gt.Range("AG" & a)
        ist.Range("D" & b + 4) = gt.Range("AG" & a) + gt.Range("AL" & a)
        ist.Range("D" & b + 5) = gt.Range("AI" & a)
        ist.Range("E" & b + 5) = gt.Range("AL" & a)
        ist.Range("D" & b + 6) = gt.Range("M" & a) + gt.Range("N" & a) & " Km BY," & gt.Range("O" & a) + gt.Range("P" & a) & " Km TY " & gt.Range("Q" & a) * 2 + gt.Range("R" & a) & " BSK"
        ist.Range("E" & b + 6) = gt.Range("N" & a) + gt.Range("O" & a) & " Km BY," & gt.Range("P" & a) + gt.Range("Q" & a) & " Km TY " & gt.Range("R" & a) * 2 + gt.Range("S" & a) & " BSK"
        ist.Range("D" & b + 7) = gt.Range("AN" & a)
        ist.Range("D" & b + 8) = gt.Range("AG" & a) + gt.Range("AL" & a) + gt.Range("AN" & a)
        ist.Range("D" & b + 9) = gt.Range("AF" & a) - (gt.Range("AG" & a) + gt.Range("AL" & a) + gt.Range("AN" & a))
        ist.Range("D" & b + 10) = gt.Range("AI" & a) - gt.Range("AL" & a)
    a = a + 1
    b = b + 11
        Next
        Next
End Sub


[B][COLOR="Red"]Sub Makro2()[/COLOR][/B]
Dim gt As Worksheet
Dim ist As Worksheet
Set gt = Sheets("GENEL TABLO")
Set ist = Sheets("İSTENEN")

son = gt.[B65536].End(3).Row

For a = 11 To son
    b = 6
    For b = 6 To (son - 10) * 12
        ist.Range("C" & b) = ""
        ist.Range("C" & b + 1) = ""
        ist.Range("D" & b + 2) = ""
        ist.Range("D" & b + 3) = ""
        ist.Range("D" & b + 4) = ""
        ist.Range("D" & b + 5) = ""
        ist.Range("E" & b + 5) = ""
        ist.Range("D" & b + 6) = ""
        ist.Range("E" & b + 6) = ""
        ist.Range("D" & b + 7) = ""
        ist.Range("D" & b + 8) = ""
        ist.Range("D" & b + 9) = ""
        ist.Range("D" & b + 10) = ""
        
        a = a + 1
    b = b + 11
Next
Next
End Sub

Kırmızı renkli kısımdan itibaren (o satır dahil) silme için, üst taraf veri yazma için.

 

[Ömer BARAN]

Dosyanın yeni hali burada.

 

[euphrates55]

teşekkürler ömer baran. varyasyonlarını denemek için vakit kolluyorum.

 

[Ömer BARAN]

Dosyayı bizimlendirme ile ilgili işlemler ekleyerek tekrar yeniledim.

ALT+F11 tuşlarına bastığınızda görülen kod satırlarına açıklamalar yazdım.
(Başında ' şeklinde TEK TIRNAK olan ve YEŞİL font ile görüntülenen kısımlar)
Faydası olması dileğiyle.

Dosya burada.